怎么用VB编写关机、重启、注销的功能（注：非强制，功能与单击开始菜单里的一样！）

Question

求大神给个代码吧！

Answer 1

Sub 关机()
    Shell "shutdown -s"  '电脑将在一分钟之后关机，cmd输入shutdown -a 取消关机
End Sub
Sub 重启()
    Shell "shutdown -r"  '电脑将在一分钟之后重启，cmd输入shutdown -a 取消重启
End Sub
Sub 注销()
    Shell "logoff"   '电脑将立即注销
End Sub追问

这是强制的吗？

追答

这不是强制的，运行里面输入shutdown -a会取消计划任务，如果不输入这个命令，在一分钟之后，就会执行相应的重启或者关机命令

Answer 2

Shell "shutdown /t 0 /s",vbNormalFocus ' 关机
Shell "shutdown /t 0 /r",vbNormalFocus ' 重启
Shell "shutdown /t 0 /l",vbNormalFocus ' 注销
if msgbox("是否关机",vbyesno)=vbyes then'如果你需要交互 可以弹窗让用户选择后再执行代码

'代码

end if追问

这是强制的吗？

追答

你不想一点按钮就关机 你可以用弹出让用户二次选择
if msgbox("是否关机",vbyesno)=vbyes then
Shell "shutdown /t 0 /s",vbNormalFocus ' 关机
end if
让用户选择是否关机