| 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
 |