VBS入门篇之带你领略脚本语言的快乐

VBScript入门：领略脚本语言的魅力

VBScript（Visual Basic Scripting Edition）是一种轻量级、解释型的脚本语言，特别适合Windows环境下的自动化任务。让我们一起探索它的乐趣吧！

一、为什么选择VBScript？

简单易学：语法接近自然英语 无需编译：直接运行，快速测试 Windows原生支持：无需额外安装 强大功能：可操作文件、注册表、系统对象等

二、第一个VBScript程序

创建一个文本文件，重命名为hello.vbs，内容如下：

' 第一个VBScript程序
MsgBox "欢迎来到VBScript世界！", vbInformation, "问候"

双击运行即可看到一个消息框！

三、基础语法快速入门

1. 变量与数据类型

Dim name, age, salary
name = "小明"
age = 25
salary = 5000.50

MsgBox "姓名：" & name & vbCrLf & "年龄：" & age

2. 基本运算

Dim a, b, sum
a = 10
b = 20
sum = a + b

MsgBox a & " + " & b & " = " & sum

3. 条件判断

Dim score
score = InputBox("请输入你的分数：")

If score >= 90 Then
    MsgBox "优秀！"
ElseIf score >= 60 Then
    MsgBox "及格"
Else
    MsgBox "不及格"
End If

4. 循环控制

' For循环
For i = 1 To 5
    MsgBox "这是第 " & i & " 次提示"
Next

' While循环
Dim count
count = 1
Do While count <= 3
    MsgBox "While循环：" & count
    count = count + 1
Loop

四、实用小工具示例

1. 计算器

Dim num1, num2, operation, result

num1 = InputBox("请输入第一个数字：")
num2 = InputBox("请输入第二个数字：")
operation = InputBox("请选择运算（+ - * /）：")

num1 = CDbl(num1)
num2 = CDbl(num2)

Select Case operation
    Case "+"
        result = num1 + num2
    Case "-"
        result = num1 - num2
    Case "*"
        result = num1 * num2
    Case "/"
        If num2 <> 0 Then
            result = num1 / num2
        Else
            MsgBox "除数不能为0！"
            WScript.Quit
        End If
    Case Else
        MsgBox "无效的运算符！"
        WScript.Quit
End Select

MsgBox num1 & " " & operation & " " & num2 & " = " & result

2. 猜数字游戏

Randomize
Dim secretNumber, guess, attempts

secretNumber = Int((100 * Rnd) + 1)  ' 1-100随机数
attempts = 0

Do
    guess = InputBox("猜一个1-100之间的数字：")
    guess = CInt(guess)
    attempts = attempts + 1

    If guess < secretNumber Then
        MsgBox "太小了，再试试！"
    ElseIf guess > secretNumber Then
        MsgBox "太大了，再试试！"
    Else
        MsgBox "恭喜！猜对了！" & vbCrLf & _
               "秘密数字是：" & secretNumber & vbCrLf & _
               "你用了 " & attempts & " 次机会"
        Exit Do
    End If

    If attempts >= 10 Then
        MsgBox "机会用完了！正确答案是：" & secretNumber
        Exit Do
    End If
Loop

3. 文件操作

' 创建并写入文件
Set fso = CreateObject("Scripting.FileSystemObject")
Set file = fso.CreateTextFile("C:\test.txt", True)
file.WriteLine("这是第一行")
file.WriteLine("这是第二行")
file.Close

MsgBox "文件已创建！"

' 读取文件内容
If fso.FileExists("C:\test.txt") Then
    Set file = fso.OpenTextFile("C:\test.txt", 1)
    content = file.ReadAll
    file.Close
    MsgBox "文件内容：" & vbCrLf & content
End If

五、高级应用示例

1. 系统信息查看器

Set wmi = GetObject("winmgmts:\\.\root\cimv2")

' 获取计算机信息
Set compSys = wmi.ExecQuery("Select * from Win32_ComputerSystem")
For Each comp In compSys
    MsgBox "计算机名：" & comp.Name & vbCrLf & _
           "制造商：" & comp.Manufacturer & vbCrLf & _
           "型号：" & comp.Model
Next

' 获取操作系统信息
Set os = wmi.ExecQuery("Select * from Win32_OperatingSystem")
For Each o In os
    MsgBox "操作系统：" & o.Caption & vbCrLf & _
           "版本：" & o.Version & vbCrLf & _
           "安装日期：" & o.InstallDate
Next

2. 简单闹钟

Dim alarmTime, currentTime

alarmTime = InputBox("请输入闹钟时间（格式：HH:MM）：")
MsgBox "闹钟已设置为 " & alarmTime & vbCrLf & "最小化此窗口，时间到了会有提醒"

Do
    currentTime = Time
    If FormatDateTime(currentTime, 4) = alarmTime Then
        For i = 1 To 5
            CreateObject("WScript.Shell").Run "cmd /c echo " & Chr(7), 0
            WScript.Sleep 500
        Next
        MsgBox "时间到！现在是 " & currentTime
        Exit Do
    End If
    WScript.Sleep 30000  ' 每30秒检查一次
Loop