正因为生来什么都没有,因此我们能拥有一切。(o゚▽゚)o

  • 微信公众号
  • 神奇的vbs

    jingyile·2018-08-06·260 次阅读

    最近在抖音上很火的各种电脑表白神器,只需要短短的几行代码很轻松就可以达到不错的效果,这自然是引起了我的探索兴趣。

    大概就是在桌面上新建一个txt文件,然后输入类似下面短短几行代码,另存为.vbs文件打开即可。

    msgbox("做我女朋友好吗?")
    msgbox("房产证写你名字...")
    msgbox("保大...")
    msgbox("我妈会游泳..")
    x=msgbox("做我女朋友好不好",VbOkCancel)
    if x=VbOk then msgbox("爱你,么么哒")
    if x=VbCancel then msgbox("哼,再见")

    别说是学编程的人,就是没学过的人都觉得超级简单。

    VBS是基于微软公司可视化Visual Basic的脚本语言,不编译成二进制文件, 直接由宿主(host)解释源代码并执行。

    真是一个有趣的东西,而且它很方便啊。

    而上面这几行代码,确实也很简单。

    MsgBox是Visual Basic和VBS中的一个函数,功能是弹出一个对话框,等待用户单击按钮,并返回一个Integer值表示用户单击了哪一个按钮。

    “MsgBox”即为“Message Box”的缩写,在英语中意为“信箱”。

    其实这个就相当于一个输出语句。

    语法

    MsgBox (Prompt [,Buttons] [,] [,,])

    老感觉百科给出的格式这个怪怪的,下面是我自己试着写的。

    MsgBox("Prompt"),Buttons,"Title",[Helpfile,Context]

    参数(来源搜狗百科)QQ%E6%88%AA%E5%9B%BE20180806161549 - 神奇的vbs

    参数设置值

    QQ%E6%88%AA%E5%9B%BE20180806161835 - 神奇的vbs

    我试了一下,buttons这里写常数与其对应的值效果应该是一样的。

    以后当然是选择写数字啦!

    msgbox("做我女朋友好吗?"),1,"做我女朋友好吗?"

    msgbox("房产证写你名字......我妈会游泳..."),vbOKCancel,"房产证写你名字......我妈会游泳..."

    函数返回值

    QQ%E6%88%AA%E5%9B%BE20180806162031 - 神奇的vbs

    上面代码的后两行if ...then...则与其他编程语言语法差不多,等于用“=”即可,不必和C一样使用“==”.

    同样代码中,直接判断数值写起来更简单一些。

    网上有许许多多关于vbs的好玩的源代码,今天试了好多种。这里贴一个有趣的英文无限报数的。

    Set s = CreateObject("sapi.spvoice")

    i=0

    do

    s.speak i

    i=i+1

    loop

    其他那些恶搞的代码,有很多动不动就威胁说要关机的,事实是还真的一不注意被关机了......(´థ౪థ)σ

    所以特意去系统的查了一下关于shutdown的用法

    Shutdown -a 取消关机

    Shutdown -s 关机

    Shutdown -f 强行关闭应用程序

    Shutdown -m \\计算机名 控制远程计算机

    Shutdown -i 显示“远程关机”图形用户界面,但必须是Shutdown的第一个参数

    Shutdown -l 注销当前用户

    Shutdown -r 关机并重启

    Shutdown -s -t 时间 设置关机倒计时

    Shutdown -h 休眠

            Shutdown -c "+messages" 提示信息

    例如:shutdown -s -t 5 -c "5秒后关机,请保存打开的文档!"

    (笨笨的我刚才试这个命令时忘了把时间调长一点,没来得及取消,又被关机了.(´థ౪థ)σ

    再次特别感谢wordpress和wps的自动保存功能,不然真哭了...)

    比如电脑要在24:00关机:at 24:00 Shutdown -s (网上说的,亲测无效)

    Shutdown -s -t 7200”,这里表示120分钟后自动关机(实用,可以在出门很久又要下东西之类的情况下用,亲测有效)

    timg 300x188 - 神奇的vbs


    正因为生来什么都没有,因此我们能拥有一切。(o゚▽゚)o

    
    
    查看评论

    Post a new comment

    Post a new comment
    欢迎回来 , [ 修改 ]




    加载中……