目录

  1. VBScript 概述
  2. VBScript 语法基础
  3. 变量与数据类型
  4. 运算符
  5. 条件语句
  6. 循环语句
  7. 函数与子过程
  8. 文件操作
  9. Windows 脚本编程
  10. VBScript 结合 HTML
  11. 错误处理
  12. 参考资料

1. VBScript 概述

VBScript（Visual Basic Scripting Edition） 是微软开发的一种轻量级脚本语言，常用于 Windows 脚本编程、网页脚本 及 Office 自动化。

特点：

  • 简单易学，类似 VB 语法
  • 适用于 Windows，可用于批处理任务（.vbs 文件）
  • 可操作 Windows 组件（如 WSH、WMI、ActiveX）
  • 可嵌入 HTML 页面（但现代浏览器已停止支持）

2. VBScript 语法基础

2.1 Hello, World!

1
MsgBox "Hello, World!"

2.2 基本代码结构

1
2
3
4
' 这是单行注释
Dim message  ' 声明变量
message = "VBScript 入门教程"
MsgBox message

关键点：

  • ' 表示单行注释
  • Dim 声明变量
  • MsgBox 显示消息框

3. 变量与数据类型

3.1 变量声明

1
2
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 类型转换

1
2
3
4
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 语句

1
2
3
4
5
6
7
Dim score
score = 85
If score >= 60 Then
    MsgBox "及格"
Else
    MsgBox "不及格"
End If

5.2 Select Case

1
2
3
4
5
6
7
8
9
10
11
12
13
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

1
2
3
4
Dim i
For i = 1 To 5
    MsgBox "第 " & i & " 次循环"
Next

6.2 Do…Loop

1
2
3
4
5
6
Dim num
num = 1
Do While num <= 3
    MsgBox "循环次数：" & num
    num = num + 1
Loop

7. 函数与子过程

7.1 自定义函数

1
2
3
4
5
Function AddNumbers(a, b)
    AddNumbers = a + b
End Function
 
MsgBox AddNumbers(5, 10)

7.2 子过程（Sub）

1
2
3
4
5
Sub ShowMessage()
    MsgBox "Hello from Sub!"
End Sub
 
Call ShowMessage()

8. 文件操作

8.1 读取文件

1
2
3
4
5
6
7
8
9
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 写入文件

1
2
3
4
5
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 操作注册表

1
2
3
Dim objShell
Set objShell = CreateObject("WScript.Shell")
objShell.RegWrite "HKCU\Software\TestKey\", "TestValue", "REG_SZ"

9.2 运行外部程序

1
2
3
Dim objShell
Set objShell = CreateObject("WScript.Shell")
objShell.Run "notepad.exe"

10. VBScript 结合 HTML

VBScript 可嵌入 HTML（但现代浏览器已停止支持）。

1
2
3
4
5
6
7
<html>
<body>
<script language="VBScript">
    MsgBox "VBScript in HTML"
</script>
</body>
</html>

11. 错误处理

11.1 使用 On Error Resume Next

1
2
3
4
5
6
On Error Resume Next
Dim x
x = 1 / 0  ' 除零错误
If Err.Number <> 0 Then
    MsgBox "错误：" & Err.Description
End If

12. 参考资料

  1. Microsoft VBScript 官方文档
  2. VBScript FileSystemObject 文档
  3. Windows Scripting Host（WSH）