容易掌握的VBS好玩代码

        注意:英文引号里面可以填任何东西1.set objTTS = createobject("sapi.spvoice")

objTTS.speak"  "

objTTS.speak"  "——这是调用语音

---

2.on error resume next

dim WSHshellA

set WSHshellA = wscript.createobject("wscript.shell")

WSHshellA.run "cmd.exe /c shutdown -r -t 180 -c ""说我是脑残，不说我是脑残就一分钟关机，不信，试下···"" ",0 ,true

dim a

do while(a <> "我是脑残")

a = inputbox ("说我是脑残,就不关机，快撒，说 ""我是脑残""　","说不说","",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) + "哈哈哈哈，好乖"

这是我是脑残

图片发自App

上面的是“我是脑残”语句，自己可以更改其中的中文

注意！360会报毒，添加信任就行了

---

3.do

msgbox("  ")

loop

图片发自App

这是无限弹窗，删不掉只能用任务管理器关掉

---

4.WScript.Echo("")——普通弹窗 只是弹一次

注意所有引号都是英文引号"""""

---

任务管理器启动方式：四个正方形

图片发自App

加r 然后输入cmd确认 再输入taskmgr

取消关机是shutdown -a

注意上面四串代码能用到一起，组成好玩搞笑的小程序

---