vb.net定时程序的简单介绍 _ByVal

VB.NET怎样设计定时关机1、开机进入桌面后，按下“Windows徽标键 I”键，选中并打开“控制面板”
2、在“控制面板”中的“系统和安全”里，选中“管理工具”里的“计划任务”，并打开“计划任务”
3、在“任务计划程序”里，打开“创建任务”
4、在“创建任务”的“常规”中，根据相应需求设置，比如“名称：定时关机”
5、在“创建任务”的“触发器”中，点“新建”，并在“新建触发器”中，根据相应需求设置后，点“确定”
6、在“创建任务”的“操作”中，点“新建”，并在“新建操作”中的“程序或脚本”里，根据下图依次输入“shutdown”和“-s”后，“点“确定”
7、在“创建任务”的“条件”中，根据相应需求设置
8、在“创建任务”的“设置”中，根据相应需求设置后，点“确定”
9、这时“定时关机”的任务已创建完成！
VB.net如何设置msgbox可以定时自动关闭？MessageBox里vb.net定时程序的Show里没有自动关闭vb.net定时程序的方法，但是vb.net定时程序你可以自定义一个MessageBox,MessageBox就是一个窗体，你新建一个窗体Form2，添加一个public属性message和一个定时器timer1,timer1的interval设置成你想要的时间，在Form2的Load事件启动timer1 ， Timer1_Tick事件里关闭窗口Me.Close(),然后在需要显示Messagebox的时候，在主窗口Form1里设置messge属性，然后用show方法弹出窗口就可以了。
Form1程序vb.net定时程序：（添加了一个Button1）
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim f2 As Form2 = New Form2
f2.Message = "提示"
f2.ShowDialog()
End Sub
End Class
Form2程序vb.net定时程序：(添加了一个Label1显示信息和一个Timer1用于计时， Form2可以自定义成你想要的样式，标题，按钮，窗体样式等)
Public Class Form2
'自定义属性显示提示信息
Public WriteOnly Property Message As String
Set(value As String)
Label1.Text = value
End Set
End Property
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
Me.Close()
End Sub
Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Timer1.Interval=3000'定时3秒关闭窗口
Timer1.Enabled = True
End Sub
End Class
代码已在VS2017测试通过。
VB.NET 2005编写定时关机程序最近在网上搜索了一些关于实现关机重启注销的文章发现大多介绍的是VB NET 用API实现这些功能且在XPsp 环境下无法正常的关机与注销而对于VB NET 的介绍几乎没有本文章所涉及的知识点有
用实现关机重启注销功能通过使用textbox与timer控件的结合编写定时器功能为你的程序加上超链接
本篇文章具有一定的基础性和广泛的实用性相信能够给初学者带来一定的帮助
本文所使用的编程环境是Microsoft Visual Studio 首先打开 Visual Studio 在文件 (File) 菜单上单击新建项目 (New Project) 在新建项目 (New Project) 对话框的模板 (Templates) 窗格中单击 Windows 应用程序 (Windows Application) 单击确定 (OK)
具体步骤如下
首先在Form 窗体上添加一个Label 控件属性text设置为:今天: 然后分别添加个button控件name分别为button button button 它们的text属性分别为关闭计算机（启动定时器）注销重新启动
图
现在我们就需要为程序加上一个定时器了这个定时器需要与textbox 控件相关联输入正确时间格式后就可以启动定时功能了然后我们需要在窗体上添加一个timer 一个textbox 控件和一个RadioButton 控件让它们保留默认值不变其中 TextBox 控件的text属性设置为 : : RadioButton 控件text设置为指定时间关机|时间格式小时: 分钟: 秒如图所示
图
以上界面工作基本完成现在需要输入代码了
双击窗体进入常规声明Public Class Form 事件中
CODE
Imports System Runtime InteropServicesImports Microsoft VisualBasicPublic Class Form_ 调用系统参数Friend Shared Function GetCurrentProcess() As IntPtrEnd Function
_Friend Shared Function OpenProcessToken(ByVal h As IntPtr
【vb.net定时程序的简单介绍】 ByVal acc As Integer ByRef phtok As IntPtr) As BooleanEnd Function
_Friend Shared Function LookupPrivilegeValue(ByVal host As String
ByVal name As String ByRef pluid As Long) As BooleanEnd Function
_Friend Shared Function AdjustTokenPrivileges(ByVal htok As IntPtr
ByVal disall As Boolean ByRef newst As TokPriv Luid
ByVal len As Integer ByVal prev As IntPtr
ByVal relen As IntPtr) As BooleanEnd Function
_Friend Shared Function ExitWindowsEx(ByVal flg As Integer
ByVal rea As Integer) As BooleanEnd Function
Friend Const SE_PRIVILEGE_ENABLED As Integer = H Friend Const TOKEN_QUERY As Integer = H Friend Const TOKEN_ADJUST_PRIVILEGES As Integer = H Friend Const SE_SHUTDOWN_NAME As String = SeShutdownPrivilege Friend Const EWX_LOGOFF As Integer = H 注销计算机Friend Const EWX_SHUTDOWN As Integer = H 关闭计算机Friend Const EWX_REBOOT As Integer = H 重新启动计算机Friend Const EWX_FORCE As Integer = H 关闭所有进程注销计算机Friend Const EWX_POWEROFF As Integer = H Friend Const EWX_FORCEIFHUNG As Integer = H
_引用参数　Friend Structure TokPriv Luid　Public Count As Integer　Public Luid As Long　Public Attr As IntegerEnd Structure
Private Shared Sub DoExitWin(ByVal flg As Integer)　Dim xc As Boolean 判断语句　Dim tp As TokPriv Luid　Dim hproc As IntPtr = GetCurrentProcess()调用进程值　Dim htok As IntPtr = IntPtr Zero　xc = OpenProcessToken(hproc TOKEN_ADJUST_PRIVILEGES Or TOKEN_QUERY htok)　tp Count =tp Luid =tp Attr = SE_PRIVILEGE_ENABLED　xc = LookupPrivilegeValue(Nothing SE_SHUTDOWN_NAME tp Luid)　xc = AdjustTokenPrivileges(htok False tp IntPtr Zero IntPtr Zero)　xc = ExitWindowsEx(flg )End Sub
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
好了基本上一个定时关机程序就完成了接下来加一个超级链接吧！当然对于高手来说可能是废话但是对于新手来说这也是必备的这个超级链接当然是我们最喜欢的天极网开发频道了
先创建一个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
OK！全部搞定按F 键运行如图所示选择相应选项后点击（关闭计算机启动定时器按钮）就可以了现在程序将按照你所设定的时间而启动关闭计算机选项
lishixinzhi/Article/program/net/201311/12366
关于vb.net定时程序和的介绍到此就结束了，不知道你从中找到你需要的信息了吗？如果你还想了解更多这方面的信息，记得收藏关注本站。

vb.net定时程序的简单介绍

推荐阅读

爱普生l3118，epson打印机4168型与3118型的黑色墨水仓要大吗

三星s22ultra哪个颜色好看详情

西门子洗衣机如何洗羽绒服原因？

当归不能和什么一起炖

nuxt国际化之路由部分

金骏眉的保质期有多久「金骏眉算什么档次的茶」

汽油添加剂起什么作用汽油添加剂有什么作用

面包店面包价格表「面包的销售价」

NSString|NSString 的变量是在常量区想不到吧

强排式燃气热水器很难打火是怎么回事,制冷还是制热？

女人决定辞职在家带孩子失去最宝贵的是什么,在哪一刻让你觉得自己做这个决定简直是蠢爆了？

一键ghost

mysql关闭slave mysql关闭分区句柄

做膏药的主要材料有哪些膏药怎么做

柚子一天吃几瓣最合适

电脑显示器亮度怎么调节？电脑显示器亮度调节方法

如何在手机上实现无服务器应用？手机无服务器怎么处理

腊肉吃多了有什么影响

小苏打和面启子一样么面起子和小苏打是一样东西吗

依玛壁挂炉补水阀漏水怎么办,别急先看看这个