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