Public Shared Sub Reboot() DoExitWin((EWX_FORCE Or EWX_REBOOT)) 重新启动计算机End Sub
Public Shared Sub PowerOff() DoExitWin((EWX_FORCE Or EWX_POWEROFF)) 关闭计算机End Sub
Public Shared Sub LogoOff() DoExitWin((EWX_FORCE Or EWX_LOGOFF)) 注销计算机End Sub
Dim entTime As Object 保存输入时间Dim xianzaiTime As Object 保存实时时间Dim startTime As Object 保存开始定时时间
注销button 按钮输入code
Private Sub Button _Click(ByVal sender As System Object
ByVal e As System EventArgs) Handles Button ClickLogoOff() 注销计算机End Sub
双击重新启动按钮button 输入code
Private Sub Button _Click(ByVal sender As System Object
ByVal e As System EventArgs) Handles Button Click
Reboot()
End Sub
双击关闭计算机按钮button 输入code
Private Sub Button _Click(ByVal sender As System Object
ByVal e As System EventArgs) Handles Button Click startTime = TimeOfDay If Not IsDate(TextBox Text) Then 用IsData函数判断输入的时间格式MsgBox( 你所输入的不是时间格式 ! 错误 ) ElseentTime = TimeValue(TextBox Text) End If Timer Enabled = True启动定时器 Me WindowState = System Windows Forms FormWindowState Minimized最小化窗体
End Sub
如图
图
双击timer 控件如图
图
输入代码
Private Sub Timer _Tick(ByVal sender As System Object
ByVal e As System EventArgs) Handles Timer Tick xianzaiTime = TimeOfDay If RadioButton Checked Then
If DateDiff(Microsoft VisualBasic DateInterval Second
xianzaiTime entTime)Then 用DateDiff函数判断是否到时间了
End IfEnd If
PowerOff() 关闭计算机End Sub
好了 基本上一个定时关机程序就完成了 接下来加一个超级链接吧vb.net编程关机语句!当然对于高手来说可能是废话 但是对于新手来说这也是必备的 这个超级链接当然是我们最喜欢的天极网开发频道了
先创建一个Label控件吧 把它托到窗体上 将text属性设置为天极网开发频道如图
图
接下来需要输入代码了 双击窗体Form
进入Public Class Form 事件
代码
Private Declare Function ShellExecute Lib shell dll
Alias ShellExecuteA (ByVal hwngnd As Integer
ByVal lpOperation As String ByVal lpFile As String
ByVal lpParameters As String ByVal lpDirectory As String
ByVal nShowCmd As Integer) As Integer
如图
图
双击刚才添加的label属性text:(天极网开发频道)中输入以下代码
Private Sub Label _Click(ByVal sender As System Object
ByVal e As System EventArgs) Handles Label ClickShellExecute( open CStr( ) CStr( ) )
End SubEnd Class
OKvb.net编程关机语句!全部搞定 按F 键运行如图 所示 选择相应选项后点击(关闭计算机启动定时器按钮)就可以了 现在程序将按照你所设定的时间而启动关闭计算机选项
lishixinzhi/Article/program/net/201311/12366
VB自动关机代码是什么?用VB实现控制电脑自动关机,自动重启 , 自动注销,自动待机等代码
设定状态
SetSuspendState
是否支持休眠
IsPwrHibernateAllowed
是否支持待机
IsPwrSuspendAllowed
看MSDN的Power Management部分
ColdMooon
'在窗体内
'放置一个时间控件,两个标签控件和一个文体框控件,和两个单选按钮,两个命令按钮
Option Explicit
Dim txtTime '保存输入时间
Dim nowTime '保存实时时间
Dim oldTime '保存开始定时时间
Private Sub Form_Load()
me.caption="定时关机"
me.label1.caption="关机时间:"
me.Option1.caption="在指定时间关机(时间格式:00:00:00)"
me.Option2.caption="延迟指定的时间关机"
me.command1.caption="确定"
推荐阅读
- 来电动画怎么设置ios,来电动画怎么设置oppo
- 什么网络节点不用电脑,什么网络节点不用电脑可以用
- 微信如何开通直播打赏权限,微信直播怎么开通送礼物
- python定义函数题 python定义函数的作用
- 为什么cpu经常短路,为什么脑子经常短路
- pdf格式怎么样转换成word格式,pdf的格式怎么转换成word格式
- 电商如何排班,电商客服如何排班
- c语言函数没有形参可以吗 c语言函数中形参必须是变量名
- 男生玩手机都爱看什么书,男生一般用手机看什么