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

objTTS.speak"? "

objTTS.speak"? "——這是調(diào)用語音

2.on error resume next

dim WSHshellA

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

WSHshellA.run "cmd.exe /c shutdown -r -t 180 -c ""說我是腦殘，不說我是腦殘就一分鐘關(guān)機，不信，試下···"" ",0 ,true

dim a

do while(a <> "我是腦殘")

a = inputbox ("說我是腦殘,就不關(guān)機，快撒，說 ""我是腦殘""　","說不說","",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) + "哈哈哈哈，好乖"

這是我是腦殘

圖片發(fā)自簡書App

上面的是“我是腦殘”語句，自己可以更改其中的中文

注意！360會報毒，添加信任就行了

3.do

msgbox("? ")

loop

圖片發(fā)自簡書App

這是無限彈窗，刪不掉只能用任務(wù)管理器關(guān)掉

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

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

任務(wù)管理器啟動方式：四個正方形

圖片發(fā)自簡書App

加r 然后輸入cmd確認 再輸入taskmgr

取消關(guān)機是shutdown -a

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