使用VB-NET制作定时关机程序.docxVIP

使用 VB.NET 制作多功能自动关机程序1、程序功能：自定义倒计时关机；设定时间关机。 2、界面，三个按钮，五个标签，三个文本框，一个计时器 标签 标签 5 3、源代码 Public Class Form1 Public h, m, hc, mc As In小te时ge，r  分 钟，剩余小时，剩余分钟 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e System.EventArgs) Handles Button1.Click Dim tm As Integer tm = Val(TextBox1.Text) * 60 If tm 0 Then System.Diagnostics.Process.Start(Shutdown.exe, -s -t Label5.Text End If End Sub 正= 在 倒计时关机 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e System.EventArgs) Handles Button2.Click Timer1.Stop() System.Diagnostics.Process.Start(Shutdown.exe, -a) Label5.Text 定= 时 End Sub 关机已取消 Private Sub Button3_Click(ByVal sender As System.Object, ByVal e System.EventArgs) Handles Button3.Click h = Val(TextBox2.Text) m = Val(TextBox3.Text) If h = 0 And m = 0 Then MsgBox(输入时间错误, ,请输入时间) ElseIf h 24 Or h 0 Or m 60 Or m 0 Then MsgBox(输入时间错误, ,请检查输入时间) Else Timer1.Start() End If End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick 时间间隔 interva可l 设置为 3000，即 3 秒刷新一次 If h = Now.Hour And m = Now.Minute Then System.Diagnostics.Process.Start(Shutdown.exe, -s -f End If hc = h - Now.Hour mc = m - Now.Minute If hc 0 Then hc = hc + 24 End If If mc 0 Then hc = hc - 1 mc = mc + 60 End If Label5.Text 距= 离 End Sub End Class 关机还有 hc 小时 mc 分 钟