Delay 1000 '等待1秒 //选择网络 Select Case Form1.网络.ListIndex Case 0 MoveTo 50, 50 '【网络坐标】请自行修改 Case 1 MoveTo 50, 100 '【网络坐标】请自行修改 Case 2 MoveTo 50, 150 '【网络坐标】请自行修改 End Select Delay 1000 '等待1秒 LeftClick 1 '鼠标左键点击一次 Delay 1000 '等待1秒 //选择服务器 Select Case Form1.服务器.ListIndex Case 0 MoveTo 100, 50 '【服务器坐标】请自行修改 Case 1 MoveTo 100, 100 '【服务器坐标】请自行修改 End Select Delay 1000 '等待1秒 LeftClick 1 '鼠标左键点击一次 Delay 1000 '等待1秒 //选择角色 Select Case Form1.角色.ListIndex Case 0 MoveTo 100, 100 '【角色坐标】请自行修改 Case 1 MoveTo 200, 100 '【角色坐标】请自行修改 Case 2 MoveTo 300, 100 '【角色坐标】请自行修改 End Select Delay 1000 '等待1秒 LeftClick 1 '鼠标左键点击一次 Delay 1000 '等待1秒 //循环等待游戏登录到场景中 Do Delay 1000 '等待1秒 IfColor 50,5,"0000FF",0 Then '【坐标与颜色】需要自行修改。判断游戏已经进入场景了 Exit Do '离开循环等待 End If Loop //初始防卡时间设置 Dim t1 t1=now //<>--------------------------------------------------开始执行挂机脚本--------------------------<> Rem 开始 Call 人物状态保护 Rem 找怪 KeyPress "Tab",1 '找怪热键 Delay 500 //在这里2个延时中间可以加入【捡物】处理 Delay 500 //判断是否找到怪物 IfColor 50,5,"0000FF",0 Then '【坐标与颜色】需要自行修改 //开始打怪 Do KeyPress "A", 1 '打怪攻击热键 Delay 200 Call 人物状态保护 //<>------------------------------------------防卡设置--------------------------<> If DateDiff("s",t1,now) >= Form1.等待.Text Then t1=now Exit Do End If Delay 200 Loop End If //<>--------------------------------------------------复活方式设置--------------------------<> If Form1.复活方式.ListIndex > 0 Then IfColor 0,0,"0",0 Then '【坐标与颜色】需要自行修改 //执行复活方式 If Form1.复活方式.ListIndex = 1 Then ElseIf Form1.复活方式.ListIndex = 2 Then ElseIf Form1.复活方式.ListIndex = 3 Then End If End If End If //<>--------------------------------------------------死亡处理设置--------------------------<> If Form1.死亡处理.ListIndex > 0 Then IfColor 0,0,"0",0 Then '【坐标与颜色】需要自行修改 //执行报警 If Form1.死亡处理.ListIndex = 1 Then Call Plugin.Media.Play(Form1.路径.Text) Delay 5000 Goto 结束 '脚本停止 ElseIf Form1.死亡处理.ListIndex = 2 Then ElseIf Form1.死亡处理.ListIndex = 3 Then End If