End If Rem 选择人物2 Delay sp2*1000 FindPic 0,0,800,600,"Attachment:\选择人物.bmp",0.9,LWX,LWY If LWX > 0 And LWY > 0 Then Delay sp2*1000 KeyPress "Enter", 1 Delay sp2*1000 Else Goto 进入2 End If Rem 进入游戏了2 Delay 500 FindPic 0,0,800,600,"Attachment:\进入游戏了.bmp",0.9,JLX,JLY If JLX > 0 And JLY > 0 Then Delay sp2*1000 Call Plugin.Window.Min(Hwnd) Delay 500 Goto 开始3 Else Goto 进入游戏了2 End If Else Goto 开始3 End if Rem 开始3 If xz3=1 Then Delay 500 FindPic 0,0,1024,768,"Attachment:\三国图标.bmp",0.9,intX,intY If intX > 0 And intY > 0 Then MoveTo intX,intY Delay 500 LeftDoubleClick 1 Goto 程序运行3 End If MessageBox "没找到三国快捷" Goto 结束 Rem 程序运行3 Delay sp3*1000 MoveTo 866,484 LeftClick 1 Delay 1000 FindPic 0,0,1024,768,"Attachment:\网速不好.bmp",0.9,WSX,WSY If WSX > 0 And WSY > 0 Then Delay sp2*1000 MoveTo WSX+133,WSY+64 Delay sp3*1000 LeftClick 1 Delay sp3*1000 End If FindPic 0,0,1024,768,"Attachment:\选线了.bmp",0.9,intX1,intY1 If intX1 > 0 And intY1 > 0 Then Delay sp3*1000 Hwnd = Plugin.Window.Find(0, "QQ三国1.0Beta21Build4") Call Plugin.Window.Move(Hwnd, 0, 0) Delay sp3*1000 KeyPress "Enter", 1 Delay 500 Rem 输入帐号3 Delay 500 FindPic 0,0,800,600,"Attachment:\输入帐号.bmp",0.9,ZHX,ZHY If ZHX > 0 And ZHY > 0 Then MoveTo 361,274 LeftDoubleClick 1 Delay sp3*1000 SayString zh3 Delay 1000 moveto 359,300 LeftClick 1 Delay sp3*1000 SayString mm3 Delay 500 KeyPress "Enter", 1 Rem 进入3 Delay sp3*5000 FindPic 0,0,800,600,"Attachment:\输入验证码.bmp",0.9,YZX3,YZY3 If YZX3 > 0 And YZY3 > 0 Then For yz Beep Delay 1000 Next Call Plugin.Window.Min(Hwnd) Delay sp3*1000 Goto 开始3 End If Else Goto 输入帐号3 End if Else Goto 程序运行3 End If Rem 选择人物3 Delay sp3*1000 FindPic 0,0,800,600,"Attachment:\选择人物.bmp",0.9,LWX,LWY If LWX > 0 And LWY > 0 Then Delay sp3*1000 KeyPress "Enter", 1 Delay sp3*1000