Delay 20 Hwnd = Plugin.Window.Find(0, "穿越火线(CF)→√窗口化已开启√[游戏中按ESC键可解除鼠标限制][By:天堂][感谢大脚]") Delay 20 Call Plugin.Window.Move(Hwnd, 0, 0) SetSimMode 2 Sub 启动有效() FindPic 0,0,1024,768,"Attachment:\在大厅里.bmp",0.9,intX,intY If intX > 0 And intY > 0 Then MoveTo 498, 462 Delay 1000 LeftClick 1 Delay 1000 MoveTo 480, 299 Delay 500 KeyPress "BackSpace", 17 Delay 1000 SayString Form1.InputBox1.Text Delay 1000 MoveTo 434, 418 Delay 1000 LeftDoubleClick 1 Delay 500 SayString Form1.InputBox2.Text Delay 500 KeyPress "BackSpace", 10 Delay 1000 SayString Form1.InputBox2.Text Delay 500 KeyPress "Enter", 1 Delay 1000 End If If Form1.ComboBox1.ListIndex = 0 Then Delay 500 MoveTo 165, 272 Delay 500 LeftClick 1 Delay 500 ElseIf Form1.ComboBox1.ListIndex = 1 Then Delay 500 MoveTo 171, 286 LeftClick 1 Delay 500 ElseIf Form1.ComboBox1.ListIndex = 2 Then Delay 500 MoveTo 168, 305 LeftClick 1 ElseIf Form1.ComboBox1.ListIndex = 3 Then Delay 500 MoveTo 168, 323 LeftClick 1 ElseIf Form1.ComboBox1.ListIndex = 4 Then Delay 500 MoveTo 167, 343 LeftClick 1 ElseIf Form1.ComboBox1.ListIndex = 5 Then Delay 500 MoveTo 168, 362 LeftClick 1 ElseIf Form1.ComboBox1.ListIndex = 6 Then Delay 500 MoveTo 172, 376 LeftClick 1 End If If Form1.团队地图1.ListIndex = 0 Then Delay 500 Delay 500 MoveTo 235, 272 LeftClick 1 Delay 500 MoveTo 163, 343 LeftClick 1 Delay 500 ElseIf form1.团队地图1.ListIndex = 1 Then Delay 500 Delay 500 MoveTo 235, 272 LeftClick 1 Delay 500 MoveTo 162, 361 LeftClick 1 Delay 500 ElseIf form1.团队地图1.ListIndex = 2 Then Delay 500 Delay 500 MoveTo 235, 272 Delay 700 LeftClick 1 Delay 500 MoveTo 233, 453 For 6 LeftClick 1 Delay 700 Next MoveTo 163, 448