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
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。 不知道你的代码是写在哪里的?
"select * from win32_process where name = Left$(nm,Len(nm))" 这个可以这样写么?我觉得还是老实些 "select * from win32_process where name = '" & nm & "'"
答:Code "G0 X" & a & " Y" & b详情>>
答:线性链表分好几种,分为单链,双链等,它们的存储顺序也不一样. 线性表是顺序存储的,占顺序的存储空间详情>>
问:电脑安装了VB6.0,为什么打开方式里面没有VB程序选项,进安装好的VB里去关联...
答:打开方式最下面还有一个《选择程序》,点开后查VB的安装目录的EXE,找到后直接打开,下次就会在打开方式里查到了详情>>