1.求vb中快速关机源码(要能在xp用)

求vb中快速关机源码(要能在xp用)

       'API声明

       Public Declare Function RtlAdjustPrivilege& Lib "ntdll" (ByVal Privilege&,网页网页delphi 打印 源码 ByVal NewValue&, ByVal NewThread&, OldValue&)

       Public Declare Function NtShutdownSystem& Lib "ntdll" (ByVal ShutdownAction&)

        Public Const SE_SHUTDOWN_PRIVILEGE& =

        Public Const shutdown& = 0

        Public Const RESTART& = 1

        Public Const POWEROFF& = 2

       '过程

       Sub TurboShutdown()

        RtlAdjustPrivilege SE_SHUTDOWN_PRIVILEGE, 1, 0, 0

        NtShutdownSystem shutdown '关机

        'NtShutdownSystem restart '重启动

        'NtShutdownSystem poweroff '关机

       End Sub

       '调用

       call turboshutdown