Do '若用户没有输入或单击取消(ESC),则再次弹出提示
Select Case InputBox("请输入执行的操作:" & vbCrLf & _
"1.关机" & vbCrLf & _
"2.重启" & vbCrLf & _
"3.注销" & vbCrLf & _
"4.取消操作", "选择操作", "2")
Case 1'关机
Shell "shutdown -s -t 0"
Case 2'重启
Shell "shutdown -r -t 0"
Case 3'注销
Shell "shutdown -l "
Case 4'取消操作
Exit Do
End Select
Loop