直接从vb里关计算机。

Question

在模块中:
Public Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
Public Const EWX_LOGOFF = 0     '注销
Public Const EWX_REBOOT = 2     '重启
Public Const EWX_SHUTDOWN = 1   '关机在Form中:
Call ExitWindowsEx(EWX_SHUTDOWN, 0)

Answer 1

我做过一个，还可以，要的话
email to：
[email protected]

Answer 2

To zhangxu421(Sniper) and vbsunboy(太阳) :Thank you !

Answer 3

我试了，可以。但按了“关机”commandbutton后，界面很乱，不知打包以后怎么样？