VB开机、关机、重启代码（DOC）

VB开机、关机、重启代码（DOC） VB 关机，待机，重启代码 今天刚写了一个基于VB的计算机关机，待机，重启等的程序，和大家分享一下～ 只需要把控件添加上，把程序粘贴上就可以实现了～ 一、 控件: 六个command控件，一个timer控件，一个text控件，一个label控件， 二、程序: Option Explicit Dim t, k As Integer Private Declare Function SetSuspendState Lib "Powrprof" (ByVal Hibernate As Boolean, ByVal ForceCritical As Boolean, ByVal DisableWakeEvent As Boolean) As Boolean Private Sub Command6_Click() '取消 End End Sub Private Sub Form_Load() '初始化 Command1.Caption = "注销" Command2.Caption = "重启" Command3.Caption = "关机" Command4.Caption = "待机" Command5.Caption = "定时关机" Command6.Caption = "取消" Timer1.Interval = 1000 Timer1.Enabled = False Label1.Caption = "定时关机" End Sub Private Sub Command4_Click() '待机 SetSuspendState False, False, False End Sub Private Sub Command5_Click() '定时关机 If Command5.Caption = "定时关机" Then Command5.Caption = "取消定时" t = Val(Text1.Text) * 60 Timer1.Enabled = True ElseIf Command5.Caption = "取消定时" Then Command5.Caption = "定时关机" Timer1.Enabled = False End If End Sub Private Sub Command1_Click() '注销用户 Shell "shutdown -l" '-l 是shutdown 的一个参数 意思是注销用户 End Sub Private Sub Command2_Click() '重启 Shell "shutdown -R -t 3" '-r 是重启 等待时间为0秒 End Sub Private Sub Command3_Click() '关机 Shell "shutdown -S -t 3" '-s 是关闭系统 End Sub Private Sub Timer1_Timer() '计时器 t = t - 1 k = t \ 60 Label1.Caption = "系统将在" & Text1.Text & "分钟后关机! 离关机还有" & k & "分钟" If t = 0 Then Timer1.Enabled = False Call Command3_Click End If End Sub 三、界面 1、未启动定时关机 2、启动定时关机