按键精灵实现大漠多线程操作记事本

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