Скрипт который не дает запустить два одинаковых процесса

[vipjeans]

Вот решил написать скрип и застрял :stars: мне нужно что бы скрипт не разрешал запускать одинаковые процессы или .exe Если кто знает как правильно написать скиньте пож :'(

 

[InnI]

Свои или чужие?
Для своих см. пример в справке по функции

_Singleton()

 

[vipjeans]

свои процессы. что бы не было копий программ Что то он мне не помог

_Singleton()

 

[InnI]

vipjeans
Что значит "не помог"? Создайте скрипт с примером из справки. Скомпилируйте скрипт в EXE. И попробуйте запустить несколько EXE подряд.

 

[vipjeans]

While   1
   If Not ProcessExists('raidcall') Then
sleep(1500)
run("raidcall.exe")
Sleep(300)
WinActivate("raidcall")
Send("vipjeans")
Send("{TAB}{ENTER}")
sleep(1000)
 EndIf
   Sleep (3000)
WEnd

Как мне сделать в этом коде что бы не запускалось два процесса Raidcall.exe что бы был ток один запущен? :'(

 

[WSWR]

vipjeans
Например:

If UBound(ProcessList('notepad.exe')) - 1 > 1 Then
	MsgBox(0, 'Заголовок', 'Больше 1')
	; Exit ; выход
Else
	MsgBox(0, 'Заголовок', '1 или нет вообще')
EndIf

Определяем, сколько notepad.exe

 

[vipjeans]

Мне не нужно что бы оно показывало сколько процессов. Мне нужно что бы он не запускался или заменял рабочий процесс но что бы был ток в работе 1 процесс :-\

 

[InnI]

vipjeans
Имя процесса нужно указывать с расширением

If Not ProcessExists("raidcall.exe") Then

 

[Ksaan]

Так вынести запуск программы за тело или завершай его.

 

[madmasles]

vipjeans,
Добавьте в начало скрипта что-то типа

If WinExists(@ScriptName & '{[/@$@\]}') Then Exit
AutoItWinSetTitle(@ScriptName & '{[/@$@\]}')

скомпилируйте его и попробуйте запустить несколько копий.

 

[windows]

Это будет проверять свой скрипт на наличие копий, а нужно чтобы скрипт мониторил другой процесс, не свой, и если число копий больше 1, то закрывал остальные копии.
Как проверять это условие через

ProcessList ( ["name"] ) и ProcessClose(( "process")

или может есть другие варианты?

 

[madmasles]

windows [?]

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

А так?

HotKeySet('{Esc}', '_Exit')
AdlibRegister('_CheckProcess')

While 1
	Sleep(1000)
	ToolTip(StringFormat('%s:%s:%s', @HOUR, @MIN, @SEC), 0, 0)
WEnd

Func _CheckProcess()
	Local Static $i__Pid
	Local $s_Process = 'notepad.exe', $s_Dir = @WindowsDir, _;поставьте свои процесс(программу) и папку с программой
			$a_List
	If Not $i__Pid Then
		$i__Pid = Run($s_Dir & '\' & $s_Process)
		Return
	EndIf
	$a_List = ProcessList($s_Process)
	Switch $a_List[0][0]
		Case 0
			$i__Pid = Run($s_Dir & '\' & $s_Process)
		Case Else
			For $i = 1 To $a_List[0][0]
				If $a_List[$i][1] <> $i__Pid Then ProcessClose($a_List[$i][1])
			Next
	EndSwitch
EndFunc   ;==>_CheckProcess

Func _Exit()
	Exit
EndFunc   ;==>_Exit

 

[windows]

Спасибо! :beer:
Скрипт работает, сейчас попробую совместить его со своим.
Еще вопрос зачем здесь часы?

ToolTip(StringFormat('%s:%s:%s', @HOUR, @MIN, @SEC), 0, 0)

И если этот скрипт будет в папке с програмой, которую нужно мониторить, то можно указать путь?

$s_Dir = @ScriptDir

 

[InnI]

windows [?]

зачем здесь часы?

Пример того, как можно отслеживать процесс "параллельно" с основной работой.

можно указать путь?

Можно. В данном случае папка нужна не столько для мониторинга, сколько для запуска первого процесса.