求抖音强制表白程序

msgbox("明人不说暗话")

msgbox("我喜欢你")

msgbox("我知道你在等我这一句话")

msgbox("请你不要拒绝我")

msgbox("拒绝我，不存在的")

msgbox("这辈子都不可能让你离开我")

msgbox("跟我走吧")

msgbox("行，我们去民政局登记吧")

记得输入时改为英文格式，文件格式改为VBS

打开记事本，复制粘贴以下内容。

do

a=msgbox("嫁给我，是否同意？",36,"我爱你")

loop until a = vbYes

msgbox "我爱你宝贝"

点击文件，另存为，文件名输入“love.vbs”（不含隐含），保存类型选所有文件。保存即可。

不同意就关机的那种

x=msgbox("做我女朋友好不好",VbYesNo)

if x=VbYes then

msgbox("明天就去领证吧！")

msgbox("记得来找我。")

elseif x=VbNo then

x=msgbox("房产证写你名字",VbYesNo)

if x=VbYes then

msgbox("明天就去领证吧！")

msgbox("记得来找我。")

elseif x=VbNo then

x=msgbox("保大...",VbYesNo)

if x=VbYes then

msgbox("明天就去领证吧！")

msgbox("记得来找我。")

elseif x=VbNo then

x=msgbox("我妈会游泳",VbYesNo)

if x=VbYes then

msgbox("明天就去领证吧！")

msgbox("记得来找我。")

elseif x=VbNo then

msgbox("你真的不爱我吗？")

msgbox("那好吧。")

msgbox("那你就关机吧")

msgbox("真的哟！")

msgbox("都怪我太善良，再给你一次机会")

x=msgbox("你后悔吗？",VbYesNo)

if x=VbYes then

x=msgbox("到底爱不爱我",VbYesNo)

msgbox("明天就去领证吧！")

msgbox("记得来找我。")

elseif x=VbNo then

msgbox("宁死不屈在下佩服，拜拜。")

set ws=createobject("wscript.shell")

ws.run"cmd.exe /c shutdown -s -f -t 0"

End if

End if

End if

End if

End if

---