看板 EzHotKey 關於我們 聯絡資訊
我用多線程的內建說明 加入滑鼠拖移 可是只有第一個視窗能有滑鼠拖移的動作 其他的兩個視窗並沒有 請問要怎麼做到 多視窗後台滑鼠拖移 =========================================== MessageBox "多線程命令還在測試當中,並不穩定,請謹慎使用!" Dimenv Hwnd1 RunApp "notepad.exe" RunApp "notepad.exe" RunApp "notepad.exe" Do Delay 300 Hwnd = Plugin.Window.Search("未命名 - 記事本") MyArray = Split(Hwnd, "|") If UBound(MyArray) >= 0 Then For i = 0 To UBound(MyArray) - 1 hwndEx = Clng(MyArray(i)) Call Plugin.Window.Move(hwndEx, i * 200 + 100, i * 200 + 50) Call Plugin.Window.Active(hwndEx) Hwnd1 = Plugin.Window.FindEx(hwndEx, 0, "Edit", 0) BeginThread 打字 Delay 100 Next Exit Do End If Loop Do Delay 500 Loop Sub 打字() Hwnd2=Hwnd1 For i = 0 To 9 For 30 Call Plugin.Bkgnd.SendString(Hwnd2, i) Delay 5 Next Call Plugin.Bkgnd.KeyPress(Hwnd2, 13) Delay 200 Next Call Plugin.Bkgnd.LeftDown(Hwnd2, 10, 10) Delay 30 Call Plugin.Bkgnd.MoveTo(Hwnd2, 50, 40) Delay 30 Call Plugin.Bkgnd.LeftUp(Hwnd2, 90, 90) ExitScript End Sub Sub OnScriptExit() MessageBox "腳本已經停止!" End Sub =========================================== 懇請各位大神幫幫我 -- ※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 218.161.34.195 ※ 文章網址: https://www.ptt.cc/bbs/EzHotKey/M.1501117163.A.01A.html