restartcomputer.txt

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

Private Declare Function ExitWindowsEx Lib "user32" Alias "ExitWindowsEx" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
Const EWX_REBOOT = 2

Private Sub Command1_Click()
    ExitWindowsEx EWX_REBOOT, 0
End Sub