a1 = form1.游戏路径.text a10 = form1.InputBox1.text a2 = form1.InputBox2.text a3 = form1.InputBox3.text a4 = form1.InputBox4.text a5 = form1.InputBox5.text a6 = form1.InputBox6.text a7 = form1.InputBox7.text a8 = form1.InputBox8.text a9 = form1.InputBox9.text YanShi = form1.InputBox11.text c = form1.InputBox10.text If Form1.CheckBox1.Value = 1 Then Call 运行1() Else End If If Form1.CheckBox2.Value = 1 Then Call 运行2() Else End If If Form1.CheckBox3.Value = 1 Then Call 运行3() Else End If If Form1.CheckBox4.Value = 1 Then Call 运行4() Else End If Call 运行1() Sub 运行1() Rem 开始1 Delay 1000 Delay YanShi MoveTo 40, 17 Delay YanShi LeftClick 1 Delay 50 KeyPress "Enter", 1 Delay 100 Delay YanShi MoveTo 600, 300 SaveMousePos i=0 While i=0 Delay YanShi FindColor 0,0,1024,768,"5ac3ef",intX,intY If intx>0 and inty>0 Delay YanShi i=1 EndIf EndWhile w1 = Plugin.Window.Find(0, "大话西游 II ($Revision: 214866 $)") Delay 50 Call Plugin.Window.Active(w1) Delay 50 Call Plugin.Window.Move(w1, 1, 1) Delay YanShi Rem b1 IfColor 8,34,"2961A5",0 Then Delay YanShi MoveTo 579, 123 Delay YanShi LeftClick 1 Delay YanShi Else Goto b1 End If Delay YanShi Rem b2 IfColor 52,47,"394129",0 Then RightClick 1 Delay YanShi Else Goto b2 End If Delay YanShi Rem b3 IfColor 36,45,"314129",0 Then Delay YanShi SayString a10 Delay YanShi Else Goto b3 End If Delay YanShi IfColor 384,390,"31CBFF",0 Then Delay YanShi MoveTo 414, 374 Delay YanShi LeftClick 1 Delay YanShi Call 创建1() Else End If Delay 500 Call 关闭() Delay YanShi Goto 开始1 End Sub Sub 运行2()