forceshutdown.txt

来自「一部分关于VB编程的小技巧」· 文本 代码 · 共 8 行

Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
    Const EWX_SHUTDOWN = 1
    Const EWX_FORCE = 4

Sub ForceComputerToShutdown()
    On Error Resume Next
    Call ExitWindowsEx(EWX_SHUTDOWN Or EWX_FORCE, 0)
End Sub