V3 剛剛測試了一下 除了可能比較難抓到視窗之外 其餘都算滿穩的(抓到後 百分百能正常執行)
補血延遲 記得調高...500毫秒以上 比較穩 (=1.5秒循環一次) 秒數太低 有可能導致鍵盤精靈崩潰
而斷線 重連也多了 延遲秒數 點擊自動練功(預設5秒後點擊 可以自己在加時間)
斷線延遲跟補血延遲 我多設定了 2個主線 同時逕行 不會互相延遲
所有點擊座標 都需要自行設定 基本上功能算已經很穩了(當然啦 你要能正常執行 根抓到框)
我第一頁教學 刪掉囉 其餘往下面找
還有前台也刪掉了~~~~(因為懶得除錯)
光除錯 有時候就花了我10多個小時 (功力 不購 有時候是 漏打字..orz )
總之v3板 應該是最後一版了~
可以問問 可以正常執行的人
所有站內附件皆會附上安全掃描報告 請會員查看純淨度百分比後判斷使用
相關檔案須知: 取得檔案前,請先詳細閱讀文章內容 避免不必要錯誤與誤會發生。 也可多參考文章討論樓層內容 了解附件檔案相關討論資訊。
再問腳本碼的~我也不吝嗇 貼出來了~
需要的自行參考吧~~~~
線程1 = BeginThread (功能)
線程2 = BeginThread (斷線偵測)- QQ =Form1.InputBox7.Text
- KK = Plugin.Window.Find(0, QQ)
- MM = Form1.InputBox8.Text
- SS = Form1.InputBox9.Text
- DD = Form1.InputBox10.Text
- FF = Form1.InputBox11.Text
- NN = Form1.InputBox6.Text
- RR = Form1.InputBox12.Text
- WW = Plugin.Bkgnd.GetPixelColor(KK,MM,SS)
- Call 功能
- Call 斷線偵測
- Sub 斷線偵測
- Do
- Call 斷線
- Delay 2000
- Loop
- End Sub
- Sub 功能
- Do
- Delay NN
- Call 補血
- Call 技能
- KK = Plugin.Window.Find(0, QQ)
- Loop
- End Sub
- Sub 斷線
- QQ =Form1.InputBox7.Text
- KK = Plugin.Window.Find(0, QQ)
- YY = Form1.InputBox13.Text
- UU = Form1.InputBox14.Text
- OO = Form1.InputBox15.Text
- TY = Form1.InputBox16.Text
- TX = Form1.InputBox17.Text
- RY = Form1.InputBox18.Text
- LL = Plugin.Bkgnd.GetPixelColor(KK,YY,UU)
- If LL = OO Then
- Call Plugin.Bkgnd.MoveTo(KK,YY,UU)
- Delay 200
- Call Plugin.Bkgnd.LeftClick(KK,YY,UU)
- Delay 5000
- Delay RY
- Call Plugin.Bkgnd.LeftClick(KK,TY,TX)
- Delay 200
- Call Plugin.Bkgnd.MoveTo(KK,TY,TX)
- End If
- End Sub
- Sub 技能
- QQ =Form1.InputBox7.Text
- WW = Plugin.Bkgnd.GetPixelColor(KK,MM,SS)
- MM = Form1.InputBox8.Text
- SS = Form1.InputBox9.Text
- DD = Form1.InputBox10.Text
- FF = Form1.InputBox11.Text
- KK = Plugin.Window.Find(0, QQ)
- RR = Form1.InputBox12.Text
- KK = Plugin.Window.Find(0, QQ)
- If WW = DD Then
- Exit Sub
- Else
- KK = Plugin.Window.Find(0, QQ)
- Call 點擊2
- Delay 200
- End If
- End Sub
- Sub 補血
- QQ =Form1.InputBox7.Text
- ZZ = Form1.InputBox1.Text
- XX = Form1.InputBox2.Text
- CC = Form1.InputBox3.Text
- VV = Form1.InputBox4.Text
- BB = Form1.InputBox5.Text
- NN = Form1.InputBox6.Text
- KK = Plugin.Window.Find(0, QQ)
- EE = Plugin.Bkgnd.GetPixelColor(KK,ZZ,XX)
- If EE = CC Then
- Call 點擊1
- Delay 300
- End If
- END Sub
- Sub 點擊1
- Call Plugin.Bkgnd.MoveTo(KK,VV,BB)
- Delay 200
- Call Plugin.Bkgnd.LeftClick(KK,VV,BB)
- End Sub
- Sub 點擊2
- Call Plugin.Bkgnd.MoveTo(KK,FF,RR)
- Delay 200
- Call Plugin.Bkgnd.LeftClick(KK,FF,RR)
- End Sub
複製代碼
|