vb 电脑关机 timer/falshing/and 在 60 秒内关机/不是 1 hour/even 当它设置为 1 小时//

Question

    Timer1 . Start  ()

    Label1  .Text   = Format(Time Of Day)

    Timer2 .  Enabled = True
    TextBox1  .Enabled =   False
    Button2  .Enabled =   True
    Button1  .Enabled =  False

    Timer2.Enabled = False
    TextBox1.Text = "00:00:00"
    TextBox1.Enabled = True
    Button1.Enabled = True
    Button2.Enabled = False

    If TextBox1.Text = Label1.Text Then

    End If   
    Shell("shutdown -s")

我只想在一个小时后上床睡觉时关闭电脑，因为我担心晚上一直开着电脑会损坏电脑，我在 youtube 上找到了这段代码

Answer 1

我喜欢 Robert Harvey 提出的任务计划程序方法。

如果您仍想编写 "shut down one hour from now" 应用程序，那么这里有一些入门代码：

Public Class frmShutDown

    Private Target As DateTime

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Button1.Enabled = False
        Target = DateTime.Now.AddHours(1)
        Timer1.Interval = 1000
        Timer1.Start()
    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        Dim TS As TimeSpan = Target.Subtract(DateTime.Now)
        Label1.Text = TS.ToString("hh\:mm\:ss")
        If TS.TotalMilliseconds <= 0 Then
            Timer1.Stop()
            Shell("shutdown -s")
        End If
    End Sub

End Class

vb 电脑关机 timer/falshing/and 在 60 秒内关机/不是 1 hour/even 当它设置为 1 小时//

vb pc shutdown timer/falshing/and shutting down in 60 sec/ not 1 hour/even when its set for 1hour//

vb.net