Question

VB自动关机代码是什么？

Answer 1

Option Explicit
Private Sub Command1_Click() '关机
Shell "cmd.exe /c shutdown -s -t 6000" '6000秒后关几
End Sub
Private Sub Command2_Click() '取消关机
Shell "cmd.exe /c shutdown -a"
End
End Sub

Answer 2

用VB实现控制电脑自动关机，自动重启，自动注销，自动待机等代码

设定状态

SetSuspendState

是否支持休眠

IsPwrHibernateAllowed

是否支持待机

IsPwrSuspendAllowed

看MSDN的Power Management部分

ColdMooon 

'在窗体内

'放置一个时间控件，两个标签控件和一个文体框控件，和两个单选按钮，两个命令按钮

Option Explicit
 Dim txtTime '保存输入时间
 Dim nowTime '保存实时时间
 Dim oldTime '保存开始定时时间
 
 Private Sub Form_Load()
 
 me.caption="定时关机"
 
 me.label1.caption="关机时间："
 me.Option1.caption="在指定时间关机(时间格式：00:00:00)"
 me.Option2.caption="延迟指定的时间关机"
 me.command1.caption="确定"
 me.command2.caption="取消"
 
 Me.Text1 = GetSetting("ShutDownWindows", "Options", "ShutDownTime",

Answer 3

大概是个恶作剧程序，没有代码。

点击command2，依次让label（1）显示“你真的不叫吗？”等四句话，之后再点击command2，就激活了timer。

由timer进行1分钟倒计时，时间到后就调用DOS命令shutdown来关机。

同时，Form_Unload过程中的代码阻止用户关闭窗体，并让label（1）显示“你关不掉的，除非你叫我哥哥。”

其它过程没有分析，主要就是上述功能。其实用任务管理器就能轻易结束这个程序。