求vb定时关机，注销，重启代码解决方法

求vb定时关机，注销，重启代码
谢谢各位

[解决办法]

VB code

shell "shutdown -s -t"
[解决办法]
看VB API吧。
[解决办法]
VB code
Public Function ShutDownPC(ByVal sCode As Long, Optional ByVal IsNt As Boolean = True)    'EWX_LOGOFF = 退出(注销)            (0)    'EWX_SHUTDOWN = 关机                (1)    'EWX_REBOOT = 重启动                (2)    'EWX_FORCE = 强制关机，即不通知现在活动应用程序让其先自我关闭       (4)