[已解决]通过AU3获取进程路径，不要WMI等

jycel · 发表于 2010-4-5 12:29:01

本帖最后由 jycel 于 2010-4-5 14:01 编辑

网吧刚换成了无盘，发现使用不了WMI一用就报错
下面是通过wmi获取所有进程的PID、名称及路径，有法用AU3实现么？
目的就是获取指定进程的路径

$objWMIService = ObjGet("winmgmts:\\.\root\CIMV2:win32_process")
$colItems = $objWMIService.instances_
For $objItem In $colItems
$Pid =  "Pid: " & $objItem.ProcessId         
$Name = "Name: " & $objItem.Name 
$path = "Path: " & $objItem.executablepath
        MsgBox(0,'',$Pid&@LF _ 
        &$Name&@LF _ 
        &$path)
Next

bing614 · 发表于 2010-4-5 13:05:02

$iPid=ProcessExists("explorer.exe")
MsgBox(0,"",_GetModuleFileNameEx($iPid))
Func _GetModuleFileNameEx($_Pid)
        $_Hwnd=DllCall("Kernel32.dll","hwnd","OpenProcess","dword",0x0400+0x0010,"int",0,"dword",$_Pid)        
        $_Return=DllCall("Psapi.dll","long","GetModuleFileNameEx","hwnd",$_Hwnd[0],"long",0,"str",0,"long",255)        
        DllCall("Kernel32.dll","int","CloseHandle","hwnd",$_Hwnd[0])        
        If StringInStr($_Return[3],"") Then Return $_Return[3]
        Return ""
EndFunc

jycel · 发表于 2010-4-5 13:51:23

谢谢！马上测试下！

mikezunya · 发表于 2013-10-31 15:12:26

感谢2楼的代码。学习了

qsy666888 · 发表于 2014-5-6 12:29:39

终于可以看了，等得蛋疼啊。

qsy666888 · 发表于 2014-5-6 12:29:52

感谢2楼的代码。学习了

wwwangwen · 发表于 2015-1-15 19:23:51

感谢2楼的代码。学习了

xyx115 · 发表于 2015-5-19 11:06:18

谢谢二楼的代码。正好需要

		自动登录	找回密码
密码			加入

[系统综合] [已解决]通过AU3获取进程路径，不要WMI等

评分

相关帖子

评分

浏览过的版块