天天看点

脚本之美│VBS 入门交互实战

脚本之美│VBS 入门交互实战

带你打开脚本的大门,领略语言之美

目录
  • 🎈 什么是 VBS
  • 🎈 第一个 VBS 脚本
  • 🎈 msgbox 语法
  • 🎈 中文乱码
  • 🎈 弹窗交互功能
  • 🎈 表白恶搞

🎈 什么是 VBS

  • VBS

    是一种

    Windows

    脚本语言,全称是

    Microsoft Visual Basic Script Editon

    ,微软公司可视化 BASIC 脚本版
  • vbs

    是系统内置的,代码可在

    windows

    系统中直接执行,不需要编译环境,非常的方便
  • vbs

    脚本简单,高效,大部分功能都可以实现,利用好

    vbs

    脚本,可以极大的提高效率,可以用它来做一些反复繁琐的机器操作

🎈 第一个 VBS 脚本

  • 在桌面上新建一个文本文档
  • 打开文本文档,在其中输入

    msgbox "Hello World!"

  • 将文本文档的格式后缀

    .txt

    改为

    .vbs

  • 然后双击运行文件即可
脚本之美│VBS 入门交互实战

🎈 msgbox 语法

  • 语法:

    msgbox "对话框内容","对话框类型(参数:0,1,2,3,4,5)","对话框标题"

  • 对话框内容:是指弹窗的主体内容
  • 对话框类型:可以选择

    0-5

    共6种类型的对话框模式,0时对话框只有

    确定按钮

    ;1时对话框有

    确定按钮

    取消按钮

    ;2时对话框有

    中止按钮

    重试按钮

    忽略按钮

    ;3时对话框有

    是按钮

    否按钮

    取消按钮

    ;4时对话框有

    是按钮

    否按钮

    并且对话框禁止点击右上角的

    关闭

    按钮;5时对话框有

    重试按钮

    取消按钮

    。如果不填默认为0
  • 对话框标题:是指弹窗的标题
msgbox "飞兔小哥送你一份奖品待领取", 3, "温馨提醒"
           
脚本之美│VBS 入门交互实战

🎈 中文乱码

  • 上图可以看到中文乱码了
  • 这主要是因为编码错误导致的,正常的文本文档它的编码格式是

    UTF-8

    的,但是

    VBS

    脚本需要编码格式是

    ANSI

    才可以正常运行中文
  • 这时候我们需要

    打开文本文档

    点击左上角文件

    另存为

    选择编码为ANSI

    确定

    即可解决
脚本之美│VBS 入门交互实战

🎈 弹窗交互功能

  • 上面我们只是实现了很简单的展示功能,那么我们需要实现交互功能,就要用到变量了
  • vbs

    中可以通过

    dim

    定义变量,语法为:

    dim 变量名1,变量名2,变量名3...变量名n

  • 其中

    inputbox

    可以用来接收用户手动输入的参数
dim name
name = inputbox("请告诉我您是谁", "这是交互的标题")
msgbox name,,"欢迎您"
           
脚本之美│VBS 入门交互实战
脚本之美│VBS 入门交互实战

🎈 表白恶搞

  • 之前很火的关闭不了的表白弹窗,就是

    vbs

    做出来的
  • 使用

    dim a(5)

    可以定义数组,5表示这个数组里面有多少元素
  • 使用

    Select Case

    表示这是一个选项
  • 其中选择同意的返回值为6,不同意的返回值为7
  • 如果点击了不同意,那就循环从数组中取值展示
  • 如果用户点击了同意,那就阴谋得逞,退出选项
MsgBox "佛前哭求"
MsgBox "奈何桥等待"
MsgBox "五百次回眸"
MsgBox "千年的回首"
MsgBox "百世的轮回"
MsgBox "换你今朝一世情缘"
MsgBox "可否"
dim a(5)
a(0)="天大,地大,女友最大"
a(1)="工资上交"
a(2)="房写你名"
a(3)="帮清购物车"
a(4)="保大"
a(5)="你就答应我把^o^"
Dim j
Do
Select Case msgbox ("姑娘,做我女朋友吧", 4)
Case 6 
MsgBox "you are my girlfriend," + Chr(13) + "from this day until to my last days."
exit do
Case 7
msgbox a(i)
i=i+1
if i >= 6 then
i = 0
end if

end Select
Loop
           
脚本之美│VBS 入门交互实战
脚本之美│VBS 入门交互实战

继续阅读