搜索
首页 电脑/网络 程序设计 VB

VB脚本杀进程中的问题

  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。
  

举报

全部回答

2006-07-01

131 0
    Dim objWMIService Dim colProcesslist Dim objProcess Dim str str="notepad。exe" Set objWMIService = getObject("winmgmts:{impersonationLevel=Impersonate}!root\cimv2") Set colProcesslist = objWMIService。
    ExecQuery("select * from win32_process where name = '"& str &"'") For Each objProcess In colProcesslist objProcess。
  Terminate Next 参考一下！ VBS里只支持一种变量类型：Variant。   不知道你的代码是写在哪里的？ 。
提交

2006-06-30

139 0
"select * from win32_process where name = Left$(nm,Len(nm))" 这个可以这样写么？我觉得还是老实些 "select * from win32_process where name = '" & nm & "'"
提交

类似问题换一批

热点推荐

热度TOP

相关推荐
加载中...

热点搜索 换一换

电脑/网络
VB
硬件
电脑装机
程序设计
互联网
操作系统/系统故障
笔记本电脑
反病毒
百度
软件
程序设计
VB
数据库
C/C++
汇编语言
JAVA相关
VC++
C#/.NET
其他编程语言
VB
VB
举报
举报原因(必选)：
取消确定举报