End If
Next
LeftClick 1
Delay 1000
KeyPress "BackSpace", 14
Delay 1000
SayString Var15
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 Var16
KeyPress "Enter", 1
Delay 3000
End Sub

If Var1 = 1 Then
//登录01
Call 登录
Call 帐号密码01
Call 挖矿
Delay 20000
Call 自动挖矿	
Rem 标记01 			
For b = 1 To 2
Delay 3000+Var14
Call 恢复
Call 卖矿01
Delay 4500
Call 卖矿
Delay 22000
Call 自动挖矿	
Next 
Call 放宝石
Goto 标记01
End If
//登录02
If Var1 = 2 Then 
Call 登录
For i=1 To 2
MoveTo Var10+Var11, 754
LeftClick 1
Delay 200
Next
Call 帐号密码01
Call 挖矿
Call 帐号密码02
Call 挖矿
MoveTo Var10, 754
LeftClick 1
Call 自动挖矿
MoveTo Var10+Var11, 754
LeftClick 1
Delay 16000
Call 自动挖矿	
Rem 标记02	
For b = 1 To 20
Delay 3000+Var14
MoveTo Var10, 754
Delay 1000
LeftClick 1
Call 恢复
Call 卖矿01
Delay 4500
Call 卖矿
Delay 22000
Call 自动挖矿
MoveTo Var10+Var11, 754
Delay 1000
LeftClick 1
Call 恢复
Call 卖矿01
Delay 4500
Call 卖矿
Delay 22000
Call 自动挖矿	
Next
 
MoveTo Var10, 754
LeftClick 1
Call 放宝石

MoveTo Var10+Var11, 754
LeftClick 1
Call 放宝石
Goto 标记02
End If
//登录03
If Var1 = 3 Then
Call 登录
For i=1 To 2
MoveTo Var10+Var11, 754
LeftClick 1
Delay 200