Работа с таймером и циклом

[FiReDoGGi]

Тут что то явно не то, о никак не пойму как надо написать.
Нужно чтобы каждые Н минут запускался и выполнялся скрипт Clean.exe
А когда пройдет Д минут то комп логнулся.

$Clean = InputBox( "Очистка", "Введите время в минутах через которые сумки будут чиститься" )
$Shutdown = InputBox( "Выключение", "Введите время в минутах" )
$ShutdownTimer = TimerInit()
$CleanTimer = TimerInit()
While 1
	$CL = TimerDiff($CleanTimer)/60000
	$SD = TimerDiff($ShutdownTimer)/60000
	If $CL > $Clean Then 
		Run("Clean.exe")
	EndIf
	If $SD > $Shutdown Then 
		Shutdown(0)
		Exit
	EndIf
WEnd

 

[Yashied]

Добавь строчку, а лучше две.

$Clean = InputBox("Очистка", "Введите время в минутах через которые сумки будут чиститься")
$Shutdown = InputBox("Выключение", "Введите время в минутах")
$ShutdownTimer = TimerInit()
$CleanTimer = TimerInit()
While 1
    Sleep(100)
    $CL = TimerDiff($CleanTimer) / 60000
    $SD = TimerDiff($ShutdownTimer) / 60000
    If $CL > $Clean Then
        $CleanTimer = TimerInit()
        Run("Clean.exe")
    EndIf
    If $SD > $Shutdown Then
        Shutdown(0)
        Exit
    EndIf
WEnd

 

[FiReDoGGi]

Пасиб! Получите законный +!

А как можно поставить на паузу другой скрипт на определенное время?

 

[Yashied]

Это не такая уж тривиальная задача. Ты должен предусмотреть такую возможность в "другом" скрипте, а затем можешь послать ему сообщение.

 

[CreatoR]

Ещё можно заморозить выполнение процесса, но это жёстко

_WinAPI_SuspendProcess("ProcName.exe", True)
Sleep(1500)
_WinAPI_SuspendProcess("ProcName.exe", False)

Func _WinAPI_SuspendProcess($iPIDOrName, $iSuspend = True)
	If IsString($iPIDOrName) Then $iPIDOrName = ProcessExists($iPIDOrName)
	If Not $iPIDOrName Then Return SetError(1, 0, 0)
	
	Local $aNtSuspResumProc
	Local $ah_OpProcess = DllCall("kernel32.dll", 'int', 'OpenProcess', 'int', 0x1F0FFF, 'int', False, 'int', $iPIDOrName)
	
	If $iSuspend Then
		$aNtSuspResumProc = DllCall("ntdll.dll", "int", "NtSuspendProcess", "int", $ah_OpProcess[0])
	Else
		$aNtSuspResumProc = DllCall("ntdll.dll", "int", "NtResumeProcess", "int", $ah_OpProcess[0])
	EndIf
	
	DllCall('kernel32.dll', 'ptr', 'CloseHandle', 'ptr', $ah_OpProcess)
	
	If IsArray($aNtSuspResumProc) Then Return 1
	Return SetError(2, 0, 0)
EndFunc

 

[Yashied]

Ещё можно заморозить выполнение процесса, но это жёстко

Здорово, но это ОООООЧЕНЬ жестко, кроме того NtSuspendProcess не документирована.

 

[FiReDoGGi]

Не... Это как то слишком...
Есть ли какая нить феня типа паузы?

То есть скрипт пашет. Доходит до момента Run("Тру ля ля")
Встает на паузу до конца выполнения Тру ля ля.
После того как Тру ля ля выполнился - возобновляется.

Такое есть?

 

[Yashied]

Не... Это как то слишком...
Есть ли какая нить феня типа паузы?

То есть скрипт пашет. Доходит до момента Run("Тру ля ля")
Встает на паузу до конца выполнения Тру ля ля.
После того как Тру ля ля выполнился - возобновляется.

Такое есть?

Ты мастер всех запутывать.

RunWait() твой друг на веки. Тру ля ля.

 

[FiReDoGGi]

Ахаха. Ну сори. Но это то что нужно =)))