5

脚本之美│VBS 入门交互实战 - 极客飞兔

 1 year ago
source link: https://www.cnblogs.com/autofelix/p/16406358.html
Go to the source link to view the article. You can view the picture content, updated content and better typesetting reading experience. If the link is broken, please click the button below to view the snapshot at that time.

一、什么是 VBS#

  • VBS 是一种 Windows 脚本语言,全称是 Microsoft Visual Basic Script Editon,微软公司可视化 BASIC 脚本版
  • vbs 是系统内置的,代码可在 windows 系统中直接执行,不需要编译环境,非常的方便
  • vbs 脚本简单,高效,大部分功能都可以实现,利用好 vbs 脚本,可以极大的提高效率,可以用它来做一些反复繁琐的机器操作

二、第一个 VBS 脚本#

  • 在桌面上新建一个文本文档
  • 打开文本文档,在其中输入 msgbox "Hello World!"
  • 将文本文档的格式后缀 .txt 改为 .vbs
  • 然后双击运行文件即可
2894189-20220623173526052-801164445.png

三、msgbox 语法#

  • 语法:msgbox "对话框内容","对话框类型(参数:0,1,2,3,4,5)","对话框标题"
  • 对话框内容:是指弹窗的主体内容
  • 对话框类型:可以选择 0-5 共6种类型的对话框模式,0时对话框只有确定按钮;1时对话框有确定按钮取消按钮;2时对话框有中止按钮重试按钮忽略按钮;3时对话框有是按钮否按钮取消按钮;4时对话框有是按钮否按钮并且对话框禁止点击右上角的关闭按钮;5时对话框有重试按钮取消按钮。如果不填默认为0
  • 对话框标题:是指弹窗的标题
msgbox "飞兔小哥送你一份奖品待领取", 3, "温馨提醒"
2894189-20220623174923652-2026983496.png

四、中文乱码#

  • 上图可以看到中文乱码了
  • 这主要是因为编码错误导致的,正常的文本文档它的编码格式是 UTF-8 的,但是 VBS 脚本需要编码格式是 ANSI 才可以正常运行中文
  • 这时候我们需要 打开文本文档点击左上角文件另存为选择编码为ANSI确定 即可解决
2894189-20220623175822102-1869385632.png

五、弹窗交互功能#

  • 上面我们只是实现了很简单的展示功能,那么我们需要实现交互功能,就要用到变量了
  • vbs 中可以通过 dim 定义变量,语法为:dim 变量名1,变量名2,变量名3...变量名n
  • 其中 inputbox 可以用来接收用户手动输入的参数
dim name
name = inputbox("请告诉我您是谁", "这是交互的标题")
msgbox name,,"欢迎您"
2894189-20220623182459295-1215599265.png
2894189-20220623182605319-329752743.png

六、表白恶搞#

  • 之前很火的关闭不了的表白弹窗,就是 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
2894189-20220623184808626-115907347.png
2894189-20220623184814068-1299300525.png

About Joyk


Aggregate valuable and interesting links.
Joyk means Joy of geeK