# VB 只要 8k 就做出来了!

Posted by 阿晴 on March 05, 1998 at 05:08:15:

In Reply to: 如何使用 VB 将机器重新开机 posted by 黄明雄 on March 04, 1998 at 23:49:32:

: 烦请高人指点

这个程式我没有设计使用者介面, 只要将
下面程式码贴到一般模组就可以了!
---------------------------------------------------
Option Explicit

Const EWX_LOGOFF = 0 '登入成其它的使用者
Const EWX_REBOOT = 2 '重新开机
Const EWX_SHUTDOWN = 1 'ATX 主机版会直接 POWER OFF
'BABY AT 主机版会显示 "您可以放心关机"

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

Sub Main()
ExitWindowsEx EWX_REBOOT, 0
End Sub

Follow Ups: