Question

VB恶搞关机程序

运行即关机

Answer 1

别干坏事呵
代码如下：

Option Explicit
Const SM_CLEANBOOT = 67
Const EWX_LOGOFF = 0
Const EWX_SHUTDOWN = 1
Const EWX_REBOOT = 2
Const EWX_FORCE = 4

Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long,ByVal dwReserved As Long) As Long

Private Sub Form_Load()
Call ExitWindowsEx(EWX_SHUTDOWN, 0)
End Sub

当你可以采用一个更加简单的写法
直接输入以下代码即可:

Private Sub Form_Load()
Shell "cmd /c shutdown -s -t 30"
Rem 后面的 -t 0 表示0秒关机，如果去掉 -t 0 那么默认是30秒关机
End Sub