用VB.NET 2005编写定时关机程序(2)

Private Sub Button2_Click(ByVal sender As System.Object, 
  ByVal e As System.EventArgs) Handles Button2.Click
LogoOff()'注销计算机
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, 
ByVal e As System.EventArgs) Handles Button3.Click
Reboot()
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, 
ByVal e As System.EventArgs) Handles Button1.Click
　startTime = TimeOfDay
　If Not IsDate(TextBox1.Text) Then
'用IsData函数判断输入的时间格式
MsgBox("你所输入的不是时间格式,!", , "错误")
　Else
entTime = TimeValue(TextBox1.Text)
　End If
　Timer1.Enabled = True
　'启动定时器
　Me.WindowState = System.Windows.Forms.FormWindowState.Minimized
　'最小化窗体
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, 
ByVal e As System.EventArgs) Handles Timer1.Tick
　xianzaiTime = TimeOfDay
　If RadioButton1.Checked Then
　If DateDiff(Microsoft.VisualBasic.DateInterval.Second, 
xianzaiTime, entTime) < 0 Then '用DateDiff函数判断是否到时间了
　End If
End If
PowerOff() '关闭计算机
End Sub