我用多线程的内建说明
加入鼠标拖移
可是只有第一个视窗能有鼠标拖移的动作
其他的两个视窗并没有
请问要怎么做到 多视窗后台鼠标拖移
===========================================
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
===========================================
恳请各位大神帮帮我