作者KFCienien (延延)
看板EzHotKey
标题[请问] 按键精灵 如何多视窗 後台滑鼠拖移
时间Thu Jul 27 08:59:21 2017
我用多线程的内建说明
加入滑鼠拖移
可是只有第一个视窗能有滑鼠拖移的动作
其他的两个视窗并没有
请问要怎麽做到 多视窗後台滑鼠拖移
===========================================
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://webptt.com/cn.aspx?n=bbs/EzHotKey/M.1501117163.A.01A.html