兄弟 ，玩儿WOW的哪。。共享一下呗

怀旧服

有意私聊

这个自己录制啊！

看头像私聊

这个很简单，自己都能搞定，

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