Line快速加好友ID自動腳本:按鍵精靈/手機暗器

我試試看目前我是把所有的指令弄成這樣
k = Plugin.Window.Find(0, "LINE")
l = Plugin.Window.GetClientRect(k)

flxy = split(l,"|")
x = flxy(0)
y = flxy(1)
w = flxy(2)

Text = Plugin.File.ReadFileEx("c:line_id.txt")
dim MyArray

MyArray = Split(Text, "|")
If UBound(MyArray)>=0 Then
    i=Form1.InputBox1
    For UBound(MyArray)

        MoveTo x + (w - 23), y + 127
                LeftClick 1
                MoveTo x + 50, y + 127
                LeftClick 1
                SayString Cstr(MyArray(i))
                KeyPress "Enter", 1
ichk = 0
       Do while true
                Delay 900
                GetColor = GetPixelColor(x + (w / 2) - 50, y + 434)
                If GetColor = "2BC547" Then
            Delay 1000
                        MoveTo x + (w / 2) - 50, y + 434
            Delay 1000
                        LeftClick 3
                        Exit do
                End If

                GetColor = GetPixelColor(x + (w / 2) - 40, y + 284)
                If GetColor = "95E7C8" Then
                        Call Plugin.File.WriteFileEx("c:line_id_invalid.log", MyArray(i))
                End If
                               
        i = i + 1
        If ichk > 10 Then
                                 Exit do
                         End If
                 Loop

請大大幫檢查是否有要修改

手機板的只會加2位就離開了  大大能交一下嗎? 終於修改好可以讓手機使用 他只+2位

我哪邊有錯嗎?  還是延遲要再高一點?

由 手機網頁 發佈

請問現在觸摸精靈在1.1.0版能用自動練功嗎

鑒於前幾篇回覆及實驗
原來的腳本好像會漏掉隔行的帳號，但是更改delay時間以後(1000=1 sec)，還是有此問題發生~~

我發現可能的原因是第一筆帳號執行結束後，出現游標不在輸入文字框上，導致腳本漏掉輸入下一筆帳號
當中可能有很多原因...才會發生游標不在輸入文字框上...但我就不再探討@@
所以我的做法是在第一筆加入或檢查失敗後，立即將游標移至輸入文字框上
附上程式碼及檔案(可以選擇付碎鑽或手動改)

1. ...
   
2.         LeftClick 1
   
3.         MoveTo x + 50, y + 127
   
4.         LeftClick 1
   
5.         SayString Cstr(MyArray(i))
   
6.         KeyPress "Enter", 1
   
7. 
   
8. // 多延遲一秒...(1行)
   
9.         Delay 1900
   
10.         GetColor = GetPixelColor(x + (w / 2) - 50, y + 434)
    
11.         If GetColor = "2BC547" Then
    
12.                 MoveTo x + (w / 2) - 50, y + 434
    
13.                 LeftClick 3
    
14. 
    
15. // 紀錄成功帳號...(1行)
    
16.                 Call Plugin.File.WriteFileEx("c:line_id_valid.log", MyArray(i))
    
17.         End If
    
18.         GetColor = GetPixelColor(x + (w / 2) - 40, y + 284)
    
19.         If GetColor = "95E7C8" Then
    
20.                 Call Plugin.File.WriteFileEx("c:line_id_invalid.log", MyArray(i))
    
21.         End If
    
22.                
    
23. // 解決問題...(5行)
    
24.         Delay 800
    
25.         MoveTo x + (w - 23), y + 127
    
26.         LeftClick 1
    
27.         MoveTo x + 50, y + 127
    
28.         LeftClick 1       
    
29. ...

複製代碼

結果就能每一筆都檢查囉!!!

歡迎樓長及大家測試與建議

PS: 我還多加入了一行，專門用來紀錄成功的帳號，幫大家紀錄整理，這樣就可以拿來一同分享囉(c:line_id_valid.log)

EFWEFWEF++++GOOD

感謝大大的分享唷!!謝謝

實用的好物，方便多了

感謝大大分享

感謝大大無私分想

感謝大大分享~ 有了這個就方便多了