无法拒绝的告白代码制作方法（恶搞损友骚操作）

小伙伴们大家好啊~

今天要给大家分享一个好玩的东东

话不多说

看图

实现这个效果只需要简单的几步：新建一个文本，将代码复制到文本保存，将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”进程结束即可。

,