Контроль работы срипта

[tar]

Приветствую. Как узнать что сктипт "test.su3" работает - запущен? Если не запущен, то запустить его.

 

[joiner]

ProcessExists

 

[tar]

joiner Спасибо, не соображу как построить чтобы 10 раз запускать скрипт если не запущен.

$i = 0
Do
   
If ProcessExists("test.au3") Then
    Sleep(10000)
Else
   Run( @ScriptDir & "\test.au3")
   $i = $i + 1 
EndIf
Until $i = 10 ;

или надо чтобы контролируемый скрипт был скомпилирован?

 

[xXx]

#include <WinAPIProc.au3>
Global $hToken, $aAdjust, $aProcList, $sScipt, $sStr

$sScipt = @ScriptDir & '\Script.au3' ; Проверяемый скрипт
$sStr = 'Скрипт: "' & $sScipt & '"' & @LF & 'Выполняет программа:' & @LF

$hToken = _WinAPI_OpenProcessToken(BitOR($TOKEN_ADJUST_PRIVILEGES, $TOKEN_QUERY))
_WinAPI_AdjustTokenPrivileges($hToken, $SE_DEBUG_NAME, $SE_PRIVILEGE_ENABLED, $aAdjust)

$aProcList = ProcessList()
$sScipt = StringReplace($sScipt, '"', '')
For $i = 1 To $aProcList[0][0]
	$sCommLine = StringReplace(_WinAPI_GetProcessCommandLine($aProcList[$i][1]), '"', '')
	If Not StringCompare($sCommLine, $sScipt) Then _
			$sStr &= ' - "' & _WinAPI_GetProcessFileName($aProcList[$i][1]) & '" (PID: ' & $aProcList[$i][1] & ')' & @LF
Next
_WinAPI_AdjustTokenPrivileges($hToken, $aAdjust, 0, $aAdjust)
If $hToken Then _WinAPI_CloseHandle($hToken)

MsgBox(262144, Default, $sStr)

В x64 разрядной ОС лучше запускайте скрипт как x64.


Добавлено:

Сообщение автоматически объединено: 23 Янв 2019

Изменил немного.

 

[tar]

xXx Спасибо, но у меня не запускает. Windows7. Сначала просил задекларировать $TOKEN_ADJUST_PRIVILEGES,$TOKEN_QUERY,$SE_DEBUG_NAME,$SE_PRIVILEGE_ENABLED
После добавления их в глобальные, доходит до MsgBox но test.au3 не запускает ни как х64 из контекстного, ни скомпилированный в х64

 

[joiner]

компилируешь, естественно, запускаешь и получаешь pid процесса, далее в цикле проверяешь его существование, если нет, то опять запуск


Добавлено:

Сообщение автоматически объединено: 23 Янв 2019

если нужно, чтобы код работал постоянно, то зацикли его. зачем нужны проверки? если хочешь избежать принудительного завершения, то в код test через fileinstall включи екзешник с кодом проверки. запускаешь test, он в папку temp скидывает второй экзешник и запускает его. этот второй будет следить за работой своего "родителя"

 

[tar]

joiner процесс в диспетчере виден как test.exe*32
но не работает

$i = 0
Do
   
If ProcessExists("test.exe") Then
    Sleep(10000)
Else
  Run( "test.exe")
   $i = $i + 1 
EndIf
Until $i = 10 ;

про FileInstall() не понял, куда.

 

[pvnn]

tar, проверил, скрипт на Win7 x64 у меня работает.
Может проблема в винде?
Попробуйте запустить скрипт на другой машине

Спойлер

$Command=@ScriptDir&'\test.exe'
Local $i=0
Do
	If Not ProcessExists("test.exe") Then
		 RunWait(@COMSPEC & ' /c '&'"'&$Command&'"', "",@SW_HIDE) ; ShellExecute($Command)
		$i+=1
		ConsoleWrite(@CRLF&'Запущен: '&$i)
	EndIf
	Sleep(300)
Until $i=10

 

[xXx]

как построить чтобы 10 раз запускать скрипт если не запущен.

#pragma compile(AutoItExecuteAllowed, True)
#include <WinAPIProc.au3>
Global $sMyScipt = @ScriptDir & '\test.au3' ; Проверяемый НЕскомпилированный скрипт

$sMyScipt = StringReplace($sMyScipt, '"', '')
For $i = 1 To 10
	$aProcList = ProcessList()
	If Not @error Then
		For $j = 1 To $aProcList[0][0]
			If Not StringCompare(StringReplace(_WinAPI_GetProcessCommandLine($aProcList[$j][1]), '"', ''), $sMyScipt) Then
				ProcessWaitClose($aProcList[$j][1])
				ExitLoop
			EndIf
		Next
	EndIf
	RunWait('"' & @AutoItExe & '" /AutoIt3ExecuteScript "' & $sMyScipt & '"', '', @SW_HIDE)
Next

Директива:

#pragma compile(AutoItExecuteAllowed, True)

позволит вам выполнять нескомпилированные подконтрольные скрипты при помощи данного скомпилированного скрипта на ОС где не установлен Autoit.

 

[joiner]

xXx [?]

позволит вам выполнять ваши нескомпилированные скрипты при помощи данного скомпилированного скрипта на ОС где не установлен Autoit.

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