快周末了，给伙伴们分享两个有意思的代码，都是用VBS编写的。

VBS是基于Visual Basic的脚本语言，全称是：Microsoft Visual Basic Script Edition。（微软公司可视化BASIC脚本版）。

脚本都很简单，用记事本就可以搞定，不用另外安装软件即可运行。

1、向女朋友表白

先上效果，不点击“是”的话，对话框是不会消失的。

代码如下

msgbox "美女，你好！" msgbox "我来了" msgbox "你好漂亮啊",vbQuestion,"真滴" dim j do while j<1 Select Case msgbox("愿意做我的女朋友吗",4+32) Case 6 j=1 Case 7 msgbox("再想一想") end Select loop msgbox "么么哒" 

把上面的代码复制到记事本里面，另存为vbs扩展名的文件即可，双击运行即可。

当然，msgbox里面的内容可以换成你自己的。

2、不让熊孩子玩电脑

先看效果，对话框点击了确定也无法消失，对付偷玩电脑的“小混蛋”这招也算挺狠的。

代码如下

do msgbox("小混蛋，又玩电脑，回去给你买两套寒假作业！！！") loop 

同样，把上面的代码复制到记事本里面，另存为vbs扩展名的文件。再把图标更改为企鹅的图标，文件名也更改一下，双击运行即可。

以上两个只是最基本的代码，VBS还有其他很多有意思的玩法，当然有好多病毒木马也是通过这个传播的，有兴趣的可以自己探索。

另，如果你想让女友电脑一开机就会收到这个表白，如果你想把小混蛋这个对话框关闭，微信公众号后台回复「vbs」即可获得方法。

欢迎交流！

微信公众号：永恒君的百宝箱

个人博客：www.yhjbox.com

转载请注明：永恒君的百宝箱 » 周末了，分享两个非常有意思的vbs代码！