admin管理员组

文章数量:1565357

2024年6月10日发(作者：)

多线程同步操作多个窗口

RunApp ""

RunApp ""

RunApp ""

Delay 2000

Dimenv temp_Hwnd

temp_Hwnd = 0

Dim str, arr, i

str = ("无标题 - 记事本")

arr = Split(str, "|")

For i = 0 To UBound(arr) - 1

temp_Hwnd = (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 <> FocusWnd Then

Call ss(Hwnd, str)

End If

Loop

本文标签： 完毕启动记事本无标题

版权声明：本文标题：多线程同步操作多个窗口 内容由热心网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：https://www.elefans.com/dianzi/1718032514a636403.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。