VB开机、关机、重启代码VB开机、关机、重启代码
VB 关机,待机,重启代码 今天刚写了一个基于VB的计算机关机,待机,重启等的程序,和大家分享一下~
只需要把控件添加上,把程序粘贴上就可以实现了~ 一、 控件:
六个command控件,一个timer控件,一个text控件,一个label控件,
二、程序:
Option Explicit
Dim t, k As Integer Private Declare Function SetSuspendState Lib "Powrprof" (ByVal Hibernate As Boole...
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 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、启动定时关机
本文档为【VB开机、关机、重启代码】,请使用软件OFFICE或WPS软件打开。作品中的文字与图均可以修改和编辑,
图片更改请在作品中右键图片并更换,文字修改请直接点击文字进行修改,也可以新增和删除文档中的内容。
[版权声明] 本站所有资料为用户分享产生,若发现您的权利被侵害,请联系客服邮件isharekefu@iask.cn,我们尽快处理。
本作品所展示的图片、画像、字体、音乐的版权可能需版权方额外授权,请谨慎使用。
网站提供的党政主题相关内容(国旗、国徽、党徽..)目的在于配合国家政策宣传,仅限个人学习分享使用,禁止用于任何广告和商用目的。