军事

强制关闭计算机

用API函数ExitWindowsEx可以实现强制关机,即便是您的应用程序尚未保存文件

外语词频繁出现使用过度 Private Declare Function ExitWindowsEx Lib \"user32\" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long

Const EWX_SHUTDOWN = 1

Const EWX_LOGOFF = 0

Const EWX_REBOOT = 2

Const EWX_FORCE = 4

Private Sub Command1_Click()

Dim a

a = ExitWindowsEx(EWX_LOGOFF or EWX_FORCE or EWX_SHUTDOWN, 0)

End Sub

如果将

a = ExitWindowsEx(EWX_LOGOFF or EWX_FORCE or EWX_SHUTDOWN, 0)

改换为

a = ExitWindowsEx(EWX_LOGOFF or EWX_REBOOT, 0)

即可实现强制重启计算机

查看本文来源

石家庄治妇科专科医院
成都专治癫痫的医院
通化治白癜风医院哪家好
友情链接