RunApp "regsvr32 c:\dm.dll /s"
Dimenv hwnd,index:index=0
hwnd = Plugin.Window.SearchEx("Notepad", 0, 0)
For i = 0 To UBound(split(hwnd,"|"))-1
BeginThread main
Delay 100'必须加,不然会导致线程优先级错误
index=index+1
Next
Sub main
Dim hwnds : hwnds =Plugin.Window.FindEx(split(hwnd, "|")(index), 0, "Edit", 0)
Set dm = CreateObject("dm.dmsoft")
TracePrint dm.BindWindow(hwnds, "gdi", "windows", "windows", 1)
Dim i
Do
Call dm.KeyPress(49+ (i mod 10))
Delay 100
i=i+1
loop
End Sub
按键精灵实现大漠多线程操作记事本
猜你喜欢
转载自blog.csdn.net/aa326358942/article/details/79996157
今日推荐
周排行