16,554
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
snto 2007-08-08
- 打赏
- 举报
开机
http://zhidao.baidu.com/question/7426386.html?si=1
唤醒
http://zhidao.baidu.com/question/8042520.html?si=4
关机软件多得是
http://zhidao.baidu.com/question/7426386.html?si=1
唤醒
http://zhidao.baidu.com/question/8042520.html?si=4
关机软件多得是
nacarat 2007-08-08
- 打赏
- 举报
Win 32 API：ExitWindowsEx
qwertxp 2007-08-07
- 打赏
- 举报
如果没有shutdown.exe 呢？
rainbowsoftware 2007-08-07
- 打赏
- 举报
那开机怎么操作
magicbacon 2007-08-07
- 打赏
- 举报
Public a
Public b
Private Sub Form_Click()
a = InputBox("输入你想关机的时间--时（0-23）")
b = InputBox("输入你想关机的时间--分（0-59）")
Me.Caption = "你要关机的时间是" & a & "时" & b & "分"
End Sub
Private Sub Form_Load()
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
Me.Cls
Print "现在时间是：" & Time
If Hour(Time) = a And Minute(Time) = b Then
Timer1.Enabled = False
Shell ("c:\windows\system32\shutdown.exe /s /t 0")
End If
End Sub
Public b
Private Sub Form_Click()
a = InputBox("输入你想关机的时间--时（0-23）")
b = InputBox("输入你想关机的时间--分（0-59）")
Me.Caption = "你要关机的时间是" & a & "时" & b & "分"
End Sub
Private Sub Form_Load()
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
Me.Cls
Print "现在时间是：" & Time
If Hour(Time) = a And Minute(Time) = b Then
Timer1.Enabled = False
Shell ("c:\windows\system32\shutdown.exe /s /t 0")
End If
End Sub
