使用VB-NET制作定时关机程序(共3页).doc

《使用VB-NET制作定时关机程序(共3页).doc》由会员分享，可在线阅读，更多相关《使用VB-NET制作定时关机程序(共3页).doc（3页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、精选优质文档-倾情为你奉上使用VB.NET制作多功能自动关机程序1、程序功能：自定义倒计时关机；设定时间关机。2、界面，三个按钮，五个标签，三个文本框，一个计时器标签53、源代码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.T

2、ext) * 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.T

3、ext = 定时关机已取消 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 60 Or m 0 Then MsgBox(输入时间错误, , 请检查输入时间) Else Timer1.Start(

4、) 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 SubEnd Class专心-专注-专业