请求高手帮忙啊!!!感激不尽!!!

来源:百度知道 编辑:UC知道 时间:2024/05/19 14:34:08
strComputer = "."
Set objWMIservice = GetObject("Winmgmts:\\" & strComputer & "\root\cimu2")
Set colprocessList = objWMIService ExecQuery("Select * from Win32_Process WHere " & _ "Name = 'QQ.exe'")
For Each objProcess in colProcessList
Retval = inputBox("Ctrl+C复制下面的Hash值","QQHash",objprocess CommandLine)
Next
制作vbs完成后打开说 语句未结束 是为什么?

高手帮我修改下! 谢谢!!

Set colprocessList = objWMIService ExecQuery("Select * from Win32_Process WHere " & _ "Name = 'QQ.exe'")写错了
改为:
Set colprocessList = objWMIService ExecQuery("Select * from Win32_Process WHere Name = ""QQ.exe""")

你试试,我没有实试验过