小夥伴們大家好啊~

今天要給大家分享一個好玩的東東

話不多說

看圖

實現這個效果隻需要簡單的幾步：新建一個文本，将代碼複制到文本保存，将txt後綴修改為vbs即可。

下面是收集的一些代碼，直接複制就可以用，可以修改為自己想要顯示的文字。

1、最簡單的顯示一段文字

MsgBox "一大波病毒正在靠近..."

2、分别顯示多個信息

msgbox "電腦受到攻擊"msgbox "系統出現緻命錯誤"msgbox "請重啟電腦"

3、無限循環顯示“系統錯誤”

domsgbox "系統錯誤"loop

4、無限語音從1數到無限大

Set s = CreateObject("sapi.spvoice") i=0 do s.speak i i=i 1 loop

5、慎用，如此刷新打開任務管理器都難，隻能拔掉電源

set ws=createobject("wscript.shell") do ws.sendkeys "{f5}" loop

6、直接關機

dim WSHshell set WSHshell = wscript.createobject("wscript.shell") WSHshell.run "shutdown -f -s -t 00",0 ,true

7、不斷按下alt f4 ：打開任何程序都關掉

dim WSHshell set WSHshell = wscript.createobject("wscript.shell") dowscript.sleep 2500 WSHshell.SendKeys "%{F4}" loop

8、需要輸入正确名字才能關閉

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

9、素質4連

msgbox("做我女朋友好嗎？")msgbox("房産證上寫你名字")msgbox("保大")msgbox("我媽會遊泳")

10、表白

msgbox "我有一件事想跟你說",vbQuestion,"在嗎"msgbox"自從第一天遇見你，我便對你難以忘懷了！"CreateObject("SAPI.SpVoice").Speak"能夠遇見你，對我來說是最大的幸福。有了你，我的生活變的絢麗多彩，有了你，世界變得如此迷人。你是我的世界，我的世界是你。我願意用自己的一生，好好的陪着你，愛着你。陪你到你想去的地方，用心走完我們人生的餘下的旅程。在未來的日子裡，也許什麼都無法确定，但唯一可以确定的是，我愛的人是你，無論現在還是将來，我想我這裡都會是你最溫暖的港灣，都是為你遮風避雨的城牆。無論狂風，無論暴雨。我都會陪在你的身旁，讓你不會感到絲毫的擔心和惶恐。"msgbox"親愛的，我喜歡你"dim ido while i<1Select Case msgbox("做我女朋友好嗎？",68,"請鄭重的回答我！")Case 6 i=1Case 7 msgbox"你再考慮一下呗"end Selectloopmsgbox"愛你一萬年！"

11、打開無數個計算器，直到死機

set wsh=createobject("wscript.shell") do wsh.run "calc" loop

12、按500次回車

dim s do until s=500 s=s 1 msgbox "哥們，給我按500次回車吧",64 loop

13、不說我是豬就關機

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) "哈哈哈哈，好乖"

想要強制關閉的話打開任務管理器找到“wscript.exe”進程結束即可。

,

更多精彩资讯请关注tft每日頭條，我们将持续为您更新最新资讯!

查看全部