目录
1. VBScript 概述
VBScript（Visual Basic Scripting Edition） 是微软开发的一种轻量级脚本语言，常用于 Windows 脚本编程、网页脚本 及 Office 自动化。
特点：
- 简单易学，类似 VB 语法
- 适用于 Windows，可用于批处理任务（.vbs 文件）
- 可操作 Windows 组件（如 WSH、WMI、ActiveX）
- 可嵌入 HTML 页面（但现代浏览器已停止支持）
2. VBScript 语法基础
2.1 Hello, World!
MsgBox "Hello, World!"
2.2 基本代码结构
' 这是单行注释
Dim message ' 声明变量
message = "VBScript 入门教程"
MsgBox message
关键点：
'表示单行注释Dim声明变量MsgBox显示消息框
3. 变量与数据类型
3.1 变量声明
Dim x
x = 10 ' 变量可以存储不同类型的值
VBScript 只有 一种数据类型（Variant），可以存储不同类型的值。
3.2 数据类型
| 数据类型 | 说明 |
|---|---|
| Integer | 整数（-32,768 到 32,767） |
| Long | 长整数（-2,147,483,648 到 2,147,483,647） |
| Double | 双精度浮点数 |
| String | 字符串 |
| Boolean | 逻辑值（True / False） |
| Date | 日期时间 |
3.3 类型转换
Dim num, str
num = 100
str = CStr(num) ' 转换为字符串
MsgBox TypeName(str) ' 输出 "String"
4. 运算符
4.1 算术运算符
| 运算符 | 说明 | 示例 |
|---|---|---|
+ | 加法 | x = 5 + 3 |
- | 减法 | x = 10 - 2 |
* | 乘法 | x = 4 * 2 |
/ | 除法 | x = 9 / 3 |
Mod | 取模 | x = 10 Mod 3 |
4.2 比较运算符
| 运算符 | 说明 | 示例 |
|---|---|---|
= | 等于 | x = (a = b) |
<> | 不等于 | x = (a <> b) |
< | 小于 | x = (a < b) |
> | 大于 | x = (a > b) |
5. 条件语句
5.1 If 语句
Dim score
score = 85
If score >= 60 Then
MsgBox "及格"
Else
MsgBox "不及格"
End If
5.2 Select Case
Dim grade
grade = "B"
Select Case grade
Case "A"
MsgBox "优秀"
Case "B"
MsgBox "良好"
Case "C"
MsgBox "及格"
Case Else
MsgBox "不及格"
End Select
6. 循环语句
6.1 For…Next
Dim i
For i = 1 To 5
MsgBox "第 " & i & " 次循环"
Next
6.2 Do…Loop
Dim num
num = 1
Do While num <= 3
MsgBox "循环次数：" & num
num = num + 1
Loop
7. 函数与子过程
7.1 自定义函数
Function AddNumbers(a, b)
AddNumbers = a + b
End Function
MsgBox AddNumbers(5, 10)
7.2 子过程（Sub）
Sub ShowMessage()
MsgBox "Hello from Sub!"
End Sub
Call ShowMessage()
8. 文件操作
8.1 读取文件
Dim fso, file
Set fso = CreateObject("Scripting.FileSystemObject")
Set file = fso.OpenTextFile("C:\test.txt", 1)
Do Until file.AtEndOfStream
MsgBox file.ReadLine
Loop
file.Close
8.2 写入文件
Dim fso, file
Set fso = CreateObject("Scripting.FileSystemObject")
Set file = fso.CreateTextFile("C:\test.txt", True)
file.WriteLine "Hello, VBScript!"
file.Close
9. Windows 脚本编程
9.1 操作注册表
Dim objShell
Set objShell = CreateObject("WScript.Shell")
objShell.RegWrite "HKCU\Software\TestKey\", "TestValue", "REG_SZ"
9.2 运行外部程序
Dim objShell
Set objShell = CreateObject("WScript.Shell")
objShell.Run "notepad.exe"
10. VBScript 结合 HTML
VBScript 可嵌入 HTML（但现代浏览器已停止支持）。
<html>
<body>
<script language="VBScript">
MsgBox "VBScript in HTML"
</script>
</body>
</html>
11. 错误处理
11.1 使用 On Error Resume Next
On Error Resume Next
Dim x
x = 1 / 0 ' 除零错误
If Err.Number <> 0 Then
MsgBox "错误：" & Err.Description
End If
发表回复