用vb做一个能自动关机的程序，可以倒计时关机和定时关机。

Question

我经常玩游戏挂机 半夜关机实在痛苦，那位vb专家帮帮，最好有图。

Answer 1

新建一个窗体FROM1 å’Œä¸€ä¸ª æŒ‰é’® Command1

添加 ä¸€ä¸ª Timer1 æŽ§ä»¶ å’Œä¸¤ä¸ª Label(倒计时X小时X分钟）（显示当前时间）

Text1.Text(小时)Text2.Text(分)Text3（秒）

..............张志晨：.代码............................

Dim t$

Private Sub Command1_Click()

't为设置的要关机的时刻

    t = Text1 & ":" & Text2 & ":" & Text3

'启动Timer控件，开始倒计时

    Timer1.Enabled = True

End Sub

Private Sub Form_Load()

'设置Timer控件的时间间隔为1秒

    Timer1.Interval = 1000

'起动程序时，计时器不可用

    Timer1.Enabled = False

End Sub

Private Sub Timer1_Timer()

'倒计时，设置时间与当前时间的差

    timeLabel = Format(CDate(t) - Time, "hh:mm:ss")

'显示当前系统时间

    nowLabel = Time

'如果时间差为0，就立刻关机！！！

    If timeLabel = "00:00:00" Then Shell "shutdown -S -t 0"

End Sub

........张志晨：效果图片.............

Answer 2

开始 运行中输入cmd 弹出窗口 输入命令就可以啊，不用编程
例如 at 11:55 shutdown -s表示电脑将在11:55关机，之前一分钟会提醒。s改为a表示终止该项计划任务。

Answer 3

Private Sub Command1_Click()
Shell "shutdown.exe -s -t " & Text1.Text
End Sub

Answer 4

Option Explicit

Dim a$

Private Sub Command1_Click()

a = Text1.Text & ":" & Text2.Text & ":" & Text3.Text

Timer2.Enabled = True

Label5.Caption = a

End Sub

Private Sub Command2_Click()

Timer2.Enabled = False

End Sub

Private Sub Timer1_Timer()

Label1.Caption = Time

End Sub

Private Sub Timer2_Timer()

If a = Label1.Caption Then Shell "shutdown -S -t 0"

End Sub