Option Explicit
Private Sub Command1_Click() '关机
Shell "cmd.exe /c shutdown -s -t 10" '10秒后关机
'Shell "cmd.exe /c shutdown -s -t " & Text1.Text ' 自动设置关机时间
End Sub
Private Sub Command2_Click() '取消关机
Shell "cmd.exe /c shutdown -a"
End Sub