【VBS经典代码大全】在编程世界中，VBS（Visual Basic Script）虽然已经逐渐被更现代的脚本语言所取代，但其在自动化任务、系统管理以及简单脚本编写方面仍然具有不可忽视的价值。对于一些需要快速实现功能的场景，VBS依然是一把“利器”。本文将为大家整理一些经典的VBS代码示例，帮助你更好地理解和使用这门语言。
一、基础操作类
1. 弹窗提示信息
```vbs
MsgBox "欢迎使用VBS脚本！", vbInformation, "提示"
```
该代码会在屏幕上弹出一个信息框，显示指定内容。
2. 获取用户输入
```vbs
Dim name
name = InputBox("请输入你的名字：", "输入框")
MsgBox "你好，" & name & "！", vbExclamation, "欢迎"
```
通过`InputBox`函数获取用户输入，并用`MsgBox`返回结果。
二、文件操作类
3. 创建并写入文本文件
```vbs
Set fso = CreateObject("Scripting.FileSystemObject")
Set file = fso.CreateTextFile("C:\test.txt", True)
file.WriteLine("这是第一行内容。")
file.WriteLine("这是第二行内容。")
file.Close
```
此代码会在指定路径下创建一个名为`test.txt`的文本文件，并写入两行文字。
4. 读取文本文件内容
```vbs
Set fso = CreateObject("Scripting.FileSystemObject")
Set file = fso.OpenTextFile("C:\test.txt", 1)
content = file.ReadAll
file.Close
MsgBox content
```
该脚本会读取指定文件的所有内容并显示在一个消息框中。
三、系统操作类
5. 关闭当前窗口
```vbs
WScript.Quit
```
用于结束当前脚本的执行。
6. 显示系统信息
```vbs
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set colItems = objWMIService.ExecQuery("SELECT FROM Win32_ComputerSystem")
For Each objItem In colItems
MsgBox "计算机名称：" & objItem.Name & vbCrLf & _
"操作系统：" & objItem.OperatingSystem & vbCrLf & _
"系统制造商：" & objItem.Manufacturer
Next
```
通过WMI接口获取系统基本信息并显示出来。
四、实用小工具类
7. 计算器（简易版）
```vbs
Dim a, b, c
a = InputBox("请输入第一个数字：")
b = InputBox("请输入第二个数字：")
c = a + b
MsgBox "结果是：" & c
```
这是一个简单的加法计算器，适合初学者练习。
8. 自动发送邮件（需配合SMTP服务器）
```vbs
Set objEmail = CreateObject("CDO.Message")
objEmail.From = "sender@example.com"
objEmail.To = "receiver@example.com"
objEmail.Subject = "测试邮件"
objEmail.TextBody = "这是一封通过VBS发送的测试邮件。"
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.example.com"
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objEmail.Configuration.Fields.Update
objEmail.Send
```
该代码可用于自动发送邮件，但需配置正确的SMTP服务器地址和端口。
五、常见问题与注意事项
- 权限问题：某些操作（如修改系统文件或注册表）可能需要管理员权限。
- 安全性：VBS脚本容易被恶意利用，因此在运行未知来源的脚本时要格外小心。
- 兼容性：VBS主要适用于Windows环境，不支持跨平台运行。
结语
尽管VBS在现代开发中已不再主流，但其简洁易用的特点使得它在特定场景下仍具有重要价值。无论是系统维护、自动化任务还是简单的界面交互，VBS都能提供高效且直接的解决方案。希望本文提供的这些经典代码能为你带来启发和帮助，让你在VBS的世界中更加得心应手。
