1.求vb中快速关机源码(要能在xp用)
求vb中快速关机源码(要能在xp用)
'API声明
Public Declare Function RtlAdjustPrivilege& Lib "ntdll" (ByVal Privilege&,网页网页nft藏品展示网站源码 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
