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

谢谢大佬分享
页: [1] 2
查看完整版本: 令人厌恶的表白