令人厌恶的表白

z827033561 · 发表于 2020-12-5 16:31

本软件需要安装VBS编译
直接新建一个记事本然后复制下面代码粘贴后缀改为.VBS
代码如下：

  MsgBox("我有一件事想跟你说！")

  MsgBox("自从第一天遇见你，我便对你难以忘怀了！")

  MsgBox("我喜欢上你了")

  msgbox"希望你能接受我的爱意"
  dim i
  do while i<1
  select case msgbox("2021年我们一起过",68,"")
  case 6i=1
  case 7
  msgbox"你再考虑下呗！"
  end select
  loop
  msgbox"I"
  msgbox"L"
  MsgBox"O"
  msgbox"V"
  msgbox"E"
  MsgBox"Y"
  MsgBox"O"
  msgbox"U"
  msgbox"ILOVEyou！"

成品下载地址：https://wahc.lanzoux.com/iL8Ymj2k22f

mapux520 · 发表于 2020-12-5 16:31

6666

xingcun · 发表于 2020-12-5 16:35

谢谢分享

liyikun0519 · 发表于 2020-12-5 16:50

6666666666

1375242759 · 发表于 2020-12-5 16:50

感谢分享，谢谢提供分享

chendancd55 · 发表于 2020-12-5 16:57

谢谢分享！

943284223 · 发表于 2020-12-5 17:39

支持楼主，谢谢分享。

zhongfangbing · 发表于 2020-12-5 17:39

多谢楼主分享

1936636579 · 发表于 2020-12-5 17:43

谢谢大牛

cherrystraw · 发表于 2020-12-5 18:01

谢谢大佬分享

[其他] 令人厌恶的表白

浏览过的版块