一个贼简单的代码表白

前一阵网上挺火的各种表白代码,
自己学着也做了一个 记事本编写,后缀改为vbs 就能运行了。
(文章最后边有个百度云盘链接,可以直接下载。或者去我上传的资源也能免费下载)

在这里插入图片描述
在这里插入图片描述
(其中有一串代码会关机的呦,我是WIN10系统)
set ws=createobject(“wscript.shell”)
ws.run"cmd.exe /c shutdown -s -f -t 0"
在这里插入图片描述
哈哈 知道三号女生是什么梗吗? (来源于文松的一个小品,那个老弟啊姐给你爆灯的那个!!嗯哼)
就是注意一下代码中符号必须是英文的哦! 要不可麻烦了。
源码:

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
          msgbox("后悔就不给你关机了,3号女生!")
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

链接:https://pan.baidu.com/s/1r8UemUbkRaFxIdSbVaRYRg
提取码:8qd4
复制这段内容后打开百度网盘手机App,操作更方便哦

评论 35
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值