多线程同步操作多个窗口.docVIP

多线程同步操作多个窗口 RunApp notepad.exe RunApp notepad.exe RunApp notepad.exe Delay 2000 Dimenv temp_Hwnd temp_Hwnd = 0 Dim str, arr, i str = Plugin.Window.Search(无标题 - 记事本) arr = Split(str, |) For i = 0 To UBound(arr) - 1 temp_Hwnd = Plugin.Window.FindEx(arr(i), 0, Edit, 0) BeginThread WriteString While temp_Hwnd 0判断多线程已经启动完毕，继续循环下一个。 Delay 500 Wend Next EndScript Function WriteString() Dim str, Hwnd Hwnd = temp_Hwnd temp_Hwnd = 0 Do str = WaitKey If Hwnd Plugin.Window.GetKeyFocusWnd Then Call Plugin.Bkgnd.KeyPress(Hwnd, str) End If Loop End Function 多线程多开窗口同步执行与子线程间的数值如何传递： Dimenv IsThread, i Dim arr_Thread() For i = 0 To 2 ? ? IsThread = False未启动线程 ? ? Redim Preserve arr_Thread(i) ? ? arr_Thread(i) = BeginThread(EnterThread) ? ? While IsThread = False未启动成功，等待中 ? ?? ???Delay 500 ? ? Wend ? ? 跳出循环说明 IsThread = True，已经执行到了，循环继续启动下一个 Next EndScript结束主线，但子线程还会继续运行 函数调用////////////////////////////////////////// Function EnterThread() ? ? Dim n ? ? n = i ? ? IsThread = True ? ? Do ? ?? ???TracePrint 运行线程： n ? ?? ???Delay 500 ? ? Loop End Function 多线程运行中单独停止某个子线程演示： 环境变量声明 Dimenv Hwnd, IsThread IsThread = False Do ? ? Hwnd = Plugin.Window.Find(Notepad, 无标题 - 记事本) ? ? If Hwnd = 0 Then ? ?? ???RunApp notepad.exe : Delay 2000 ? ?? ???TracePrint 运行记事本 ? ? End If Loop While Hwnd = 0 获得记事本中输入子窗口句柄，以便按键输入内容 Hwnd = Plugin.Window.FindEx(Hwnd, 0, Edit, 0) 全局变量声明 Dim IdThread 主循环↓ Do ? ? If WaitKey() = 81 Then ? ?? ???If IsThread = False Then? ? ?? ?? ?? ?IdThread = BeginThread(WriteString) ? ?? ?? ?? ?Do ? ?? ?? ?? ?? ? TracePrint 等待线程启动！ ? ?? ?? ?? ?? ? Delay 500 ? ?? ?? ?? ?Loop While IsThread = False ? ?? ?? ?? ?TracePrint 线程启动成功！ ? ?? ???Else ? ?? ?? ?? ?TracePrint 线程停止操作！ ? ?? ?? ?? ?StopThread IdThread ? ?? ?? ?? ?IsThread = False ? ?? ???End If ? ? End If Loop 以下是函数区域↓ Function WriteString() ? ? IsThread = True ? ? Do ? ?? ???Call Plugin.Bkgnd.KeyPress(Hwnd, 65) ? ?? ???Delay 500 ? ? Loop End Fun