vbs脚本恶搞 |
您所在的位置:网站首页 › 恶搞弹窗制作 › vbs脚本恶搞 |
vbs虽然已经不是常见了,但是我觉得还挺好玩的。今天就用vbs整个活。 创建vbs文件1. 新建一个文本文档(.txt文件) 2. 修改后缀名为.vbs(把.txt替换成.vbs) 3. 系统会提示可能导致文件不可用,点确认就OK 4. 输入代码(见下) 5. 文件→另存文件,并设置编码格式为ANSI,点击保存(有的电脑默认的格式就是ANSI,不另存为也不会报错。但如果出现错误,那么可能是因为编码的问题) 我们可以用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还是很有趣的。
|
CopyRight 2018-2019 办公设备维修网 版权所有 豫ICP备15022753号-3 |