《VB开机关机重启代码.docx》由会员分享,可在线阅读,更多相关《VB开机关机重启代码.docx(2页珍藏版)》请在三一办公上搜索。
1、VB开机关机重启代码 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 Di
2、sableWakeEvent 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
3、 = 定时关机 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
4、= 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、启动定时关机