_ProcessCloseFromPath() & _ForceProcessClose()

[Trong]

 

expandcollapse popup

;~ Opt("TrayAutoPause", 0)
;~ Opt("MustDeclareVars", 1)

; * --------------------:| # Example
Example()

Func Example()
    Run("C:\Windows\System32\notepad.exe")
    Run("C:\Windows\System32\notepad.exe")
    Run("C:\Windows\SysWOW64\notepad.exe")
    Run("C:\Windows\SysWOW64\notepad.exe")
    Local $sProcessPath = "C:\Windows\System32\notepad.exe"
    Local $xProcessPath = "C:\Windows\SysWOW64\notepad.exe"
    Sleep(1000)
    _ProcessCloseByPath($xProcessPath)
    Local $vReturn = _ProcessCloseFromPath($sProcessPath)
    ConsoleWrite("-->Value of @error is: " & @error & @CRLF & "-->Value of @extended is: " & @extended & @CRLF)
    ConsoleWrite("-->Return values: " & $vReturn & @CRLF)
EndFunc   ;==>Example
; * --------------------:| # Example

;~;#AutoIt3Wrapper_Au3Check_Parameters=-d -w 1 -w 2 -w 3 -w- 4 -w 5 -w 6 -w- 7
; #FUNCTION# ====================================================================================================================
; Name...........: _ProcessCloseFromPath()
; Description ...: Close Process from Path
; Syntax.........: _ProcessCloseFromPath($sProcessPath [, $Fc = 1] )
; Parameters ....: $sProcessPath  - Full path of Process
;                  $Fc            - Try Force Close Process
; Return values .: Success = 1 : All ProcessClose OK
;                      @error = 0
;                      @extended = -1 : Process doesn't exist
;                      @extended = Number of Process same name
;                  Failure = 0 : Process Close Failure
;                      @error = -1 : Process File Path Not Exists
;                      @error = Number of Process can't Close
;                      @extended = 0
; Author ........: guinness, Trong
; Example .......: Yes
; ===============================================================================================================================
Func _ProcessCloseFromPath($sProcessPath, $Fc = 1);
    If Not FileExists($sProcessPath) Then Return SetError(-1, 0, 0);
    Local $sProcessName = StringTrimLeft($sProcessPath, StringInStr($sProcessPath, "\", Default, -1));
    If Not ProcessExists($sProcessName) Then Return SetError(0, -1, 1);
    Local $vPID = ProcessList($sProcessName), $n, $sFailure = 0, $Extended = 0, $sSuccess = 1, $sPID
    For $n = 1 To $vPID[0][0];
        $sPID = $vPID[$n][1];
        If (StringLower($sProcessPath) = StringLower(_ProcessGetPath($sPID))) Then;
            If $Fc Then
                ProcessClose($sPID);
            Else
                _ForceProcessClose($sPID);
            EndIf
        Else;
            $Extended = $Extended + 1;
            $sPID = 0;
        EndIf;
    Next;
    For $n = 1 To $vPID[0][0];
        If ProcessExists($sPID) Then $sFailure += 1;
    Next;
    If $sFailure Then $sSuccess = 0;
    Return SetError($sFailure, $Extended, $sSuccess);
EndFunc   ;==>_ProcessCloseFromPath
; * -----:| =====================================================================================================================

; #FUNCTION# ====================================================================================================================
; Name...........: _ForceProcessClose()
; Description ...:  Force Process Close
; Syntax.........: _ForceProcessClose($sPID [, $Fc = 10] )
; Parameters ....: $sPID  - PID of Process
;                  $Fc   - Number of try close
; Return values .: Success = 1 : Process Close OK
;                      @error = 0
;                      @extended  = 0
;                      @extended  = -1 : Process doesn't exist
;                  Failure = 0 : Process Close Failure
;                      @error = 1
;                      @extended  = 0
; Modified.......: Trong
; Example .......: Yes
; ===============================================================================================================================
Func _ForceProcessClose($sPID, $Fc = 10);
    If IsString($sPID) Then $sPID = ProcessExists($sPID);
    If Not $sPID Then Return SetError(0, -1, 1);
    While ProcessExists($sPID);
        ProcessClose($sPID);
        Sleep(1);
        $Fc -= 1;
        If $Fc < 1 Then ExitLoop;
    WEnd;
    If ProcessExists($sPID) Then RunWait(@ComSpec & " /c taskkill /F /PID " & $sPID & " /T", @SystemDir, @SW_HIDE);
    If ProcessExists($sPID) Then Return SetError(1, 0, 0);
    Return SetError(0, 0, 1);
EndFunc   ;==>_ForceProcessClose
; * -----:| =====================================================================================================================


; #FUNCTION# ===============================================================================
; Name...........: _ProcessGetPath()
; Description ...: Retrieves a process file path
; Syntax.........: _ProcessGetPath($vProcess)
; Parameters ....: $vProcess - PID or name of a process
; Requirements...: kernel32.dll, psapi.dll
; Return values .: Success - A full process path
;                    @error = 0
;                   Failure - Empty string
;                    @error = 1 - Invalid process name/PID
;                    @error = 2 - kernel32.dll failed to open (wrong version?)
;                    @error = 3 - Could not OpenProcess
;                     @error = 4 - psapi.dll failed to open (doesn't exist?)
;                    @error = 5 - returned path is empty or invalid
; Author ........: JScript, Larry, SmOke_N
; Modified.......: mrRevoked - reformated, error checking : Trong - fix special path
; Example .......: Yes
; ============================================================================================
Func _ProcessGetPath($vProcess)
    Local $i_PID, $hKernel32, $hPsapi, $aProcessHandle, $tDLLStruct, $iError, $sProcessPath
    $i_PID = ProcessExists($vProcess)
    If Not $i_PID Then Return SetError(1, 0, ""); Process doesn't exist?
    $hKernel32 = DllOpen("Kernel32.dll")
    $iError = @error
    If $iError Then
        DllClose($hKernel32)
        Return SetError(2, $iError, ""); DllOpen kernell32.dll failed
    EndIf
    $aProcessHandle = DllCall($hKernel32, "int", "OpenProcess", "int", 0x0400 + 0x0010, "int", 0, "int", $i_PID)
    $iError = @error
    If $iError Or $aProcessHandle[0] = 0 Then
        DllClose($hKernel32)
        Return SetError(2, $iError, ""); OpenPocess failed
    EndIf
    $hPsapi = DllOpen("Psapi.dll")
    $iError = @error
    If $iError Then
        DllClose($hKernel32)
        DllClose($hPsapi)
        Return SetError(3, $iError, ""); DllOpen psapi.dll failed
    EndIf
    $tDLLStruct = DllStructCreate("char[1000]")
    DllCall($hPsapi, "long", "GetModuleFileNameEx", "int", $aProcessHandle[0], "int", 0, "ptr", DllStructGetPtr($tDLLStruct), "long", DllStructGetSize($tDLLStruct))
    $iError = @error
    DllCall($hKernel32, "int", "CloseHandle", "int", $aProcessHandle[0])
    DllClose($hKernel32)
    DllClose($hPsapi)
    If $iError Then
        $tDLLStruct = 0
        Return SetError(4, $iError, "");GetModulefilenamex failed
    EndIf
    $sProcessPath = DllStructGetData($tDLLStruct, 1)
    $tDLLStruct = 0
    ;Format the Output
    If StringLen($sProcessPath) < 2 Then Return SetError(5, 0, "");is empty or non readable
    If StringLeft($sProcessPath, 4) = "\??\" Then $sProcessPath = StringReplace($sProcessPath, "\??\", "")
    If (StringLower(StringLeft($sProcessPath, 20)) = "\systemroot\system32") Then $sProcessPath = StringReplace($sProcessPath, "\SystemRoot\System32", @SystemDir)
    Return SetError(0, 0, $sProcessPath)
EndFunc   ;==>_ProcessGetPath
; * -----:| =====================================================================================================================


; #FUNCTION# ===============================================================================
; Name...........: __ProcessCloseByPath()
; Author ........: boththose
; Modified.......: Trong - reformated
Func _ProcessCloseByPath($sPath);
    Local $colItems = "", $strComputer = "localhost", $wbemFlagReturnImmediately = 0x10, $wbemFlagForwardOnly = 0x20;
    Local $objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\ROOT\CIMV2"), $sFailure = 0, $sSuccess = 1;
    Local $cQuery = "SELECT ExecutablePath,ProcessId FROM Win32_Process WHERE ExecutablePath = " & '"' & StringReplace($sPath, "\", "\\") & '"'
    $colItems = $objWMIService.ExecQuery($cQuery, "WQL", $wbemFlagReturnImmediately + $wbemFlagForwardOnly);
    If IsObj($colItems) Then;
        For $objItem In $colItems;
            Local $sPID = $objItem.ProcessId;
            ProcessClose($sPID);
            If ProcessExists($sPID) Then $sFailure += 1;
        Next;
    EndIf;
    If $sFailure Then $sSuccess = 0;
    Return SetError($sFailure, 0, $sSuccess);
EndFunc   ;==>_ProcessCloseByPath
; * -----:| =====================================================================================================================

Simple Version:

 

; #FUNCTION# ===============================================================================
; Name...........: _ProcessCloseByPath()
; Author ........: boththose
; Modified.......: Trong - reformated
Func _ProcessCloseByPath($sPath);
    Local $colItems = "", $strComputer = "localhost", $wbemFlagReturnImmediately = 0x10, $wbemFlagForwardOnly = 0x20;
    Local $objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\ROOT\CIMV2"), $sFailure = 0, $sSuccess = 1;
    Local $cQuery = "SELECT ExecutablePath,ProcessId FROM Win32_Process WHERE ExecutablePath = " & '"' & StringReplace($sPath, "\", "\\") & '"'
    $colItems = $objWMIService.ExecQuery($cQuery, "WQL", $wbemFlagReturnImmediately + $wbemFlagForwardOnly);
    If IsObj($colItems) Then;
        For $objItem In $colItems;
            Local $sPID = $objItem.ProcessId;
            ProcessClose($sPID);
            If ProcessExists($sPID) Then $sFailure += 1;
        Next;
    EndIf;
    If $sFailure Then $sSuccess = 0;
    Return SetError($sFailure, 0, $sSuccess);
EndFunc   ;==>_ProcessCloseByPath
; * -----:| =====================================================================================================================

UDF-3.au3

Edited February 28, 2015 by Trong