Process list refresh question.

[euverve]

I have created a process lister with process close.

The question is how could i refresh the process list after the process is closed?

Preview:

Please check my codes.

  Quote

#include <ButtonConstants.au3>

#include <GUIConstantsEx.au3>

#include <ListBoxConstants.au3>

#include <StaticConstants.au3>

#include <WindowsConstants.au3>

#Region ### START Koda GUI section ### Form=C:\Documents and Settings\Thatskie\Desktop\Process.kxf

$Form1 = GUICreate("Form1", 530, 355, -1, -1)

$Group1 = GUICtrlCreateGroup("", 8, 0, 513, 305)

$process_list = GUICtrlCreateListView("Image Name|PID|Location|User Name|Priority", 16, 16, 497, 281, -1, BitOR($WS_EX_CLIENTEDGE,$WS_EX_STATICEDGE))

_SetList($process_list)

GUICtrlCreateGroup("", -99, -99, 1, 1)

$Button1 = GUICtrlCreateButton("Refresh Process List", 56, 312, 139, 33, 0)

$Button2 = GUICtrlCreateButton("Terminate Process", 200, 312, 139, 33, 0)

$Button3 = GUICtrlCreateButton("Exit Program", 344, 312, 139, 33, 0)

GUISetState(@SW_SHOW)

#EndRegion ### END Koda GUI section ###

While 1

$nMsg = GUIGetMsg()

Switch $nMsg

Case $GUI_EVENT_CLOSE

Exit

Case $Button1

Case $Button2

if GUICtrlRead($process_list) = "" Then

MsgBox(16, "Error", "Please select process to terminate")

ContinueLoop

Else

if MsgBox(52, "Warning", "WARNING: Terminating a process can cause undesired" & @CRLF & _

"results including loss of data and system instability. The" & @CRLF & _

"process will not be given the change to save its state or" & @CRLF & _

"data before it is terminated." & @CRLF & @CRLF & "Are you sure you want to terminate the process?") = 7 then ContinueLoop

EndIf

_EndTask()

Case $Button3

Exit

EndSwitch

WEnd

Func _EndTask()

$1 = StringSplit(GUICtrlRead(GUICtrlRead($process_list)), '|', 1)

ProcessClose($1[1])

EndFunc

Func _SetList($sList)

$process = _ProcessListProperties()

for $i = 1 to $process[0][0]

GUICtrlCreateListViewItem($process[$i][0] & '|' & _GetPriority($process[$i][1]) & '|' & $process[$i][5] & '|' & $process[$i][3] & '|' & $process[$i][4], $sList)

Next

EndFunc

Func _GetPriority($process)

return $process

EndFunc

;===============================================================================

; Function Name: _ProcessListProperties()

; Description: Get various properties of a process, or all processes

; Call With: _ProcessListProperties( [$Process [, $sComputer]] )

; Parameter(s): (optional) $Process - PID or name of a process, default is "" (all)

; (optional) $sComputer - remote computer to get list from, default is local

; Requirement(s): AutoIt v3.2.4.9+

; Return Value(s): On Success - Returns a 2D array of processes, as in ProcessList()

; with additional columns added:

; [0][0] - Number of processes listed (can be 0 if no matches found)

; [1][0] - 1st process name

; [1][1] - 1st process PID

; [1][2] - 1st process Parent PID

; [1][3] - 1st process owner

; [1][4] - 1st process priority (0 = low, 31 = high)

; [1][5] - 1st process executable path

; [1][6] - 1st process CPU usage

; [1][7] - 1st process memory usage

; [1][8] - 1st process creation date/time = "MM/DD/YYY hh:mm:ss" (hh = 00 to 23)

; [1][9] - 1st process command line string

; ...

; [n][0] thru [n][9] - last process properties

; On Failure: Returns array with [0][0] = 0 and sets @Error to non-zero (see code below)

; Author(s): PsaltyDS at http://www.autoitscript.com/forum

; Date/Version: 09/17/2008 -- v2.0.3

; Notes: If an integer PID or string process name is provided and no match is found,

; then [0][0] = 0 and @error = 0 (not treated as an error, same as ProcessList)

; This function requires admin permissions to the target computer.

; All properties come from the Win32_Process class in WMI.

; To get time-base properties (CPU and Memory usage), a 100ms SWbemRefresher is used.

;===============================================================================

Func _ProcessListProperties($Process = "", $sComputer = ".")

Local $sUserName, $sMsg, $sUserDomain, $avProcs, $dtmDate

Local $avProcs[1][2] = [[0, ""]], $n = 1

