VBS 入门交互实战-Toy模板网

这篇具有很好参考价值的文章主要介绍了VBS 入门交互实战。希望对大家有所帮助。如果存在错误或未考虑完全的地方，请大家不吝赐教，您也可以点击"举报违法"按钮提交疑问。

🎈 什么是 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 做出来的
使用 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