初识脚本语言VBS

语言: CN / TW / HK

这是我参与11月更文挑战的第17天,活动详情查看:2021最后一次更文挑战

vbs基本语法

cmd基本命令

PS

✌ 的意思为

HelloWorld

第一个程序

做一个HelloWorld弹框吧

  1. 桌面🖱️右键 -> 点击新建文本文档

  2. 修改输入法为英文模式

  3. 打开新建的文本文档,输入以下内容

    msgbox("Hello,World!")

  4. 点击左上角文件 -> 点击保存 ✌ 按Ctrl + S

  5. 右键单击文件 -> 点击重命名 ✌ 按F2-> 改为 01-HelloWorld.vbs

  6. 点击运行, 弹出内容为HelloWorld的弹框。

  7. 更改窗口位置:Win + ⬅️,方便程序调试。

扩展名不显示?

  1. Win + E 打开文件资源管理器
  2. 在菜单栏中点击查看
  3. 勾选右侧文件扩展名

扩展名是什么

仅仅是一些字母的集合, 修改了扩展名后, 就变成了可运行的程序?

  • 为什么要有扩展名?

在不读取文件内容的情况下, 系统无法得知该文件需要用什么软件打开。

使用中文

  1. 右键编辑 -> 修改内容为中文

    msgbox("你好, 世界!")

  2. 运行发现报错 ✌ 乱码

  3. 百度寻找解决办法

VBS语法

循环

如何恶搞用户,让他关不掉这个窗口呢?

脚本语言的代码是一行一行执行的,

每次关掉后执行下一行代码。

' 写入无限多的 msgbox msgbox("你好, 世界!") msgbox("你好, 世界!") ...

有没有更简单的方法?

' 这是一行注释, 用法如其名, 计算机不会执行这行东西。 ' 未来的编程之路将会经常用到他 do msgbox("关掉?你在想Peach") loop

如何关闭

  1. 任务栏单击鼠标右键 ✌ 按 Ctrl + Alt + Del
  2. 选择任务管理器
  3. 找到MicroSoft ® ...并选中
  4. 点击右下角结束任务 ✌ 重启电脑

条件循环

倒数10个数的窗口

每次运行前判断条件是否满足

``` ' 定义一个变量名字叫i, 值为10 dim i ' 这和数字怎么不需要"括起来呢? ' 只有字符串需要用"括起来 i=10

' 持续执行下面的代码, 直到i不大于0 do while i>0 msgbox(i) i=i-1 loop

' = 等于 ' <> 不等于 ' > 大于 ' < 小于 ```

条件判断

加入恶搞用户的交互

根据条件决定是否运行

``` dim answer ' 一个输入框, 输入的结果命名为answer answer = inputbox("说“我是猪”")

' 判断说输入的值是否为 我是猪 if answer = "我是猪" then msgbox("哈哈哈, 你是猪") elseif answer = "I'm a pig" then msgbox("hahaha, you are a pig") else do msgbox("你在想Peach") loop end if ```

以上就是编程中最常用的三种表达式了

更多?

制作一个有破坏作用恶搞程序

为类生产一个实例,并调用实例中的方法

这些东西编程语言已经为你实现好了, 我们所作的就是决定他的用用途。

未来能够自己编写类的时候,就可以理解了。

``` ' 一个输入框, 输入的结果命名为answer answer = inputbox("说“我是猪”")

' 判断说输入的值是否为“我是猪” if answer = "我是猪" then msgbox("哈哈哈, 你是猪") elseif answer = "I'm a pig" then msgbox("hahaha, you are a pig") else ' 使用 set 创建一个可以调用的实例 ' 汽车 = 制造(图纸) set ws = createobject("Wscript.shell") ' 汽车.发动('去曹县') ws.run("cmd.exe /c shutdown -s -t 10" ) msgbox("10s后就会关机") end if ```

推荐阅读

整蛊的VBS+bat代码

VBS--基础语法整理