一些有意思的vbs代码

以下是一些有趣的 VBScript 代码：

1. 打印出当前日期和时间：

MsgBox Now()

2. 创建一个弹窗，要求用户输入他/她的名字，并将其存储在变量中：

name = InputBox("What's your name?")
MsgBox "Hello, " & name & "!"

3. 用 VBScript 写一个简单的计算器：

num1 = InputBox("Enter a number:")
num2 = InputBox("Enter another number:")
result = num1 + num2
MsgBox "The result is: " & result

4. 创建一个弹窗，询问用户是否要关闭计算机：

answer = MsgBox("Do you want to shut down your computer?", vbQuestion + vbYesNo, "Shutdown")
If answer = vbYes Then
    Set objShell = CreateObject("WScript.Shell")
    objShell.Run "shutdown -s -t 0"
End If

这些代码只是 VBScript 中的一小部分，但它们可以帮助你了解 VBScript 的基础知识，以及如何在 Windows 系统上使用它。

相关问题

vbs代码

以下是一个简单的 VBS 代码示例，可以在 Windows 上运行：

' 创建一个弹出窗口并显示消息
MsgBox "欢迎使用VBS代码！"

' 创建一个文件对象并写入文件
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.CreateTextFile("example.txt")
objFile.WriteLine("这是一个 VBS 文件示例。")
objFile.Close

在运行此代码之前，请确保您已经安装了 Windows 平台上的 VBScript 解释器。您可以使用记事本编辑并保存为 .vbs 文件，然后在 Windows 上双击运行该文件即可。

写一些vbs一键关机代码

以下是 VBS 一键关机代码：

Dim objShell
Set objShell = CreateObject("WScript.Shell")
objShell.Run "shutdown -s -t 0"

运行这段代码后，计算机将立即关机。如果想要延迟关机时间，可以将代码中的“0”替换为想要延迟的时间（单位为秒）。例如，如果想要延迟关机 60 秒，可以将代码修改为：

Dim objShell
Set objShell = CreateObject("WScript.Shell")
objShell.Run "shutdown -s -t 60"