Call?LClick(隨機數(50,100),?隨機數(70,20))
Delay?500
Loop?
Function?隨機數(數字1,?數字2)
Dim?數字3
Randomize
數字3?=?數字1
If?數字1?>?數字2?Then?
數字3?=?數字2
End?If
隨機數=?int(abs(數字1-數字2)*rnd)+數字3
End?Function
Sub?LClick(x,?y)'鼠標左鍵點擊
MoveR?x,?y
Delay?100
LeftClick?1
Delay?100
End?Sub