Question

VB 关机代码与程序退出代码???

VB 关机代码(适应WIN 98/2000/XP)与程序退出代码???
还有重起命令,除了shutdown
试了,不行呀

Answer 1

Public Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long

在按钮事件中用如下代码可关机：
Private Sub Command1_Click()
ExitWindowsEx 1, 0
End Sub

在按钮事件中用如下代码可重启：
Private Sub Command1_Click()
ExitWindowsEx 2, 0
End Sub

退出的话
unload me即可

Answer 2

private sub command1_click()
shell "shutdown -s -t 30 "
end sub