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