注意:英文引号里面可以填任何东西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) + "哈哈哈哈,好乖"
这是我是脑残
上面的是“我是脑残”语句,自己可以更改其中的中文
注意!360会报毒,添加信任就行了
3.do
msgbox(" ")
loop
这是无限弹窗,删不掉只能用任务管理器关掉
4.WScript.Echo("")——普通弹窗 只是弹一次
注意所有引号都是英文引号"""""
任务管理器启动方式:四个正方形
加r 然后输入cmd确认 再输入taskmgr
取消关机是shutdown -a
注意上面四串代码能用到一起,组成好玩搞笑的小程序