关闭全部程序的代码
答案:1 悬赏:10 手机版
解决时间 2021-03-31 09:54
- 提问者网友：活着好累
- 2021-03-30 20:42
关闭全部程序的代码
最佳答案
- 五星知识达人网友：十鸦
- 2021-03-30 21:58
dim a
set ws=CreateObject("Wscript.Shell")
Set wmiService = GetObject("winmgmts:\\.\root\cimv2")
Set wmiObjects = wmiService.ExecQuery("SELECt * FROM Win32_process where name like'"&"%"&""&"%"&"'")
a =MsgBox("是否关掉所有进程？",4+64,"警告!")
if a = vbyes then
For Each wmiObject In wmiObjects
wmiObject.terminate
next
————————————
此代码只会关闭所有在任务管理器可以关闭的进程，例如杀毒软件就不可以了
set ws=CreateObject("Wscript.Shell")
Set wmiService = GetObject("winmgmts:\\.\root\cimv2")
Set wmiObjects = wmiService.ExecQuery("SELECt * FROM Win32_process where name like'"&"%"&""&"%"&"'")
a =MsgBox("是否关掉所有进程？",4+64,"警告!")
if a = vbyes then
For Each wmiObject In wmiObjects
wmiObject.terminate
next
————————————
此代码只会关闭所有在任务管理器可以关闭的进程，例如杀毒软件就不可以了
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