Delay 200
RightClick 1
Delay 1000
KeyPress "P", 1
Delay 22000
KeyDown 18, 1
KeyPress 49, 1
KeyUp 18, 1
End If
End If
FindPic 100, 100, 1024, 768, "Attachment:\皇宫燕.bmp", 0.9, intX, intY
If intX > 100 And intY > 100 Then 
	Delay 1000	
KeyPress "P", 1	
	Delay 1000
MoveTo 500, 374
LeftClick 1
	Delay 1000
KeyPress "2", 1
Delay 6000
KeyPress "P", 1
Delay 1000	
FindPic 200,200,900,400,"Attachment:\矿山1.bmp",0.9,intX,intY
If intX > 200 And intY > 200 Then
MoveTo intX + 10 , intY + 25
Delay 200
RightClick 1
Delay 1000
KeyPress "P", 1
Delay 22000
KeyDown 18, 1
KeyPress 49, 1
KeyUp 18, 1
End If
End If	
End Sub
Sub 帐号密码01 
If Var1=1 Then  
Goto 标记	
End If
MoveTo Var10, 754
LeftClick 1
Delay 2500
Rem 标记
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 Var2
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 Var3
Delay 1000
KeyPress "Enter", 1
Delay 3000
End Sub
Sub 帐号密码02
MoveTo Var10+Var11, 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 Var4
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 Var5
KeyPress "Enter", 1
Delay 3000