Sign in to follow this  
Followers 0
euverve

Process list refresh question.

3 posts in this topic

#1 ·  Posted (edited)

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:

Posted Image

Please check my codes.

#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 by euverve

Share this post


Link to post
Share on other sites



#2 ·  Posted (edited)

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 by KaFu

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0