تمت الإفادة طلب كود أو أسكربت برمجي بلغة autoit-v3

جرب هذا الكود أخي وأخبرني
من خلال اسم العملية (مثال على عملية بإسم Svchost.exe)

كود:

$list = ProcessList("SvcHost.exe")
for $i = 1 to $list[0][0]
    $pid = $list[$i][1]
    Local $hProc = DllCall("kernel32.dll", "int", "OpenProcess", "int", 0x0410, "int", False, "int", $pid)
    If $hProc[0] Then
        Local $stHMod = DllStructCreate("int hMod")
        Local $stCB = DllStructCreate("dword cbNeeded")
        Local $resEnum = DllCall("psapi.dll", "int", "EnumProcessModules", "int", $hProc[0], "ptr", DllStructGetPtr($stHMod), "dword", DllStructGetSize($stHMod), "ptr", DllStructGetPtr($stCB, 1))
        If $resEnum[0] Then
            Local $resPath = DllCall("psapi.dll", "int", "GetModuleFileNameEx", "int", $hProc[0], "int", DllStructGetData($stHMod, 1), "str", "", "dword", 32768)
            MsgBox(0, "PID 2 Path", "" & $Pid & " = " & $resPath[3])
            EndIf
        $stHMod = 0
        $stCB = 0
        DllCall("kernel32.dll", 'int', 'CloseHandle', 'int', $hProc[0])
    EndIf
Next

من خلال الـ PID

كود:

$path = _WinGetPath()
MsgBox(0,WinGetTitle(""),$path)

Func _WinGetPath($Title="", $strComputer='localhost')
    $win = WinGetTitle($Title)
    $pid = WinGetProcess($win)
   $wbemFlagReturnImmediately = 0x10
   $wbemFlagForwardOnly = 0x20
   $colItems = ""
   $objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2")
   $colItems = $objWMIService.ExecQuery ("SELECT * FROM Win32_Process WHERE ProcessId = " & $pid, "WQL", _
         $wbemFlagReturnImmediately + $wbemFlagForwardOnly)
   If IsObj($colItems) Then
      For $objItem In $colItems
         If $objItem.ExecutablePath Then Return $objItem.ExecutablePath
      Next
   EndIf
EndFunc