[VBS脚本] 表白专业工具

ax19385

今天，跟大家分享一个很厉害的表白工具，代表如下：

1. text()  
   
2. function text()  
   
3. dim a  
   
4. a=inputbox("惟愿以后的日子，我们在时光的洪流中不会走散，惟愿你在我的心里，也存在在我的生活里，我想跟你牵手到老，你愿意吗?")  
   
5. if a="愿意"then  
   
6. Msgbox"嘻嘻，我就知道你愿意，往后余生，心中有你!",0,"恭喜"  
   
7. else  
   
8. Msgbox"进来了就不要走咯，迟早都是我的！",0,"再来一次!"  
   
9. text()  
   
10. end if  
    
11. end function  

复制代码

常见问题：乱码。解决方式：在另存我里见UTF-8改为ANSI即可。

xjian903

谢谢大佬

Cu1+

好的，非常感谢

yjcg

谢谢大牛

375437498

6666

中先生

谢谢大佬

哪位找我

谢谢分享

临街123

感谢楼主分享

q954248701

6666666666

杨一阳

666666