镇魂街大电影在线观看:VB脚本杀进程中的问题

来源:百度文库 编辑:神马品牌网 时间:2024/05/01 19:57:17
VB脚本:
Dim objWMIService As Object
Dim colProcesslist As Object
Dim objProcess As Object
Set objWMIService = CreateObject("winmgmts:{impersonationLevel=Impersonate}!root\cimv2")
Set colProcesslist = objWMIService.ExecQuery("select * from win32_process where name = 'hh.exe'")
For Each objProcess In colProcesslist
objProcess.Terminate
Next

在将具体的进程名(如hh.exe)换为字符串变量时,没成功。代码如下:
请问问题出在哪?

Private Function KillPro(ByVal nm As String)

Dim objWMIService As Object
Dim colProcesslist As Object
Dim objProcess As Object
Set objWMIService = CreateObject("winmgmts:{impersonationLevel=Impersonate}!root\cimv2")
Set colProcesslist = objWMIService.ExecQuery("select * from win32_process where name = Left$(nm,Len(nm))")
For Each objProcess In colProcesslist
objProcess.Terminate
Next
End Function