气动调压表:通过PID获取进程路径|Autoit脚本代码

来源:百度文库 编辑:中财网 时间:2024/05/03 04:43:12


复制代码
  1. MsgBox(64,"进程信息","进程路径是:"&Processpath(616))
  2. Func Processpath($iPID)
  3. ;通过API获取指定PID的进程路径
  4. ;官方牛人制作
  5. Local $aProc = DllCall('kernel32.dll', 'hwnd', 'OpenProcess', 'int', BitOR(0x0400, 0x0010), 'int', 0, 'int', $iPID)
  6. If $aProc[0] = 0 Then Return SetError(1, 0, '')
  7. Local $vStruct = DllStructCreate('int[1024]')
  8. DllCall('psapi.dll', 'int', 'EnumProcessModules', 'hwnd', $aProc[0], 'ptr', DllStructGetPtr($vStruct), 'int', DllStructGetSize($vStruct), 'int_ptr', 0)
  9. Local $aReturn = DllCall('psapi.dll', 'int', 'GetModuleFileNameEx', 'hwnd', $aProc[0], 'int', DllStructGetData($vStruct, 1), 'str', '', 'int', 2048)
  10. If StringLen($aReturn[3]) = 0 Then Return SetError(2, 0, '')
  11. Return $aReturn[3]
  12. EndFunc
  13. MsgBox(64,"进程信息","进程路径是:"&Procespath(616))
  14. Func Procespath($pid)
  15. ;通过WMI获取指定PID的进程路径
  16. ;叁恨居士制作
  17. $strComputer = "."
  18. $objWMIService = ObjGet("winmgmts:\\" & $strComputer & "oot\CIMV2")
  19. $colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_Process WHERE ProcessId = "&$pid)
  20. For $objItem In $colItems
  21. $cmdpath = $objItem.CommandLine
  22. $exepath = $objItem.ExecutablePath
  23. $path=StringSplit($cmdpath,"\")
  24. if $path[0]<=2 Then
  25. Return $exepath
  26. Else
  27. Return $cmdpath
  28. EndIf
  29. Next
  30. EndFunc
  31. [/language]