FindPic 0,0,1024,768,"Attachment:\常规战.bmp",0.7,cgtX,cgtY
If cgtX > 0 And cgtY > 0 Then
KeyPress "Esc", 1
Delay 100
MoveTo cgtX+944, cgtY+6
Delay 300
LeftClick 1
Delay 300
End If
FindPic 0,0,1440,900,"Attachment:\个人战.bmp",0.9,grzX,grzY
If grzX > 0 And grzY > 0 Then
KeyPress "Esc", 1
Delay 100
MoveTo cgtX+944, cgtY+6
Delay 300
LeftClick 1
Delay 300
End If
FindPic 0,0,1440,900,"Attachment:\死亡竞争.bmp",0.9,swX,swY
If swX > 0 And swY > 0 Then
KeyPress "Esc", 1
Delay 100
MoveTo swX+944, swY+6
Delay 300
LeftClick 1
Delay 300
End If
FindPic 0,0,1440,900,"Attachment:\大将战.bmp",0.9,djzX,djzY
If djzX > 0 And djzY > 0 Then
KeyPress "Esc", 1
Delay 100
MoveTo swX+944, swY+6
Delay 300
LeftClick 1
Delay 300
End If
KeyPress "Esc", 1
Form1.tou.Picture = "C:\tou.bmp"
FindPic 0,0,1024,768,"C:\tou.bmp",0.9,touX,touY
If touX > 0 And touY > 0 Then
MoveTo touX, touY
Delay 300
LeftDoubleClick 1
Delay 3000
End If
FindPic 0,0,1440,900,"Attachment:\高达.bmp",0.9,gdX,gdY
If gdX > 0 And gdY > 0 Then
Rem 开始游戏
Delay 1000
FindPic 0,0,1440,900,"Attachment:\开始游戏.bmp",0.9,ksyxX,ksyxY
If ksyxX > 0 And ksyxY > 0 Then
MoveTo ksyxX, ksyxY
Delay 300
LeftClick 1
Delay 3000
End If
FindPic 0,0,1440,900,"Attachment:\高达.bmp",0.9,gdX,gdY
If gdX > 0 And gdY > 0 Then
Goto 开始游戏
End If
End If
FindPic 0,0,1440,900,"Attachment:\密码.bmp",0.8,mmX,mmY
If mmX > 0 And mmY > 0 Then
输入账号 = Form1.输入账号.Text
输入密码 = Form1.输入密码.Text
MoveTo mmX+111, mmY-14
Delay 500
LeftClick 1
Delay 500
KeyPress "BackSpace", 20
Delay 500
SayString Form1.输入账号.Text
Delay 500
MoveTo mmX+111, mmY+7
Delay 500
LeftClick 1
Delay 500
SayString Form1.输入密码.Text
Delay 1000
MoveTo mmX+86, mmY+64
Delay 500
LeftClick 1
End If
FindPic 0,0,1440,900,"Attachment:\VS1.bmp",0.9,vsyX,vsyY
If vsyX > 0 And vsyY > 0 Then
Delay 500
MoveTo vsyX, vsyY
Delay 500
LeftClick 1
Delay 3000
FindPic 0,0,1440,900,"Attachment:\高级频道1.bmp",1,gjX,gjY
If gjX > 0 And gjY > 0 Then
MoveTo gjX, gjY
Delay 500
LeftClick 1
Delay 3000
End If
End If
FindPic 0,0,1440,900,"Attachment:\VS2.bmp",0.9,vsyX,vsyY
If vsyX > 0 And vsyY > 0 Then