
CODE: [Copy to clipboard][ Last edited by huahua0919 on 2008-12-2 at 06:18 ]Dim ins,objProcess,OneProcess
ins=InputBox("指定进程名")
set objProcess=GetObject("winmgmts:\\.\root\cimv2")
set OneProcess=objProcess.execquery("select * from win32_process")
for each i in OneProcess
if lcase(i.name)=lcase(ins) then
msgbox i.processID
end if
next
| Quote: | |
|
| Quote: | |
|
| 欢迎光临 中国DOS联盟论坛 (http://cndos.fam.cx/forum/) | Powered by Discuz! 2.5 |