写一些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"

相关问题

一些有意思的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 代码，可以弹出一个消息框并显示一段文字：

MsgBox "Hello World!", vbInformation, "Greeting"

效果如下图所示：