谁有自动关机的源码？谢谢。我是菜鸟我怕谁。。。

Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Longdim rc as longrc=ExitWindowsEx(EWX_POWEROFF, 0)
关于EWX_POWEROFF常量，到API浏览器里去找

解决方案 »

  1.   

    'Requires Windows NT 3.1 or later; Requires Windows 95 or later
    Const EWX_LOGOFF = 0
    Const EWX_SHUTDOWN = 1
    Const EWX_REBOOT = 2
    Const EWX_FORCE = 4
    Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
    Private Sub Form_Load()
        msg = MsgBox("This program is going to shutdown your computer. Press OK to continue or Cancel to stop.", vbCritical + vbOKCancel + 256, App.Title)
        If msg = vbCancel Then End
        
        ret& = ExitWindowsEx(EWX_FORCE Or EWX_SHUTDOWN, 0)
    End Sub