Как сравнить PID процессов

[AlexxxMksv]

Как сравнить PID процессов, обычным способом не выходит PID1 == PID2?
нужно наверное перевести в другой тип. Как это сделать?

Global Const $MyPid = @AutoItPID
$aProcessList = ProcessList("CreateDT.exe")

For $i = 1 To $aProcessList[0][0]
  If String($aProcessList[$i][1]) == $MyPid Then
	 MsgBox(0,"","True")
  EndIf
Next

 

[InnI]

PID - это уникальное число. Они всегда разные.

 

[Olim98]

У меня все нормально работает!

$pid1 = ProcessExists('smss.exe')
$pid2 = ProcessExists('services.exe')
If $pid1 = $pid2 Then
	MsgBox(0, 'smss = services', 'PID равны')
Else
	MsgBox(0, 'smss = services', 'PID не равны')
EndIf
$pid1 = ProcessExists('smss.exe')
$pid2 = ProcessExists('smss.exe')
If $pid1 = $pid2 Then
	MsgBox(0, 'smss = smss', 'PID равны')
Else
	MsgBox(0, 'smss = smss', 'PID не равны')
EndIf

 

[AlexxxMksv]

Global Const $MyPid = @AutoItPID
MsgBox(0,"",$MyPid)

$aProcessList = ProcessList("CreateDT.exe")

For $i = 1 To $aProcessList[0][0]
  If $aProcessList[$i][1] == $MyPid Then
    MsgBox(0,"","True")
  EndIf
Next

Да, у меня так заработало, странно.

 

[InnI]

AlexxxMksv [?]

так заработало, странно

Ничего удивительного. Для скомпилированного скрипта @AutoItPID - это и есть PID процесса скомпилированного скрипта.

 

[AlexxxMksv]

AlexxxMksv [?]

так заработало, странно

Ничего удивительного. Для скомпилированного скрипта @AutoItPID - это и есть PID процесса скомпилированного скрипта.

Вот в чем дело было! Я думал код идентичен, в чем моя ошибка, работают они по разному?

For $i = 1 To $aProcessList[0][0]
  If Not $aProcessList[$i][1] == $MyPid Then
    MsgBox(0,"","Конкурент: " & $aProcessList[$i][1])
  EndIf
Next

For $i = 1 To $aProcessList[0][0]
  If $aProcessList[$i][1] == $MyPid Then
  Else
    MsgBox(0,"","Конкурент: " & $aProcessList[$i][1])
  EndIf
Next

 

[InnI]

AlexxxMksv
Найти "конкурента" вы можете по имени процесса, а не по его PID

$aProcessList = ProcessList("calc.exe")
If $aProcessList[0][0] > 1 Then MsgBox(0,"","Найден конкурент")

 

[AlexxxMksv]

AlexxxMksv
Найти "конкурента" вы можете по имени процесса, а не по его PID

$aProcessList = ProcessList("calc.exe")
If $aProcessList[0][0] > 1 Then MsgBox(0,"","Найден конкурент")

Не годится. потому что их не один и с каждым придется перебросится сообщениями, идентифицируя его по ID

 

[InnI]

AlexxxMksv [?]

их не один

$aProcessList[0][0] как раз и содержит количество найденных процессов.

перебросится сообщениями

С процессами ?!

 

[AlexxxMksv]

перебросится сообщениями

С процессами ?!

Да с запущенными процессоми:

StdoutRead
StdinWrite
$CmdLine
 ConsoleWrite
ConsoleRead

 

[Astel064]

AlexxxMksv, посмотрите UDF во вложениях, я думаю, что Вам пригодятся функции _Process_CheckProcCopy и _Process_GetProcFilePuth

#include "Process.au3"
Local $aList, $fCopy = 0
$aList = _Process_CheckProcCopy(@ScriptName, 0)
	If NOT @Error Then
	For $i = 1 To $aList[0]
		If $aList[$i] = @AutoItPID Then ContinueLoop
		If _Process_GetPidFilePuth($aList[$i]) = @AutoItExe Then $fCopy += 1
	Next
	EndIF

MsgBox(48," ","Найдено "&$fCopy&" копий процесса скрипта")