冰楓論壇

標題: 【轉貼】8/18 口袋楓之谷 免費掛機輔助主程式 V3 版 [打印本頁]
作者: copy    時間: 2015-8-18 17:09
標題: 【轉貼】8/18 口袋楓之谷 免費掛機輔助主程式 V3 版
V3 剛剛測試了一下 除了可能比較難抓到視窗之外 其餘都算滿穩的(抓到後 百分百能正常執行)
補血延遲 記得調高...500毫秒以上 比較穩 (=1.5秒循環一次) 秒數太低 有可能導致鍵盤精靈崩潰
而斷線 重連也多了 延遲秒數 點擊自動練功(預設5秒後點擊 可以自己在加時間)
斷線延遲跟補血延遲 我多設定了 2個主線 同時逕行  不會互相延遲

所有點擊座標 都需要自行設定 基本上功能算已經很穩了(當然啦 你要能正常執行 根抓到框)

我第一頁教學 刪掉囉 其餘往下面找

還有前台也刪掉了~~~~(因為懶得除錯)  

光除錯 有時候就花了我10多個小時 (功力 不購 有時候是 漏打字..orz )

總之v3板 應該是最後一版了~
可以問問 可以正常執行的人

085500tz22fc2cep4ptsbz



再問腳本碼的~我也不吝嗇 貼出來了~
需要的自行參考吧~~~~
線程1 = BeginThread (功能)
線程2 = BeginThread (斷線偵測)
  1. QQ =Form1.InputBox7.Text
  2. KK = Plugin.Window.Find(0, QQ)

  4. MM = Form1.InputBox8.Text
  5. SS = Form1.InputBox9.Text
  6. DD = Form1.InputBox10.Text
  7. FF = Form1.InputBox11.Text
  8. NN = Form1.InputBox6.Text
  9. RR = Form1.InputBox12.Text
  10. WW = Plugin.Bkgnd.GetPixelColor(KK,MM,SS)


  13. Call 功能
  14. Call 斷線偵測

  16. Sub 斷線偵測
  17. Do
  18. Call 斷線
  19. Delay 2000
  20. Loop
  21. End Sub
  22. Sub 功能
  23. Do
  24. Delay NN
  25. Call 補血
  26. Call 技能

  28. KK = Plugin.Window.Find(0, QQ)
  29. Loop
  30. End Sub
  31. Sub 斷線
  32. QQ =Form1.InputBox7.Text
  33. KK = Plugin.Window.Find(0, QQ)
  34. YY = Form1.InputBox13.Text
  35. UU = Form1.InputBox14.Text
  36. OO = Form1.InputBox15.Text
  37. TY = Form1.InputBox16.Text
  38. TX = Form1.InputBox17.Text
  39. RY = Form1.InputBox18.Text
  40. LL = Plugin.Bkgnd.GetPixelColor(KK,YY,UU)
  41. If LL = OO Then

  43. Call Plugin.Bkgnd.MoveTo(KK,YY,UU)
  44. Delay 200
  45. Call Plugin.Bkgnd.LeftClick(KK,YY,UU)
  46. Delay 5000
  47. Delay RY
  48. Call Plugin.Bkgnd.LeftClick(KK,TY,TX)
  49. Delay 200
  50. Call Plugin.Bkgnd.MoveTo(KK,TY,TX)
  51. End If




  56. End Sub



  60. Sub 技能
  61. QQ =Form1.InputBox7.Text

  63. WW = Plugin.Bkgnd.GetPixelColor(KK,MM,SS)
  64. MM = Form1.InputBox8.Text
  65. SS = Form1.InputBox9.Text
  66. DD = Form1.InputBox10.Text
  67. FF = Form1.InputBox11.Text
  68. KK = Plugin.Window.Find(0, QQ)
  69. RR = Form1.InputBox12.Text

  71. KK = Plugin.Window.Find(0, QQ)
  72. If WW = DD Then
  73. Exit Sub

  75. Else

  77. KK = Plugin.Window.Find(0, QQ)
  78. Call 點擊2

  80. Delay 200

  82. End If










  93. End Sub
  94. Sub 補血
  95. QQ =Form1.InputBox7.Text
  96. ZZ = Form1.InputBox1.Text
  97. XX = Form1.InputBox2.Text
  98. CC = Form1.InputBox3.Text
  99. VV = Form1.InputBox4.Text
  100. BB = Form1.InputBox5.Text
  101. NN = Form1.InputBox6.Text
  102. KK = Plugin.Window.Find(0, QQ)
  103. EE = Plugin.Bkgnd.GetPixelColor(KK,ZZ,XX)




  108. If EE = CC Then

  110. Call 點擊1
  111. Delay 300
  112. End If


  115. END Sub

  117. Sub 點擊1
  118. Call Plugin.Bkgnd.MoveTo(KK,VV,BB)
  119. Delay 200
  120. Call Plugin.Bkgnd.LeftClick(KK,VV,BB)


  123. End Sub
  124. Sub 點擊2
  125. Call Plugin.Bkgnd.MoveTo(KK,FF,RR)
  126. Delay 200
  127. Call Plugin.Bkgnd.LeftClick(KK,FF,RR)


  130. End Sub
複製代碼
作者: 蔡皓宇    時間: 2015-8-18 20:34
提示: 作者被禁止或刪除 內容自動屏蔽
作者: 110125    時間: 2015-8-18 21:12
下載下來看看
作者: h4514503    時間: 2015-8-18 21:41

下載下來看看 好東西!!
作者: 801258012580125    時間: 2015-8-19 02:50
好用到沒話說   感謝大大的更新
推~
作者: e21270    時間: 2015-8-19 05:43
不可或缺的神物阿
作者: ben16844660    時間: 2015-8-19 09:40
好東西!! 下載看看
作者: whlckc107    時間: 2015-8-19 10:11
提示: 作者被禁止或刪除 內容自動屏蔽
作者: 七合變體魔王    時間: 2015-8-19 11:38
!! 這個一定很好用

就好像現今的外掛 那種感覺～
作者: AS02258    時間: 2015-8-19 12:25
來試試看囉
作者: s6365638    時間: 2015-8-19 22:18
感謝大大  超方便的啊!!!!
作者: aa0113    時間: 2015-8-19 23:09
不知道我的電腦有沒有 支援
作者: skycloud227    時間: 2015-8-19 23:18
對我有非常的幫助 謝謝不吝嗇的分享腳本碼
作者: p03780101    時間: 2015-8-20 13:13
來看看是否是我要找的東西，感謝分享
作者: s124437354    時間: 2015-8-20 14:17
感謝你,快來用看看!
作者: z105820    時間: 2015-8-28 22:50
提示: 作者被禁止或刪除 內容自動屏蔽
作者: eric90709    時間: 2015-8-29 15:10
感謝你,樂意分享ㄒ ㄒ
作者: edc851203y    時間: 2015-8-29 19:57
提示: 作者被禁止或刪除 內容自動屏蔽



歡迎光臨 冰楓論壇 (https://bingfong.com/) Powered by 冰楓