想惡搞朋友的電腦？想整蠱舍友的愛(ài)機(jī)？只要簡(jiǎn)單的幾行代碼，讓惡搞發(fā)生。本文章將帶你從vbs小白進(jìn)階到大神級(jí)別。
廢話(huà)就不說(shuō)了，直接上教程
1：新手教學(xué)（大神請(qǐng)?zhí)降谖宀剑?/i>
編寫(xiě)vbs有多簡(jiǎn)單？新建“文本文檔”，輸入msgbox "一大波病毒正在靠近..." ，點(diǎn)擊文件->另存為->重命名為“代碼.vbs”。文件名不重要，重要的是后綴要是“.vbs”。
2：雙擊保存的文件：代碼.vbs，即彈出一個(gè)對(duì)話(huà)框。記下這段小小的代碼，去同學(xué)家里惡搞吧。當(dāng)然你還可以輸入其他有趣的文字。
3：當(dāng)然，如此惡搞還是不夠的。那就來(lái)一個(gè)無(wú)限循環(huán)吧，輸入圖中代碼另存為vbs格式。雙擊打開(kāi)。此時(shí)，會(huì)彈出提示對(duì)話(huà)框，點(diǎn)擊確定和關(guān)閉按鈕之后，再一次彈出窗口，如此循環(huán)，無(wú)法正常關(guān)閉。
4
那么到底要如何才能關(guān)閉呢？打開(kāi)任務(wù)管理器結(jié)束進(jìn)程“wscript.exe”即可
5
到此新手教學(xué)完畢，下面進(jìn)入大神課堂教學(xué)。
無(wú)限彈出光驅(qū)：
set wmp=createobject("wmplayer.ocx")
set cd=wmp.cdromcollection.item(0)
do
cd.eject
loop
6
無(wú)盡語(yǔ)音報(bào)數(shù)：
無(wú)限語(yǔ)音從1數(shù)到無(wú)限大。
Set s = CreateObject("sapi.spvoice")
i=0
do
s.speak i
i=i+1
loop
7
無(wú)盡刷新：
慎用，如此刷新打開(kāi)任務(wù)管理器都難，只能拔掉電源。
set ws=createobject("wscript.shell")
do
ws.sendkeys "{f5}"
loop
8
不斷按下alt+f4 ：
打開(kāi)任何程序都關(guān)掉
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
do
wscript.sleep 2500
WSHshell.SendKeys "%{F4}"
loop
