爱问知识人 爱问教育 医院库

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 15:30:36
  • 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-07-01 15:30:36

  • 2006-06-30 13:52:46
  • "select * from win32_process where name = Left$(nm,Len(nm))"
    这个可以这样写么?我觉得还是老实些
    "select * from win32_process where name = '" & nm & "'"

    s***

    2006-06-30 13:52:46

类似问题

换一换
  • VB 相关知识

  • 电脑网络技术
  • 电脑网络

相关推荐

正在加载...
最新问答 推荐信息 热门专题 热点推荐
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200

热点检索

  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 174-193
返回
顶部
帮助 意见
反馈

确定举报此问题

举报原因(必选):