VBScript(VBS)是一种简单的脚本语言,通常用于自动化任务或创建简单的应用程序。虽然VBS的功能有限,但它仍然可以用于创建一些有趣的脚本。以下是一些有趣的VBS脚本示例,它们可以用于学习和娱乐:
1.弹出窗口问候语: 这个脚本会在屏幕上弹出一个窗口,显示问候语。
MsgBox "你好,世界!欢迎使用VBScript!"
2.随机数生成器: 生成两个随机数并将它们相加。
Randomize
Dim num1, num2, sum
num1 = Int((100 * Rnd) + 1)
num2 = Int((100 * Rnd) + 1)
sum = num1 + num2
MsgBox "随机数1: " & num1 & vbCrLf & _
"随机数2: " & num2 & vbCrLf & _
"两数之和: " & sum
3.简单的计算器: 允许用户输入两个数字并选择运算符,然后显示结果。
Dim num1, num2, operator, result
num1 = InputBox("请输入第一个数字:")
num2 = InputBox("请输入第二个数字:")
operator = UCase(InputBox("选择运算符(+,-,*,/):"))
Select Case operator
Case "+"
result = num1 + num2
Case "-"
result = num1 - num2
Case "*"
result = num1 * num2
Case "/"
result = num1 / num2
Case Else
MsgBox "无效的运算符"
Exit Sub
End Select
MsgBox "结果是:" & result
4.文件浏览器: 列出指定目录下的所有文件,并允许用户查看文件大小。
Dim fso, folder, file, files
Set fso = CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder("C:\指定目录")
For Each file In folder.Files
MsgBox "文件名: " & file.Name & vbCrLf & _
"文件大小: " & Round(file.Size / 1024, 2) & " KB"
Next
5.系统信息获取: 显示一些基本的系统信息,如操作系统版本、CPU速度等。
Dim os, cpu
Set os = CreateObject("WMIScriptUtils.Os")
Set cpu = CreateObject("WMIScriptUtils.Cpu")
MsgBox "操作系统: " & os.Caption & vbCrLf & _
"CPU速度: " & cpu.MaxClockSpeed & " MHz"
请注意,这些脚本仅供学习和娱乐使用,不应该用于任何可能影响他人计算机正常运行的方式。在使用VBScript或任何脚本语言时,请确保你了解其功能,并始终遵守安全和道德准则。