内容摘要：笔者最近在网上搜索了一些关于VB.net实现关机、重启、注销的文章，发现大多介绍的是VB.NET2003用API实现这些功能，且在XPsp2环境下无法正常的关机与注销。而对于VB.NET2005的介绍几乎没有。
双击注销button2按钮输入code:
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
LogoOff()'注销计算机
End Sub双击重新启动按钮button3，输入code:
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Reboot()
End Sub双击关闭计算机按钮button1,输入code:
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如图3
双击timer1控件如图4
输入代码：
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
来源：天极 作者：许城 责编：豆豆技术应用
正在加载评论...