H版多线程任务分派示例 Autohotkey

Gui, Add, ListView, x0 y0 w150 h400, I  D|SleepMSec
Gui, Show
obj := CriticalObject()
SplitPath, A_AhkPath, , AHKDir
max := 10, Threads := [], count := 0
loop % max
    Threads[A_index] := ""
Loop
{
    for k,v in Threads
    {
        if(!v)
        {
            script := "#notrayicon`nobj:=CriticalObject(" CriticalObject(obj,1) "," CriticalObject(obj,2) ")`nrandom, x, 500, 5000`nsleep % x`nobj[" k "] := x"
            Threads[k] := AhkDllThread(AHKDir "\AutoHotkey.dll")
            Threads[k].ahktextdll(script)
        }
        else
        {
            if (!Threads[k].ahkReady())
            {
                LV_Add("",k,obj[k])
                obj[k] := "",Threads[k] := ""
            }
        }
    }
    Sleep, 100
}