我把按键精灵自动投的script 发到这里来 省得太显眼
MessageBox "Click Alisan"
WaitClick
GetCursorPos x1, y1
Delay 300
MessageBox "Email input,paste email,5s"
WaitClick
GetCursorPos x2, y2
Delay 5000
MessageBox "DoB,Month"
WaitClick
GetCursorPos x41, y41
Delay 300
WaitClick
GetCursorPos x42, y42
Delay 300
MessageBox "DoB,Day"
WaitClick
GetCursorPos x43, y43
Delay 300
WaitClick
GetCursorPos x44, y44
Delay 300
MessageBox "DoB,Year"
WaitClick
GetCursorPos x45, y45
Delay 300
WaitClick
GetCursorPos x46, y46
Delay 300
MessageBox "Agree"
WaitClick
GetCursorPos x5, y5
Delay 300
MessageBox "login"
WaitClick
GetCursorPos x6, y6
Delay 300
MessageBox "+"
WaitClick
GetCursorPos x7, y7
Delay 300
MessageBox "confirm"
WaitClick
GetCursorPos x8, y8
Delay 300
MessageBox "Cast all"
WaitClick
GetCursorPos x9, y9
Delay 300
MessageBox "Again"
WaitClick
GetCursorPos x10, y10
Delay 300
MessageBox "logout"
WaitClick
GetCursorPos x11, y11
Delay 300
Dim vv1
vv1 = 0
Rem start
Dim vv2
vv2 = InputBox("Enter loop times:", "", "2000")
MessageBox "Start!"
Delay 1000
//%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
For vv2
Delay 200
MoveTo x1, y1
Delay 200
LeftClick 1
Delay 200
MoveTo x2, y2
Delay 200
LeftClick 1
Delay 200
KeyDown "Ctrl", 1
Delay 200
KeyDown "V", 1
Delay 151
KeyUp "Ctrl", 1
Delay 200
KeyUp "V", 1
Delay 200
KeyPress "Home", 1
SayString vv1
Delay 200
MoveTo x41, y41
Delay 200
LeftDown 1
Delay 200
LeftUp 1
Delay 200
MoveTo x42, y42
Delay 200
LeftClick 1
Delay 200
MoveTo x43, y43
Delay 200
LeftDown 1
Delay 76
LeftUp 1
Delay 200
MoveTo x44, y44
Delay 200
LeftClick 1
Delay 200
MoveTo x45, y45
Delay 200
LeftDown 1
Delay 76
LeftUp 1
Delay 200
MoveTo x46, y46
Delay 200
LeftClick 1
Delay 200
MoveTo x5, y5
Delay 200
LeftClick 1
Delay 300
MoveTo x6, y6
Delay 200
LeftClick 1
Delay 1500
MoveTo x7, y7
Delay 700
LeftClick 2
Delay 700
MoveTo x8, y8
Delay 700
LeftClick 1
Delay 700
Delay 700
MoveTo x9, y9
Delay 700
LeftClick 1
Delay 700
Delay 700
MoveTo x10, y10
Delay 700
LeftClick 1
Delay 600
Delay 600
MoveTo x11, y11
Delay 500
LeftClick 1
Delay 1500
vv1=vv1+1
Next
MessageBox "Continue?"
Goto start