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