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