ax19385 发表于 2020-7-29 07:22

[VBS脚本] 表白专业工具

今天，跟大家分享一个很厉害的表白工具，代表如下：
text()
function text()
dim a
a=inputbox("惟愿以后的日子，我们在时光的洪流中不会走散，惟愿你在我的心里，也存在在我的生活里，我想跟你牵手到老，你愿意吗?")
if a="愿意"then
Msgbox"嘻嘻，我就知道你愿意，往后余生，心中有你!",0,"恭喜"
else
Msgbox"进来了就不要走咯，迟早都是我的！",0,"再来一次!"
text()
end if
end function
常见问题：乱码。解决方式：在另存我里见UTF-8改为ANSI即可。

xjian903 发表于 2020-7-29 07:23

谢谢大佬

Cu1+ 发表于 2020-7-29 07:41

好的，非常感谢

yjcg 发表于 2020-7-29 07:57

谢谢大牛

375437498 发表于 2020-7-29 08:19

6666

中先生 发表于 2020-7-29 08:27

谢谢大佬

哪位找我 发表于 2020-7-29 09:22

谢谢分享

临街123 发表于 2020-7-29 12:00

感谢楼主分享

q954248701 发表于 2020-7-29 13:22

6666666666

杨一阳 发表于 2021-11-24 10:46

666666
页: [1]
查看完整版本: [VBS脚本] 表白专业工具