; Convert PID if passed as string

If StringIsInt($Process) Then $Process = Int($Process)

; Connect to WMI and get process objects

$oWMI = ObjGet("winmgmts:{impersonationLevel=impersonate,authenticationLevel=pktPrivacy, (Debug)}!\\" & $sComputer & "\root\cimv2")

If IsObj($oWMI) Then

; Get collection processes from Win32_Process

If $Process = "" Then

; Get all

$colProcs = $oWMI.ExecQuery("select * from win32_process")

ElseIf IsInt($Process) Then

; Get by PID

$colProcs = $oWMI.ExecQuery("select * from win32_process where ProcessId = " & $Process)

Else

; Get by Name

$colProcs = $oWMI.ExecQuery("select * from win32_process where Name = '" & $Process & "'")

EndIf

If IsObj($colProcs) Then

; Return for no matches

If $colProcs.count = 0 Then Return $avProcs

; Size the array

ReDim $avProcs[$colProcs.count + 1][10]

$avProcs[0][0] = UBound($avProcs) - 1

; For each process...

For $oProc In $colProcs

; [n][0] = Process name

$avProcs[$n][0] = $oProc.name

; [n][1] = Process PID

$avProcs[$n][1] = $oProc.ProcessId

; [n][2] = Parent PID

$avProcs[$n][2] = $oProc.ParentProcessId

; [n][3] = Owner

If $oProc.GetOwner($sUserName, $sUserDomain) = 0 Then $avProcs[$n][3] = $sUserDomain & "\" & $sUserName

; [n][4] = Priority

$avProcs[$n][4] = $oProc.Priority

; [n][5] = Executable path

$avProcs[$n][5] = $oProc.ExecutablePath

; [n][8] = Creation date/time

$dtmDate = $oProc.CreationDate

If $dtmDate <> "" Then

; Back referencing RegExp pattern from weaponx

Local $sRegExpPatt = "\A(\d{4})(\d{2})(\d{2})(\d{2})(\d{2})(\d{2})(?:.*)"

$dtmDate = StringRegExpReplace($dtmDate, $sRegExpPatt, "$2/$3/$1 $4:$5:$6")

EndIf

$avProcs[$n][8] = $dtmDate

; [n][9] = Command line string

$avProcs[$n][9] = $oProc.CommandLine

; increment index

$n += 1

Next

Else

SetError(2); Error getting process collection from WMI

EndIf

; release the collection object

$colProcs = 0

; Get collection of all processes from Win32_PerfFormattedData_PerfProc_Process

; Have to use an SWbemRefresher to pull the collection, or all Perf data will be zeros

Local $oRefresher = ObjCreate("WbemScripting.SWbemRefresher")

$colProcs = $oRefresher.AddEnum($oWMI, "Win32_PerfFormattedData_PerfProc_Process" ).objectSet

$oRefresher.Refresh

; Time delay before calling refresher

Local $iTime = TimerInit()

Do

Sleep(20)

Until TimerDiff($iTime) >= 100

$oRefresher.Refresh

; Get PerfProc data

For $oProc In $colProcs

; Find it in the array

For $n = 1 To $avProcs[0][0]

If $avProcs[$n][1] = $oProc.IDProcess Then

; [n][6] = CPU usage

$avProcs[$n][6] = $oProc.PercentProcessorTime

; [n][7] = memory usage

$avProcs[$n][7] = $oProc.WorkingSet

ExitLoop

EndIf

Next

Next

Else

SetError(1); Error connecting to WMI

EndIf

; Return array

Return $avProcs

EndFunc ;==>_ProcessListProperties

Please help. Thanks

process_list_and_process_close.au3

Edited February 15, 2009 by euverve

[KaFu]

Use adlib and Processlist(). Save Processlist() to Global array $aProcessList_Save and compare on next run to Processlist(). If PIDs stay the same, don't update, else update (maybe via a bool $b_Update_Processes = true) in the main loop.

You're using WMI. WMI is slow, try to change to kernel32.dll calls (not all info might be (easily) available, but most, search examples).

Edited February 15, 2009 by KaFu

[euverve]

  KaFu said:

Use adlib and Processlist(). Save Processlist() to Global array $aProcessList_Save and compare on next run to Processlist(). If PIDs stay the same, don't update, else update (maybe via a bool $b_Update_Processes = true) in the main loop.

You're using WMI. WMI is slow, try to change to kernel32.dll calls (not all info might be (easily) available, but most, search examples).

The question is HOW, any example please.

Thanks