vbs腳本惡搞

vbs雖然已經不是常見了，但是我覺得還挺好玩的。今天就用vbs整個活。

創建vbs文件

1. 新建一個文本文檔（.txt文件）

2. 修改后綴名為.vbs（把.txt替換成.vbs）

3. 系統會提示可能導致文件不可用，點確認就OK

4. 輸入代碼（見下）

5. 文件→另存文件，並設置編碼格式為ANSI，點擊保存（有的電腦默認的格式就是ANSI，不另存為也不會報錯。但如果出現錯誤，那么可能是因為編碼的問題）

vbs代碼

我們可以用vbs腳本干很多事，我這里舉兩個例子（都是惡搞着玩的）。

第一個：如果兩次不說你帥，就在30秒后關機

if msgbox("我帥么",VBYESNO, "測試友誼") = VBYes then
msgbox "你做了明智的決定",,"測試友誼"
else 
msgbox "再給你一次機會",,"測試友誼"
if msgbox("我帥么",VBYESNO, "測試友誼") = VBYes then
msgbox "果然還是個誠實的孩子", ,"測試友誼"
else
msgbox "趕緊保存文件，電腦還有30秒關機！",16 ,"測試友誼"
wscript.createobject("wscript.shell").run "shutdown /s /t 30 /c 您的電腦還有30秒關機"
end if
end if

第二個：語音播放（第一次運行會卡頓，前幾句讀不到，但是第二次運行就完全OK了，這個bug很奇怪，我也沒有解決）

Set s = CreateObject("sapi.spvoice") 

s.speak "今天"
s.speak "我老八啊"
s.speak "就挑戰一回吃把吧"
s.Pause '暫停語音
msgbox "666，老美食家了"
s.Resume '繼續播放語音
s.speak "奧里Gei，干了兄弟盟"
s.speak "造它就完了"

應一個朋友的抱怨，彈窗彈出來太不方便了，要是自己關掉就好了（其實我也不知道我搞那個彈窗干什么）

所以把msgbox "666，老美食家了"這句改成CreateObject("WScript.shell").Popup "666，老美食家了", 3

最后數字3是3秒后自動關閉

也就是說最終代碼如下

Set s = CreateObject("sapi.spvoice") 

s.speak "今天"
s.speak "我老八啊"
s.speak "就挑戰一回吃把吧"
s.Pause
CreateObject("WScript.shell").Popup "666，老美食家了", 3 
s.Resume
s.speak "奧里Gei，干了兄弟盟"
s.speak "造它就完了"

 還有一個語音播放的例子：

Set s = CreateObject("sapi.spvoice") 
s.speak "哈哈哈"
s.speak "牛逼"
s.speak "you are so 流逼"
s.speak "辣似真滴流批"

可以使用do while ... loop的方式來循環播放語音。

 

好了，惡搞就到這里吧。個人覺得vbs還是很有趣的。