文章目錄

• 一、電腦說話
• • 效果
  • 代碼
• 二、不說“我是豬”就關機
• • 效果
• 代碼
• 三、愛情測試
• • 效果
  • 代碼
• 四、微信無限發送
• • 效果
  • 代碼

一、電腦說話

效果

電腦說出：“打開我的人是豬”（內容可改）。

代碼

set objTTS = createobject("sapi.spvoice") objTTS.speak "打開我的人是豬"

二、不說“我是豬”就關機

效果

如題目，說的東東可改。

代碼

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) loop msgbox "早說就行了嘛" dim WSHshell set WSHshell = wscript.createobject("wscript.shell") WSHshell.run "cmd.exe /c shutdown -a",0 ,true msgbox "哈哈哈哈，好乖"

三、愛情測試

效果

輸入喜歡的人，是“張三”（字符串可改）就停止程序，否則無限次執行程序。

代碼

const title = "愛情測試" const yourname = "張三" const question = "你最喜歡的人是誰？請在下面的方框中輸入他（她）的名字。" const info = "你在說謊！不要逃避，實話實說。" const scend = "你說出了你的心扉，那就向他（她）表白吧。" dim youranswer do youranswer = inputbox(question, title) if youranswer <> yourname then msgbox info, vbinformation+vbokonly, title loop until youranswer = yourname msgbox scend, vbinformation+vbokonly, title

四、微信無限發送

效果

如題目，內容什么格式都可以（文字，圖片，視頻這些的）。
接收者可改，內容要copy。

代碼

set wshshell=wscript.createobject("wscript.shell") wshshell.AppActivate"接收者" for i = 1 to 100 wscript.sleep 100 wshshell.sendKeys "^v" wshshell.sendKeys "%s" next

總結

以上是生活随笔為你收集整理的vbs整人小程序集合的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。