End If FindPic 0,0,1024,768,"Attachment:\选线了.bmp",0.9,intX1,intY1 If intX1 > 0 And intY1 > 0 Then Delay sp9*1000 Hwnd = Plugin.Window.Find(0, "QQ三国1.0Beta21Build4") Call Plugin.Window.Move(Hwnd, 0, 0) Delay sp9*1000 KeyPress "Enter", 1 Delay 500 Rem 输入帐号9 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 sp9*1000 SayString zh9 Delay 1000 moveto 359,300 LeftClick 1 Delay sp9*1000 SayString mm9 Delay 500 KeyPress "Enter", 1 Rem 进入9 Delay sp9*5000 FindPic 0,0,800,600,"Attachment:\输入验证码.bmp",0.9,YZX9,YZY9 If YZX9 > 0 And YZY9 > 0 Then For yz Beep Delay 1000 Next Call Plugin.Window.Min(Hwnd) Delay sp9*1000 Goto 开始10 End If Else Goto 输入帐号9 End if Else Goto 程序运行9 End If Rem 选择人物9 Delay sp9*1000 FindPic 0,0,800,600,"Attachment:\选择人物.bmp",0.9,LWX,LWY If LWX > 0 And LWY > 0 Then Delay sp9*1000 KeyPress "Enter", 1 Delay sp9*1000 Else Goto 进入9 End If Rem 进入游戏了9 Delay 500 FindPic 0,0,800,600,"Attachment:\进入游戏了.bmp",0.9,JLX,JLY If JLX > 0 And JLY > 0 Then Delay sp9*1000 Call Plugin.Window.Min(Hwnd) Delay 500 Goto 开始10 Else Goto 进入游戏了9 End If Else Goto 开始10 End if Rem 开始10 If xz10=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 程序运行10 End If MessageBox "没找到三国快捷" Goto 结束 Rem 程序运行10 Delay sp10*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 sp10*1000 MoveTo WSX+133,WSY+64 Delay sp10*1000 LeftClick 1 Delay sp10*1000 End If FindPic 0,0,1024,768,"Attachment:\选线了.bmp",0.9,intX1,intY1 If intX1 > 0 And intY1 > 0 Then Delay sp10*1000 Hwnd = Plugin.Window.Find(0, "QQ三国1.0Beta21Build4") Call Plugin.Window.Move(Hwnd, 0, 0) Delay sp10*1000 KeyPress "Enter", 1