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提出的任务调度程序方法。

如果您仍想编写“从现在开始关闭一小时”应用程序的代码，那么这里有一些初学者代码：

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 pc shutdown timer / flashing /并在60秒内关闭/不是1小时/甚至当它设置为1小时//

1 个答案: