美文网首页
周末了,分享两个非常有意思的vbs代码!

周末了,分享两个非常有意思的vbs代码!

作者: 永恒君的百宝箱 | 来源:发表于2019-01-12 14:40 被阅读64次

    快周末了,给伙伴们分享两个有意思的代码,都是用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还有其他很多有意思的玩法,当然有好多病毒木马也是通过这个传播的,有兴趣的可以自己探索。

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

    欢迎交流!

    相关文章

      网友评论

          本文标题:周末了,分享两个非常有意思的vbs代码!

          本文链接:https://www.haomeiwen.com/subject/drccdqtx.html