ynbIpb
Advanced Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Код: ;~~~~~~~~~~~~~~
; функция _Process_bot получает список запущеных процессов и отправляет хозяину
; команда для вызова этой функции: !proclist
;~~~~~~~~~~~~~~
Func _Process_bot()
Local $otvet = ""
Local $Process=""
_ComputerGetProcesses($Process)
For $i = 1 To $Process[0][0]
If $Process[$i][2] = "" Then
$path_proc = $Process[$i][0]
Else
$path_proc = $Process[$i][2]
EndIf
$otvet &= $path_proc & ":" & $Process[$i][1] & @CRLF
Next
Return $otvet ;возвращаем сформированный список процессов
EndFunc
;----------------
Func _ComputerGetProcesses(ByRef $aProcessInfo)
Local $colItems, $objWMIService, $objItem
Local $cI_Compname = @ComputerName
Local $wbemFlagReturnImmediately = 0x10
Local $wbemFlagForwardOnly = 0x20
Dim $aProcessInfo[1][3], $i = 1
$objWMIService = ObjGet("winmgmts:\\" & $cI_Compname & "\root\CIMV2")
$colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_Process", "WQL", $wbemFlagReturnImmediately + $wbemFlagForwardOnly)
If IsObj($colItems) Then
For $objItem In $colItems
ReDim $aProcessInfo[UBound($aProcessInfo) + 1][3]
$aProcessInfo[$i][0] = $objItem.Name
$aProcessInfo[$i][1] = $objItem.ProcessId
$aProcessInfo[$i][2] = $objItem.ExecutablePath
$i += 1
Next
$aProcessInfo[0][0] = UBound($aProcessInfo) - 1
If $aProcessInfo[0][0] < 1 Then
SetError(1, 1, 0)
EndIf
Else
SetError(1, 2, 0)
EndIf
EndFunc ;_ComputerGetProcesses |
|
Всего записей: 1645 | Зарегистр. 01-05-2006 | Отправлено: 08:23 29-05-2009 | Исправлено: ynbIpb, 15:00 30-05-2009 |
|
