关机代码

Question

Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
'EWX_LOGOFF 中止进程，然后注销 
'EWX_SHUTDOWN 关掉系统电源（如果可能的话，ATX电源就可以） 
'EWX_REBOOT ExitWindowsEx EWX_LOGOFF, 0
为什么2000，xp下可以，98下无论哪个参数都是类似注销的情况，怎么解决

Answer 1

98的不一样的
Private Declare Function ExitWindowsEx Lib ″user32″ (ByVal uFlags As Long,ByVal dwReserved As Long) As Long　　Const ShutDown = 1　　Const ReBoot　　= 2　　Const LogOff　　= 0Private Sub Command1_Click() 
Dim a 
Sh = ExitWindowsEx(ShutDown, dwReserved)
End Sub这个命令和你的命令刚好相反之能98下用2000的话就不行