[Процессы] Слежение за процессом

For $i = 1 To $iCount
    Sleep(1000)
    $iTimer = TimerInit()
    For $j = 1 To 100
		$iRes = ProcessExists($iPid)
	Next
    $aResult[0][$i] = Round(TimerDiff($iTimer), 3)
    ConsoleWrite('ProcessExists: ' & $aResult[0][$i] & @TAB & $iRes & @LF)

    Sleep(1000)
    $iTimer = TimerInit()
	For $j = 1 To 100
		$hWin = WinGetHandle('[Title:' & $sTitle & ';Class:AutoIt v3]')
	Next
    $aResult[1][$i] = Round(TimerDiff($iTimer), 3)
    ConsoleWrite('WinGetHandle: ' & $aResult[1][$i] & @TAB & $hWin & @LF)

    Sleep(1000)
    $iTimer = TimerInit()
	For $j = 1 To 100
		$aRes = DllCall('user32.dll', 'hwnd', 'FindWindowW', 'wstr', 'AutoIt v3', 'wstr', $sTitle)
	Next
    $aResult[2][$i] = Round(TimerDiff($iTimer), 3)
    ConsoleWrite('FindWindowW: ' & $aResult[2][$i] & @TAB & $aRes[0] & @LF)

    Sleep(1000)
    $iTimer = TimerInit()
	For $j = 1 To 100
		$iRes = WinExists($hWnd)
	Next
    $aResult[3][$i] = Round(TimerDiff($iTimer), 3)
    ConsoleWrite('WinExists: ' & $aResult[3][$i] & @TAB & $iRes & @LF)

    Sleep(1000)
    $iTimer = TimerInit()
	For $j = 1 To 100
		$aRes = DllCall('user32.dll', 'int', 'IsWindow', 'hwnd', $hWnd)
	Next
    $aResult[4][$i] = Round(TimerDiff($iTimer), 3)
    ConsoleWrite('IsWindow: ' & $aResult[4][$i] & @TAB & $aRes[0] & @LF)

    Sleep(1000)
    $iTimer = TimerInit()
	For $j = 1 To 100
		$iRes = IsHWnd($hWnd)
	Next
    $aResult[5][$i] = Round(TimerDiff($iTimer), 3)
    ConsoleWrite('IsHWnd: ' & $aResult[5][$i] & @TAB & $iRes & @LF)

    Sleep(1000)
    $iTimer = TimerInit()
	For $j = 1 To 100
		$aRes = DllCall('kernel32.dll', 'int', 'GetExitCodeProcess', 'ptr', $hProc, 'dword*', 0)
	Next
    $aResult[6][$i] = Round(TimerDiff($iTimer), 3)
    ConsoleWrite('GetExitCodeProcess: ' & $aResult[6][$i] & @TAB & $aRes[2] & @LF)
    ConsoleWrite('---' & @LF)
Next

HotKeySet('{ESC}', '_Exit')

Global $sFile = 'Test_Script.exe', $iPid, $hWnd, $hGui, $sTitle, $aRes

$sTitle = StringLeft($sFile, StringInStr($sFile, '.', 0, -1) - 1)
$iPid = Run(@ScriptDir & '\' & $sFile)
If Not $iPid Then Exit 1
$hWnd = WinWait('[Title:' & $sTitle & ';Class:AutoIt v3]', '', 3)
If Not $hWnd Then Exit 2
$aRes = DllCall('user32.dll', 'uint', 'RegisterWindowMessageW', 'wstr', 'SHELLHOOK')
If (@error) Or (Not $aRes[0]) Then Exit 3
If Not GUIRegisterMsg($aRes[0], '_ShellHook') Then Exit 4
$hGui = GUICreate('')
$aRes = DllCall('user32.dll', 'int', 'RegisterShellHookWindow', 'hwnd', $hGui)
If (@error) Or (Not $aRes[0]) Then Exit 5
While 1
	Sleep(1000)
WEnd

Func _Exit()
	ConsoleWrite('Exit' & @LF)
	DllCall('user32.dll', 'int', 'DeregisterShellHookWindow', 'hwnd', $hGui)
	GUIDelete($hGui)
	Exit
EndFunc   ;==>_Exit

Func _ShellHook($h_Wnd, $i_Msg, $i_wParam, $h_lParam)
	Switch $h_lParam
		Case $hWnd
			Switch $i_wParam
				Case 2;$HSHELL_WINDOWDESTROYED = 2
					_Exit()
			EndSwitch
	EndSwitch
EndFunc   ;==>_ShellHook

#NoTrayIcon
AutoItWinSetTitle(StringLeft(@ScriptName, StringInStr(@ScriptName, '.', 0, -1) - 1))
MsgBox(64, 'Info', 'Test_Script')
Exit 66