按键精灵-窗口多开操作

'第一步,打开任意多个记事本,启动脚本

'鼠标指向你要操作的窗口,实现对这个窗口进行 暂停,继续,或停止操作

'F6暂停,F7继续,F8停止

Dim a,arr,i,hwnd,ID 

a = Plugin.Window.Search("无标题 - 记事本")

arr = Split(a, "|")

For i = 0 To UBound(arr) - 1

    Hwnd = Plugin.Window.FindEx(arr(i), 0, "edit", "")

    ID = BeginThread(s)

    Call Plugin.File.WriteINI(cstr(ID), "句柄", cstr(hwnd), "c:\1.ini")

    Call Plugin.File.WriteINI(cstr(hwnd), "ID", cstr(ID), "c:\1.ini")

Next

Do

    Key = WaitKey()

    temphwnd = Plugin.Window.MousePoint()

    tempID = Plugin.File.ReadINI(cstr(temphwnd), "ID", "c:\1.ini")

    If key = 117 Then 

        PauseThread clng(tempID)

    ElseIf key = 118 Then

        ContinueThread clng(tempID)

    ElseIf key = 119 Then

        StopThread clng(tempID)

    End If

Loop 

Sub s()

    Dim PID,句柄

    PID = GetThreadID()

    TracePrint "PID =" & PID

    句柄 = Plugin.File.ReadINI(PID, "句柄", "c:\1.ini")

    TracePrint "句柄 = " & 句柄

    If 句柄 <> "" then

        Do  

            Call Plugin.Bkgnd.SendString(cstr(句柄), "111" & vbcr)

            Delay 1000

        Loop

    End If

End Sub

Sub OnScriptExit()

    Call Plugin.File.DeleteFile("c:\1.ini") 

End Sub