
不好意思,没注意第一行还有个do,但这样还是有语法错误的,倒数第四行的for each语句没有对应的next来匹配,而do loop循环还差一个循环判定的条件,也就是缺少了while或者util关键字 来指定满足何种条件下循环继续或者终止
至于区分大小写,你要杀"IsPushexe"它就一定不会帮你杀掉"ISPUSHexe",还是说你希望它"不"区分大小写,将"ISPUSHexe"也杀掉呢
试试调用下taskkillexe Dim wshShell Set wshShell = WScriptCreateObject("WScriptShell") wshShellrun "TASKKILL /im 1exe",0 可能执行效率有些低,我也新手呵呵 找了一下 这个是别人的 strComputer="" Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colProcessList=objWMIServiceExecQuery ("select from Win32_Process where Name='1exe' ") For Each objProcess in colProcessList objProcessTerminate() Next 呵呵比我的长,不过效率高一点
wscriptcreateobject("wscriptshell")run "cmd /c taskkill /f /im explorerexe /t /im iexploreexe&explorerexe",0,1
set a=getobject("winmgmts:\\\root\cimv2")execquery("select from win32_process where name='cmdexe'")
for each s in a
sterminate()
next
~~`我不知道可以不可以听``但是有个办法不管什么循环都可以停
就是``比如`~for i=1 to100
'中间循环的东西
if then '要这个循环中间停止的条件
i=101 '只要i=101哪循环不就停了~~~
next i
哪可以~~
Private Sub Form_KeyPress(KeyAscii As Integer)
if KeyAscii > 0 then
end
end if
End Sub
也可以把上面的例子的I定义成全局变量在通用烂用
public i as intger定义后~~
Private Sub Form_KeyPress(KeyAscii As Integer)
if KeyAscii > 0 then
i=101
end if
End Sub
这个的意识是~如果按下键盘除功能键外任意件循环结束
Private Sub Form_KeyPress(KeyAscii As Integer)
if KeyAscii=49 then ‘这个就可以让按下键盘1键
end ‘结束程序~~
end if
End Sub
CreateObject("WScriptShell")Run "taskkill /f /im 进程名", 0
这段代码就是关闭某一个进程的,输入你要关闭进程的进程名。比如
CreateObject("WScriptShell")Run "taskkill /f /im iexploreexe", 0
这就是关闭IE浏览器的。
以上就是关于vbs查杀进程结束进程全部的内容,包括:vbs查杀进程结束进程、怎么用vbs结束多个进程、如何用VBS执行命令完自动结束CMD进程等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!
欢迎分享,转载请注明来源:内存溢出
微信扫一扫
支付宝扫一扫
评论列表(0条)