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

使用VB.NET制作多功能自动关机程序 1、程序功能：自定义倒计时关机；设定时间关机。 2、界面，三个按钮，五个标签，三个文本框，一个计时器 标签5 3、源代码 Public Class Form1     Public h, m, hc, mc As Integer '小时，分钟，剩余小时，剩余分钟     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As 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 " & tm)             Label5.Text = "正在倒计时关机"         End If     End Sub     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As 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 As 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         '时间间隔interval可设置为3000，即3秒刷新一次         If h = Now.Hour And m = Now.Minute Then             System.Diagnostics.Process.Start("Shutdown.exe", " -s -f -t 3")         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 = "距离关机还有" & hc & "小时" & mc & "分钟"     End Sub End Class