Thinkai's Blog

请使用Autohotkey H版运行和编译

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
}