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