End Sub
Sub 帐号密码03
MoveTo Var10+Var11*2, 754
LeftClick 1
Delay 1500
For i=1 To 3
FindPic 0,0,1024,768,"Attachment:\ID.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then 	
MoveTo intX + 110, intY + 5
Delay 300
End If
Next
LeftClick 1
Delay 1000
KeyPress "BackSpace", 14
Delay 1000
SayString Var6
Delay 1000
For i=1 To 3
FindPic 0, 0, 1024, 768, "Attachment:\密码.bmp", 0.9, intX, intY
If intX > 0 And intY > 0 Then
MoveTo intX + 80, intY + 5
Delay 300
End If
Next
LeftClick 1
Delay 1000
SayString Var7
KeyPress "Enter", 1
Delay 3000
End Sub
Sub 帐号密码04
MoveTo Var10+Var11*3, 754
LeftClick 1
Delay 1500
For i=1 To 3
FindPic 0,0,1024,768,"Attachment:\ID.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then 	
MoveTo intX + 110, intY + 5
Delay 300
End If
Next
LeftClick 1
Delay 1000
KeyPress "BackSpace", 14
Delay 1000
SayString Var8
Delay 1000
For i=1 To 3
FindPic 0, 0, 1024, 768, "Attachment:\密码.bmp", 0.9, intX, intY
If intX > 0 And intY > 0 Then
MoveTo intX + 80, intY + 5
Delay 300
End If
Next
LeftClick 1
Delay 1000
SayString Var9
KeyPress "Enter", 1
Delay 3000
End Sub
Sub 帐号密码05
MoveTo Var10+Var11*4, 754
LeftClick 1
Delay 1500
For i=1 To 3
FindPic 0,0,1024,768,"Attachment:\ID.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then 	
MoveTo intX + 110, intY + 5
Delay 300
End If
Next
LeftClick 1
Delay 1000
KeyPress "BackSpace", 14
Delay 1000
SayString Var17
Delay 1000
For i=1 To 3
FindPic 0, 0, 1024, 768, "Attachment:\密码.bmp", 0.9, intX, intY
If intX > 0 And intY > 0 Then
MoveTo intX + 80, intY + 5
Delay 300
End If
Next
LeftClick 1
Delay 1000
SayString Var18
KeyPress "Enter", 1
Delay 3000
End Sub
Sub 帐号密码06
MoveTo Var10+Var11*5, 754
LeftClick 1
Delay 1500
For i=1 To 3
FindPic 0,0,1024,768,"Attachment:\ID.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then 	
MoveTo intX + 110, intY + 5
Delay 300