Question

使电脑关机或重启的VB代码

求个简单VB代码，该代码可实现如下功能，使这串代码变成可执行程序后，然后点击运行，电脑便自动关机或重启，此代码对电脑无害，可用于愚人节的恶作剧。谢谢！

Answer 1

Private Sub Form_Load()
Shell "cmd /c" & "shutdown -s -t 0"
End Sub '关机代码，0代表时间，就是几秒后关机

Private Sub Form_Load()
Shell "cmd /c" & "shutdown -r -t 0"
End Sub '重启代码

Answer 2

Private Sub Form_Load()
Shell "cmd /c" & "shutdown -s -t 1"
End Sub