shutdown不是强制关机，他要先询问你的数据是否保存之类的
以下是引用121038在2007-2-21 20:08:49的发言：
楼主的方法太复杂了,要实现自动关机是很简单的,7行代码,整个关机就可以了
Public ShutTime As String '用于存储关机的时间,格式是"小时-分钟"
Private Sub Form_Load()
ShutTime = "20-08" '晚上8点30关
Timer1.Interval = 60000
End Sub
Private Sub Timer1_Timer()
Dim s() As String
s = Split(ShutTime, "-")
If Hour(Now()) = Val(s(0)) And Minute(Now()) = Val(s(1)) Then
Shell "shutdown -S -t 00"
End If
End Sub
你的是固定时间关闭的吧?我的是自定义时间的..
ShutTime = "20-08" 这个是什么格式啊?8点08分?
好多括号..我都看乱了..
