[已解决]：随机选择显示！！如何随机显示结果啊！！

bj17209

#include <Array.au3>
InetGet("http://tv.tudou.com/albumtop/top/listRank.html?cid=30&type=0", @TempDir & "\2.html", 1)
$sString = FileRead(@TempDir & "\2.html")
$sRegExp = 'target="new">[^<]+</a></div></td>'
$asResult = StringRegExp($sString, $sRegExp, 3)
For $i = 0 To UBound($asResult) - 1 Step 1
        $asResult[$i] = StringMid($asResult[$i], StringInStr($asResult[$i], '>') + 1, StringInStr($asResult[$i], '<') - StringInStr($asResult[$i], '>') - 1)
Next

_ArrayDisplay($asResult)
$randoms = Random(1, UBound($asResult), 1)
MsgBox(4096, "Program files are in:", $asResult[$randoms])

love5173

我以前写的一个随机的例子你可以借鉴一下

SRandom(@SEC/2)
Global $array[26*2+10]
For $i=0 To 9
        $array[$i]=$i
Next
For $i=10 To 35
        $array[$i]=Chr(Asc("A")+$i-10)
Next
For $i=36 To 61
        $array[$i]=Chr(Asc("a")+$i-36)
Next
        
                $zhan=""
                $mi=""
                $mail="@163.com"
        For $i=0 To Random(5,20,1)
                $zhan=$zhan&$array[Random(0,61,1)]
        Next
        For $i=0 To Random(5,11,1)
                $mi=$mi&$array[Random(0,61,1)]
        Next
        For $i=0 To Random(7,12,1)
                $mail=$array[Random(0,61,1)]&$mail
        Next
        Sen($zhan,$mi,$mail)
        Sleep(1000*60)
        WEnd