这是源代码.我按下关机按扭后.到了关机时间后..仍然不能实现关机..大家帮帮忙哈!

Dim Reboot As Integer //定义是否按下了关机按扭
Dim h, m, s As Integer //保存当前系统时间的 小时,分,秒
Private Sub CmdQuit_Click() //按下 退出
End
End Sub

Private Sub Form_Load()
Dim i As Integer
For i = 0 To 23 //将小时添加到ComboBox控件里.
CobHour.AddItem i
Next i

For i = 0 To 59 //将分钟添加到ComboBox控件里.
CobMinute.AddItem i
Next i

For i = 0 To 59 //将秒添加到ComboBox控件里.
CobSecond.AddItem i
Next i

Timer1.Interval = 800 //定时器

h = hour(Time())
m = minute(Time())
s = second(Time())
End Sub

Private Sub Timer1_Timer() //自动检测是否达到了关机条件.如果满足就关机.
LblTime.Caption = Time()
If (Reboot = 1 And Int(Val(CobHour.Text)) = h And Int(Val(CobMinute.Text)) = m And Int(Val(CobSecond.Text)) = s) Then
c = Shell("c:\windows\system32\shutdown.exe /s", 30)
End If
End Sub


Private Sub CmdStart_Click() //按下了关机按扭
Reboot = 1
a = MsgBox("您已经点下了开始按扭,现在开始进入关机倒计时", , "警告")
End Sub

'前提要应用wmi方法后才可以用
Dim objSWbemServices As SWbemServices
Dim objSWbemObjectSet As SWbemObjectSet
Dim objSWbemObject As SWbemObject

Private Const WMI_LOGOFF = 0& '退出(注销)
Private Const WMI_SHUTDOWN = 1& '关机
Private Const WMI_REBOOT = 2& '重启动
Private Const WMI_FORCE = 4& '强制退出，即不通知现在活动应用程序让其先自我关闭
Private Const WMI_POWEROFF = 8& '关闭电源

Private Sub Command1_Click()
Set objSWbemServices = GetObject("winmgmts:{impersonationLevel=impersonate,(Shutdown)}!")
Set objSWbemObjectSet = objSWbemServices.ExecQuery("Select * from Win32_OperatingSystem")
For Each objSWbemObject In objSWbemObjectSet
objSWbemObject.Win32Shutdown WMI_POWEROFF, 0& '关闭电源
Next
End Sub

你调用shutdown.exe程序,如果是在WIN2K下是实现不了的.
不知道你测试的环境是哪个?刚看了API,觉得调用API来实现比较好.