求VB编写的关闭、重启、注销的代码，谢了！！

Call Shell ("shutdown -l -f")'注销
Call Shell ("shutdown -s -f")'关闭
Call Shell ("shutdown -r -f")'重启

或

设定状态
SetSuspendState
是否支持休眠
IsPwrHibernateAllowed
是否支持待机
IsPwrSuspendAllowed

看MSDN的Power Management部分

ColdMooon

'在窗体内
'放置一个时间控件，两个标签控件和一个文体框控件，和两个单选按钮，两个命令按钮

Option Explicit
Dim txtTime '保存输入时间
Dim nowTime '保存实时时间
Dim oldTime '保存开始定时时间

Private Sub Form_Load()

me.caption="定时关机"

me.label1.caption="关机时间："
me.Option1.caption="在指定时间关机(时间格式：00:00:00)"
me.Option2.caption="延迟指定的时间关机"
me.command1.caption="确定"
me.command2.caption="取消"

Me.Text1 = GetSetting("ShutDownWindows", "Options", "ShutDownTime", "1:00")
me!timer1.interval=1000

E