|
马上加入TC
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
終點X = 800: 終點Y = 600
x1 = 400 : y1 = 360 : i = 0.02
Do
Randomize
x = Int((終點X - x1 + 1) * Rnd + x1)
y = Int((終點Y - y1 + 1) * Rnd + y1)
For n = 0 To 1 Step i
MoveTo x1 + (X - x1) * n, y1 + (y - y1) * n
Delay 2
Next
GetCursorPos x1, y1
If x = 終點X and y = 終點Y Then Exit Do
Loop
GetCursorPos x, y
MsgBox x & "," & y
EndScript
以上按键代码 求教 如何转换成 TC代码、、、
|
|