Do Delay 10 随机数字 = Lib.算法.随机数字串(3) If 随机数字 = 000 Then 随机数字 = Lib.算法.随机数字串(2) ElseIf 随机数字 > 180 Then 随机数字 = 随机数字 / 2 For 2 If 随机数字 > 180 Then 随机数字 = 随机数字 / 2 End If Next End If TracePrint Fix(随机数字) For Fix(随机数字) Delay 1000 Next 随机字母 = Lib.算法.随机数字串(1) If 随机字母 = 0 or 随机字母 = 1 or 随机字母 = 10 Then KeyPress "W", 1 ElseIf 随机字母 = 2 or 随机字母 = 3 Then KeyPress "A", 1 ElseIf 随机字母 = 4 or 随机字母 = 5 Then KeyPress "S", 1 ElseIf 随机字母 = 6 or 随机字母 = 7 Then KeyPress "D", 1 ElseIf 随机字母 = 8 or 随机字母 = 9 Then KeyPress "Space", 1 End If Loop
Dim l="",n=0,s,t,a a=Array("W","A","S","D","Space") Randomize Do s=Int(5*Rnd()) If InStr(1,l,s)=0 then l=l&s t=Int((18-n-5)*Rnd()+1) n=t+n-1 Delay t*10000 KeyPress a(s) If Len(l)=5 then Exit Do End If End If Loop