用VBS写一个多功能定时关机的脚本，要求有8个选项，要求带有注释

### 回答1：

'注释：本脚本用于定时关机Option ExplicitDim strTime, strType, intResult'设置关机时间
strTime = InputBox("请输入关机时间（小时）：")'设置关机类型
strType = InputBox("请输入关机类型（1.关机；2.重启；3.注销；4.休眠；5.关闭显示器）：")'设置关机命令
intResult = MsgBox("您要在" & strTime &"小时后" & strType & "吗？", vbYesNo + vbQuestion, "定时关机")If intResult = vbYes Then
'执行关机命令
Select Case strType
Case 1
'关机
Wscript.Quit(2)
Case 2
'重启
Wscript.Quit(3)
Case 3
'注销
Wscript.Quit(1)
Case 4
'休眠
Wscript.Quit(4)
Case 5
'关闭显示器
Wscript.Quit(5)
End Select
End If'设置延时时间
WScript.Sleep 1000 * 60 * 60 * strTime'再次执行关机命令
Select Case strType
Case 1
'关机
Wscript.Quit(2)
Case 2
'重启
Wscript.Quit(3)
Case 3
'注销
Wscript.Quit(1)
Case 4
'休眠
Wscript.Quit(4)
Case 5
'关闭显示器
Wscript.Quit(5)
End Select答：VBS脚本可以用来写一个多功能定时关机的功能，包括设置关机时间、关机类型，以及提供8个关机选项，并且要求带有注释。

### 回答2：
这是一个用VBS编写的多功能定时关机脚本，包含了8个选项，并且每个选项都有注释说明其功能。

' VBS多功能定时关机脚本

Option Explicit

Dim objShell, intChoice

' 创建WScript Shell对象
Set objShell = CreateObject("WScript.Shell")

' 显示菜单选项
intChoice = MsgBox("请选择以下功能：
    1. 定时关机
    2. 定时重启
    3. 30分钟后关机
    4. 1小时后关机
    5. 取消定时关机
    6. 注销当前用户
    7. 锁定计算机
    8. 退出脚本", vbInformation + vbYesNo + vbDefaultButton1, "多功能定时关机")

' 根据不同的选择执行对应的功能
Select Case intChoice
    Case vbYes + 1
        ' 执行定时关机功能，输入关机时间
        Dim strTime1
        strTime1 = InputBox("请输入要定时关机的时间（格式为HH:mm）：", "定时关机")
        If strTime1 <> "" Then
            objShell.Run "shutdown.exe -s -t 00 -f -t " & strTime1, 0, True
        End If
    Case vbYes + 2
        ' 执行定时重启功能，输入重启时间
        Dim strTime2
        strTime2 = InputBox("请输入要定时重启的时间（格式为HH:mm）：", "定时重启")
        If strTime2 <> "" Then
            objShell.Run "shutdown.exe -r -t 00 -f -t " & strTime2, 0, True
        End If
    Case vbYes + 3
        ' 执行30分钟后关机功能
        objShell.Run "shutdown.exe -s -t 1800 -f", 0, True
    Case vbYes + 4
        ' 执行1小时后关机功能
        objShell.Run "shutdown.exe -s -t 3600 -f", 0, True
    Case vbYes + 5
        ' 取消定时关机
        objShell.Run "shutdown.exe -a", 0, True
    Case vbYes + 6
        ' 注销当前用户
        objShell.Run "shutdown.exe -l", 0, True
    Case vbYes + 7
        ' 锁定计算机
        objShell.Run "Rundll32.exe user32.dll,LockWorkStation", 0, True
    Case Else
        ' 退出脚本
        WScript.Quit
End Select

' 释放对象
Set objShell = Nothing

请注意，此脚本仅适用于Windows系统。在使用脚本之前，请确保仔细阅读注释，并根据需要选择相应的功能。

### 回答3：
以下是一个用VBS写的多功能定时关机脚本，共包含了8个选项，并且每个选项都有相应的注释说明：

Option Explicit

' 创建 WScript.Shell 对象
Dim WshShell
Set WshShell = CreateObject("WScript.Shell")

' 获取用户输入的选项
Dim choice
choice = InputBox("请选择操作：" & vbNewLine & "1. 立即关机" & vbNewLine & "2. 定时关机" & vbNewLine & "3. 定时重启" & vbNewLine & "4. 定时注销" & vbNewLine & "5. 取消定时关机" & vbNewLine & "6. 取消定时重启" & vbNewLine & "7. 取消定时注销" & vbNewLine & "8. 退出", "多功能定时关机脚本")

' 执行相应的选项
Select Case choice
    Case "1"
        ' 立即关机
        WshShell.Run "shutdown /s /t 0", 0, True
        MsgBox "计算机将立即关机。"
    
    Case "2"
        ' 定时关机
        Dim time
        time = InputBox("请输入定时关机的时间（单位：分钟）：", "定时关机")
        WshShell.Run "shutdown /s /t " & time * 60, 0, True
        MsgBox "计算机将在 " & time & " 分钟后关机。"
    
    Case "3"
        ' 定时重启
        Dim time
        time = InputBox("请输入定时重启的时间（单位：分钟）：", "定时重启")
        WshShell.Run "shutdown /r /t " & time * 60, 0, True
        MsgBox "计算机将在 " & time & " 分钟后重启。"
    
    Case "4"
        ' 定时注销
        Dim time
        time = InputBox("请输入定时注销的时间（单位：分钟）：", "定时注销")
        WshShell.Run "shutdown /l /t " & time * 60, 0, True
        MsgBox "计算机将在 " & time & " 分钟后注销。"
    
    Case "5"
        ' 取消定时关机
        WshShell.Run "shutdown /a", 0, True
        MsgBox "已取消定时关机。"
    
    Case "6"
        ' 取消定时重启
        WshShell.Run "shutdown /a", 0, True
        MsgBox "已取消定时重启。"
    
    Case "7"
        ' 取消定时注销
        WshShell.Run "shutdown /a", 0, True
        MsgBox "已取消定时注销。"

    Case "8"
        ' 退出脚本
        MsgBox "脚本已退出。"
    
    Case Else
        MsgBox "无效的选项，请重新运行脚本并选择正确的选项。"
End Select

' 释放 WScript.Shell 对象
Set WshShell = Nothing

此脚本使用了Shell对象的Run方法来执行关机、重启和注销的命令，并通过InputBox函数获取用户输入的选项和时间。通过选择不同的选项，用户可以实现立即关机、定时关机、定时重启、定时注销、取消定时关机、取消定时重启、取消定时注销以及退出脚本的功能。