vbs脚本恶搞

Posted 2020-12-20 bwjblogs

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还是很有趣的。