使用VB-NET制作定时关机程序
vbnet定时器1
运城学院实验报告专业：数字媒体技术专业系（班）：计算机科学与技术系1306班姓名：***********************课程名称：软件开发环境与工具实验项目：闹铃程序实验类型：设计型指导老师：******实验地点：多媒体技术实验室2510时间：2015年10月21日10时至12时一、实验类型设计型二、实验目的和要求：1、培养学生综合利用VB语言进行程序设计的能力，主要是利用VB的标准控件进行界面设计，灵活应用日期函数进行创新设计2、设计一个闹钟程序，详细要求如下：3、添加TextBox，在TextBox中添加指定时间4、用户可以通过复选框来选择是否要每天提醒5、程序到了指定日期和时间后，弹出，并把用户输入的主题和内容显示出来三、实验中用到的硬件设备及软件环境PC机VS2010四、实验主要程序代码PublicClass Form1PrivateSub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.TickLabel2.Text = Format(Now, "hh:mm:ss") ' Now 'Dim xiaoshi, fenzhong, second1 AsIntegerxiaoshi = Val(TextBox1.Text)fenzhong = Val(TextBox2.Text)second1 = Val(TextBox3.Text)'PictureBox2.Visible = FalseIf xiaoshi = Format(Now, "hh") And fenzhong = Format(Now, "mm") And second1 = Format(Now, "ss") ThenLabel1.Text = "该起床了?！?"PictureBox1.Visible = TruePictureBox2.Visible = Truesound()EndIfPictureBox2.Visible = TrueEndSubSub sound()Dim player AsNew System.Media.SoundPlayer()'player.SoundLocation = "C:\Users\lenovo\Desktop\123.wav"& vbCr & vbLfplayer.SoundLocation = Application.StartupPath() + "\Sleep Away.wav"& vbCr & vbLfplayer.Load()player.Play()EndSubPrivateSub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)EndSubEndClass五、程序运行结果或数据记录六、实验总结：1、学到了一些有关vb设计的知识，比如：timer，TextBox1，PictureBox控件的使用等对以前的一些知识也有了加深，对以后vb的复习也是有益处的2、要熟练利用vb进行编程，需进行大量练习能够更灵活的使用vb的知识。
vb.net中定时器处理函数注意事项
中定时器处理函数注意事项1. 引言1.1 概述在现代软件开发中，定时器处理函数是非常常见的功能。
无论是在Windows桌面应用程序还是Web应用程序或者移动应用程序中，都有可能遇到需要使用定时器来触发事件或执行某些操作的情况。
而在编程语言中，定时器处理函数的使用也是十分重要的。
1.2 文章结构本文将围绕着中定时器处理函数的注意事项展开讨论。
首先会介绍定时器的基本原理和工作机制，以及常见的定时器类。
然后会详细探讨定时器处理函数使用过程中需要注意的几个方面，如避免阻塞UI线程、避免长时间运行的操作和正确销毁定时器对象等。
接下来将介绍资源管理与性能优化相关内容，包括合理设置定时器间隔时间、避免频繁创建和销毁定时器对象以及使用异步编程方式提高效率等方面。
最后，文章将总结全文内容并提出一些建议和对未来发展方向的展望。
1.3 目的本文旨在帮助读者更好地理解中定时器处理函数的注意事项，并指导读者在实际应用开发过程中正确、高效地使用定时器。
通过本文的学习，读者可以更好地掌握定时器处理函数的技巧和方法，提升自己在编程中的应用水平。
无论是初学者还是有一定经验的开发人员，都能从本文中获得有益的知识和实践经验。
2. 定时器的基本原理：定时器是一种常用的编程功能，可以在指定的时间间隔内周期性地执行某个任务或代码块。
在中，使用定时器类来实现这一功能。
2.1 定时器的作用：定时器的作用是根据设定的时间间隔来执行指定代码，它常被用于以下场景：- 定时执行后台任务：例如在后台自动备份数据、更新程序或发送定期报告等；- 控制用户界面元素：例如实现轮播效果、自动显示广告或更新UI等；- 监控系统状态：例如周期性地获取传感器数据或监测网络连接状态等。
2.2 定时器的工作机制：定时器类基于计时器（Timer）对象实现，其工作机制如下：1. 创建一个计时器对象，并设置时间间隔（以毫秒为单位）。
2. 启动计时器对象，在达到设定的时间间隔后，触发Tick事件。
vb关机程序代码
CODE:Imports System.Runtime.InteropServicesImports Microsoft.VisualBasicPublic Class Form1<DllImport("kernel32.dll", ExactSpelling:=True)> _'调用系统参数Friend Shared Function GetCurrentProcess() As IntPtrEnd Function<DllImport("advapi32.dll", ExactSpelling:=True, SetLastError:=True)> _ Friend Shared Function OpenProcessToken(ByVal h As IntPtr, ByVal acc As Integer, ByRef phtok As IntPtr) As BooleanEnd Function<DllImport("advapi32.dll", SetLastError:=True)> _Friend Shared Function LookupPrivilegeValue(ByVal host As String, ByVal name As String, ByRef pluid As Long) As BooleanEnd Function<DllImport("advapi32.dll", ExactSpelling:=True, SetLastError:=True)> _ Friend Shared Function AdjustTokenPrivileges(ByVal htok As IntPtr, ByVal disall As Boolean, ByRef newst As TokPriv1Luid, ByVal len As Integer, ByVal prev As IntPtr, ByVal relen As IntPtr) As BooleanEnd Function<DllImport("user32.dll", ExactSpelling:=True, SetLastError:=True)> _Friend Shared Function ExitWindowsEx(ByVal flg As Integer, ByVal rea As Integer) As BooleanEnd FunctionFriend Const SE_PRIVILEGE_ENABLED As Integer = &H2Friend Const TOKEN_QUERY As Integer = &H8Friend Const TOKEN_ADJUST_PRIVILEGES As Integer = &H20Friend Const SE_SHUTDOWN_NAME As String = "SeShutdownPrivilege" Friend Const EWX_LOGOFF As Integer = &H0 '注销计算机Friend Const EWX_SHUTDOWN As Integer = &H1'关闭计算机Friend Const EWX_REBOOT As Integer = &H2'重新启动计算机Friend Const EWX_FORCE As Integer = &H4'关闭所有进程，注销计算机Friend Const EWX_POWEROFF As Integer = &H8Friend Const EWX_FORCEIFHUNG As Integer = &H10<StructLayout(LayoutKind.Sequential, Pack:=1)> _'引用参数Friend Structure TokPriv1LuidPublic Count As IntegerPublic Luid As LongPublic Attr As IntegerEnd StructurePrivate Shared Sub DoExitWin(ByVal flg As Integer)Dim xc As Boolean '判断语句Dim tp As TokPriv1LuidDim hproc As IntPtr = GetCurrentProcess()'调用进程值Dim htok As IntPtr = IntPtr.Zeroxc = OpenProcessToken(hproc, TOKEN_ADJUST_PRIVILEGES Or TOKEN_QUERY, htok)tp.Count = 1tp.Luid = 0tp.Attr = SE_PRIVILEGE_ENABLEDxc = LookupPrivilegeValue(Nothing, SE_SHUTDOWN_NAME, tp.Luid) xc = AdjustTokenPrivileges(htok, False, tp, 0, IntPtr.Zero, IntPtr.Zero) xc = ExitWindowsEx(flg, 0)End SubPublic Shared Sub Reboot()DoExitWin((EWX_FORCE Or EWX_REBOOT)) '重新启动计算机End SubPublic Shared Sub PowerOff()DoExitWin((EWX_FORCE Or EWX_POWEROFF)) '关闭计算机End SubPublic Shared Sub LogoOff()DoExitWin((EWX_FORCE Or EWX_LOGOFF)) '注销计算机End SubDim entTime As Object '保存输入时间Dim xianzaiTime As Object '保存实时时间Dim startTime As Object '保存开始定时时间双击注销button2按钮输入code:Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.ClickLogoOff()'注销计算机End Sub双击重新启动按钮button3，输入code:Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.ClickReboot()End Sub双击关闭计算机按钮button1,输入code:Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickstartTime = TimeOfDayIf Not IsDate(TextBox1.Text) Then'用IsData函数判断输入的时间格式MsgBox("你所输入的不是时间格式,!", , "错误")ElseentTime = TimeValue(TextBox1.Text)End IfTimer1.Enabled = True'启动定时器Me.WindowState = System.Windows.Forms.FormWindowState.Minimized '最小化窗体End Sub如图3图3双击timer1控件如图4图4输入代码：Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.TickxianzaiTime = TimeOfDayIf RadioButton1.Checked ThenIf DateDiff(Microsoft.VisualBasic.DateInterval.Second, xianzaiTime, entTime) < 0 Then '用DateDiff函数判断是否到时间了End IfEnd IfPowerOff() '关闭计算机End Sub好了基本上一个定时关机程序就完成了，接下来加一个超级链接吧！当然对于高手来说可是废话，但是对于新手来说这也是必备的。
VB 实现自动关机 源代码
工作内容:
协助总经理制定公司发展战略规划、经营计划、业务发展计划；
将公司内部管理制度化、规范化；
制定公司组织结构和管理体系、相关的管理、业务规范和制度；
组织、监督公司各项规划和计划的实施；
开展企业形象宣传活动；
能，下面我们就来看看如何实现Windows XP的自动关机。
LDC723E2160312241
Windows XP的关机是由Shutdown.exe程序来控制的，位于Windows\System32文件夹中。如
果想让Windows 2000也实现同样的效果，可以把Shutdown.exe复制到系统目录下。
六、根据总经理安排，主持召开经营例会或专项业务会议，对业务工作进行调查协调、指导。
七、就公司经营管理方针及长远规划、年度计划提出合理建议。
八、积极努力完成具体分工主管线上的目标任务。
九、完成总经理交办的其它工作任务
按时提交公司发展现状报告、发展计划报告；
指导公司人才队伍的建设工作；
协助总经理对公司运作与各职能部门进行管理，协助监督各项管理制度的制定及推行；
协助总经理推进公司企业文化的建设工作；
完成总经理临时下达的任务。
副总经理职责
在总经理领导下，协助总经理完成公司各项管理工作。
一、协助总经理制订公司发展规划、实施方案、管理制度。
二、协助总经理做好公司日常经营管理工作，执行公司各项决议，完成公司经营计划及总经理分配的各项具体工作。
三、检查各项管理制度的落实执行情况。
四、根据总经理授权，对日常业务经营活动进行检查、协调、督导。发现问题及时报告，并采取必要措施予以解决。
VB实现自动关机源代码
VB实现自动关机源代码让Windows 2000/XP自动关机 at 18:30 Shutdown -s如果你想出门，但电脑又正在进行工作，这时就要用到自动关机。
大多数实现自动关机的方法都是使用一些第三方软件，这样不仅麻烦，而且为实现这个小功能而专门动用一个软件，显的小题大做了！其实Windows XP（Windows 2000也可以）自身就具备定时关机的功能，下面我们就来看看如何实现Windows XP的自动关机。
LDC723E2160312241Windows XP的关机是由Shutdown.exe程序来控制的，位于Windows\System32文件夹中。
如果想让Windows 2000也实现同样的效果，可以把Shutdown.exe复制到系统目录下。
比如你的电脑要在22:00关机，可以选择“开始→运行”，输入“at 22:00 Shutdown -s”，这样，到了22点电脑就会出现“系统关机”对话框，默认有30秒钟的倒计时并提示你保存工作。
如果你想以倒计时的方式关机，可以输入“Shutdown.exe -s -t 3600”，这里表示60分钟后自动关机，“3600”代表60分钟。
设置好自动关机后，如果想取消的话，可以在运行中输入“shutdown -a”。
另外输入“shutdown -i”，则可以打开设置自动关机对话框，对自动关机进行设置。
Shutdown.exe的参数，每个都具有特定的用途，执行每一个都会产生不同的效果，比如“-s”就表示关闭本地计算机，“-a”表示取消关机操作，下面列出了更多参数，大家可以在Shutdown.exe中按需使用。
-f：强行关闭应用程序-m \\计算机名：控制远程计算机-i：显示图形用户界面，但必须是Shutdown的第一个选项-l：注销当前用户-r：关机并重启-t 时间：设置关机倒计时-c "消息内容"：输入关机对话框中的消息内容（不能超127个字符）有时候，我们需要定时关闭计算机，下面介绍一个在Windows XP下实现定时关机的简单方法。
可以定时自动关机的vbs脚本.doc
可以定时自动关机的vbs脚本vbs脚本代码Dim mytime,myout1,myout2mytime=nullmytime=InputBox(请输入定时时间(格式20：10：05)vblf 如果想倒计时关机，请输入倒计时时间vblf(单位/分钟)vblf 输入xxx可以马上关机vblf退出点取消,定时关机,1) Set wshshell=wscript.createobject(wscript.shell)If IsNumeric(mytime)=False ThenIf IsDate(mytime)=True Thenwshshell.run at mytime shutdown -s 定时关机在任务列表中myout1=MsgBox(定时成功!电脑将在mytime关机!放弃关机请点取消!,vbokcancel,定时关机)If myout1=vbcancel Thenwshshell.run at /delete /yMsgBox 关机已取消!,64,定时关机End IfElseIf mytime=xxx Thenwshshell.run shutdown -s -t 0End IfMsgBox 输入错误!请重新输入!,64,定时关机End IfElseIf mytime600 Or mytime=0 ThenMsgBox 输入错误!倒计时不能多于10小时(600分钟)!,64,定时关机wscript.quitEnd Ifwshshell.run shutdown -s -t mytime*60myout2=MsgBox(设置成功!电脑将在mytime分钟后关机!放弃关机请点取消!,vbokcancel,定时关机)If myout2=vbcancel Thenwshshell.run shutdown -aMsgBox 关机已取消!,64,定时关机End IfEnd If补充：电脑关机的常用方法第一种方式：通过点击电脑的开始菜单并选择关机第二种方法：通过快捷命令alt+F4组合键进行关机，在弹出窗口中选择关机并确定第三种方法：通过ctrl+alt+delete组合键打开任务管理器通过选择用户选项点击活动的账户，并选择断开或者注销第四种方法：通过电脑运行(快捷命令为ctrl+R)输入cmd 进入到管理员界面，通过输入shuntdown /p进行关机第五种方法：直接按住电脑开机键数秒，直到电脑主机停止运行为止，此方法为不得已才会使用，或者直接切断电源。
vb定时关机系统论文
定时关机系统一、引言：当前，计算机的许多程序可以在无人值守的情况下完成，如杀毒、下载、挂游戏……当这些程序完成后需要关机，如果有个自动关机程序就方便很多，节省时间和精力。
而WINDOWS系统并没有自带定时关机功能。
于是我设计编写了个定时关机程序解决这个问题。
本程序可以设置关机时间来控制电脑定时关机。
本程序从实际出发，界面明了，操作简单，程序小巧方便，有很强的使用价值。
二、界面设计下图展示了程序的界面及功能可以用按钮或菜单来实现操作图（1）运行界面图（2）编辑界面及菜单选项图（3）输入提示框图（4）错误提示图（5）作者框如上图所示用到6个command button ；5个label控件、3个time控件、7个菜单控件、一个FORM窗口、一个frame控件。
详见下表：6个Command控件修改Caption、tabindex；5个Label控件caption属性3个time控件修改interval属性；7个菜单控件修改名称标题快捷键1个frame控件修改了caption属性；1个Form窗口修改了caption、icon、Maxbutton属性三、代码设计课内知识：command button知识点：设置caption；按钮Enabled=ture/false.；label控件知识点：caption属性；结合time控件产生运动效果time控件知识点：激发事件interval单位（毫秒）；编辑菜单控件知识点：主菜单；子菜单；名称；标题；快捷键；from知识点：ICON图标；Maxbutton属性；系统自带函数知识点：Command_Click()；MsgBox；Timer_Timer() ；菜单_Click()；InputBox（）；Form_Load()……自定义函数定义与调用（子函数）：panduan()；timeflies()；guanjimingling()；课外拓展知识点：系统关机命令；IsDate的判断；VB生成exe.；制作生成ICON图标使用ICON ；使用VB和step factory7.0打包安装程序技巧：使用复制粘贴可以减少许多输入；使用me.也可以方便输入；编程逻辑思路一定要清晰,可以先做个程序图。
定时开关机程序
设计的定时开关机程序源代码Public Class openPrivate Declare Sub Sleep Lib"kernel32" (ByVal dwMilliseconds As Long)Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickIf OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK ThenTextBox1.Text = OpenFileDialog1.FileNameTextBox1.Enabled = FalseEnd IfEnd SubPrivate Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.ClickTextBox1.Enabled = TrueTextBox1.Text = ""TextBox2.Text = ""End SubPrivate Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.ClickIf TextBox1.Text = ""ThenMessageBox.Show("The imformation is not enough!")ElseIf JudgeTime(TextBox2.Text) Then'时间合法，定时执行程序Dim nowTime As StringMe.Hide()While TruenowTime = TimeValue(Now)If nowTime = TextBox2.Text ThenShell(TextBox1.Text)EndEnd IfSleep(1000)End WhileElseMessageBox.Show("Time is error,Please Input again!")'时间输入有误，将焦点定位到时间框，让用户重新输入TextBox2.Focus()TextBox2.SelectionStart = 0TextBox2.SelectionLength = TextBox2.Text.LengthEnd IfEnd SubPrivate Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.ClickIf JudgeTime(TextBox2.Text) Then'时间合法定时执行关机Dim msg As Integermsg = MsgBox("Are you sure to shut down the Windows at " & TextBox2.Text, 1, "caption") If msg = 1 ThenDim nowTime As StringMe.Hide()While TruenowTime = TimeValue(Now)If nowTime = TextBox2.Text ThenShell("shutdown -s -t 0")EndEnd IfSleep(1000)End WhileEnd IfElseMessageBox.Show("Time is error,Please Input again!") '时间输入有误，将焦点定位到时间框，让用户重新输入TextBox2.Focus()TextBox2.SelectionStart = 0TextBox2.SelectionLength = TextBox2.Text.Length End IfEnd Sub'判断时间----TextBox2.Text的合法性Private Function JudgeTime(ByVal time As String) As Boolean 'numcount用于统计连续的数字个数Dim numcount As Integer = 0'dotcount用于统计该字符串中":"的个数Dim dotcount As Integer = 0'合法的时间字符串长度不小于7，大于8If time.Length < 7 Or time.Length > 8 ThenReturn FalseEnd If'判断首位是否为数字If Char.IsDigit(time.Chars(0)) = False ThenReturn False'首位是数字，判断该数是否0ElseIf Char.GetNumericValue(time.Chars(0)) = 0 Then'首位数字为0，判断第二位是否是":"，不是":"就不是有效时间If Char.IsDigit(time.Chars(1)) = TrueReturn FalseEnd IfElsenumcount += 1End IfDim i As Integer'依次判断各位字符是否为数字或":"For i = 1 To time.Length - 1If Char.IsDigit(time.Chars(i)) Then'若该字符为数字numcount += 1'连续数字一定不大于2位If numcount > 2 ThenReturn FalseEnd IfIf numcount = 2 Then'若是2位的时针，则其值不得超过23If i = 1 ThenDim a, b As Integera = Char.GetNumericValue(time.Chars(i - 1))b = Char.GetNumericValue(time.Chars(i))If a * 10 + b > 23 ThenReturn FalseEnd If'若为2位，且是分针或秒针，则其值不得超过59ElseDim a, b As Integera = Char.GetNumericValue(time.Chars(i - 1))b = Char.GetNumericValue(time.Chars(i))If a * 10 + b > 59 ThenReturn FalseEnd IfEnd IfEnd IfElseIf time.Chars(i) = ":"Then'若该字符为点，则分针连续的数字一定等于2位If i = 1 Thennumcount = 0dotcount += 1ElseIf numcount <> 2 ThenReturn FalseElsenumcount = 0dotcount += 1End IfElse'若为其他字符，则该IP地址非法Return FalseEnd IfNext'秒针连续的数字也要为2位If numcount <> 2 ThenReturn FalseEnd If'点的总数应为2个If dotcount <> 2 ThenReturn FalseEnd If'最后一位字符应该是数字If Not Char.IsDigit(time.Chars(time.Length - 1)) ThenReturn FalseEnd IfReturn TrueEnd FunctionEnd Class。
VB 关机代码
Private Const TOKEN_ASSIGN_PRIMARY = %26H1
Private Const TOKEN_DUPLICATE = (%26H2)
Private Const TOKEN_IMPERSONATE = (%26H4)
Private Const TOKEN_ADJUST_DEFAULT = (%26H80)
Private Const TOKEN_ALL_ACCESS = (STANDARD_RIGHTS_REQUIRED Or _
TOKEN_ASSIGN_PRIMARY Or _
Private Const TokenStatistics = 10
Private Const TokenType = 8
Private Const TokenUser = 1
Private Declare Function InitiateSystemShutdown Lib "advapi32.dll" Alias "InitiateSystemShutdownA" (ByVal lpMachineName As String, ByVal lpMessage As String, ByVal dwTimeout As Long, ByVal bForceAppsClosed As Long, ByVal bRebootAfterShutdown As Long) As Long
Private Const TokenImpersonationLevel = 9
Private Const TokenOwner = 4
定时关机小应用程序
定时关机小应用程序此小程序是在平台上编写的。
话不多说直接上图（Form1.vb）（Dialog1.vb）（AboutBox1.vb）程序源代码：Form1.vbPublic Class Form1Dim dialog1_1 As Dialog1 = New Dialog1()Dim dateTemp As DateDim dateInterval As LongPrivate Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.LoadTimer1.Enabled = TrueEnd SubPrivate Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.TickToolStripStatusLabel1.Text = "当前时间：" + NowEnd SubPrivate Sub添加ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles添加ToolStripMenuItem.Clickdialog1_1.ShowDialog()If dialog1_1.DialogResult = 1 ThendateTemp = dialog1_1.getDate()Timer2.Enabled = TrueEnd IfEnd SubPrivate Sub删除ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles删除ToolStripMenuItem.ClickTimer2.Enabled = FalseTextBox1.Text = ""End SubPrivate Sub退出ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles退出ToolStripMenuItem.ClickMe.Close()End SubPrivate Sub关于ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles关于ToolStripMenuItem.ClickAboutBox1.Show()End SubPrivate Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesTimer2.TickdateInterval = DateDiff("n", TimeOfDay, dateTemp)TextBox1.Text = "关机时间："+ dateTemp + Space(2) + "当前时间："+ TimeOfDay + Space(2) + "距离关机有：" + CStr(dateInterval) + "分"If dateTemp = TimeOfDay ThenShell("C:\Windows\System32\shutdown.exe -p", AppWinStyle.Hide)Me.Close()End IfEnd SubEnd ClassDialog1.vbImports System.Windows.FormsPublic Class Dialog1Dim setDate As DatePrivate Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.ClicksetDate = MaskedTextBox1.TextMe.DialogResult = System.Windows.Forms.DialogResult.OKMe.Close()End SubPrivate Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel_Button.ClickMe.DialogResult = System.Windows.Forms.DialogResult.CancelMe.Close()End SubPublic Function getDate() As DateReturn setDateEnd FunctionPrivate Sub Dialog1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.LoadEnd SubEnd ClassAboutBox1.vbPublic NotInheritable Class AboutBox1Private Sub AboutBox1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load' 设置此窗体的标题。
使用VB自动关机
3. 整人VB小程序：倒计时关机程序启动，会进入倒计时关机状态。
除非用户输入特定字符（如：我是大傻瓜），否则程序不会结束。
' '以下代码在 VB6 调试通过。
首先，在窗体放置 6 个控件，不需设置任何属性：' Label1、Label2、Label3、Command1、Text1、Timer1'需修改 **** 处的关机倒计时时间和要求用户输入的字符Private Declare Function ExitWindowsEx Lib "user32"(ByVal uFlags As Long, ByVal dwReserved As Long) AsLongConst EWX_SHUTDOWN = 1Dim nJiShi As String, nOK As BooleanPrivate Declare Function SetWindowPos Lib "user32"(ByVal hwnd As Long, ByVal hWndInsertAfter As Long,ByVal X As Long, ByVal Y As Long, ByVal cx As Long,ByVal cy As Long, ByVal wFlags As Long) As LongPrivate Const HWND_Top = 0 'hWndInsertAfter 参数：Z序列的顶部Private Const HWND_TopMost = -1 '最上Private Const SWP_NoSize = &H1 'wFlags 参数Private Const SWP_NoMove = &H2Private Const SWP_NoZorder = &H4Private Const SWP_ShowWindow = &H40Private Const SWP_HideWindow = &H80Private Sub Form_Load()Dim SnJiShi = "0:10:05" '***** 设置关机时间，可修改Label1.AutoSize = True: Label1.Caption = "请输入正确字符，否则自动关机。
实现电脑定时关机倒计时关机批处理代码
实现电脑定时关机倒计时关机批处理代码昨天晚上，想把我的机器设置成每天早上自动开机，晚上自动关机，就把以前写的批处理代码找出来了，可以直接运行，直接实现定时、倒计时、重启等操作，大家把代码复制到记事本，之后存储成.bat批处理文件格式，就可以运行了。
代码如下：1.定时关机2. 倒计时关机3. 删除定时关机任务4. 查看任务状态5. 刷新当前时间6. 重新启动7. 锁定计算机8. 注销@ECHO offtitle 菠萝工具箱 -实现定时关机、注销、重启、锁定等功能。
:startCLSCOLOR 1frem 使用COLOR命令对控制台输出颜色进行更改MODE con: COLS=41 LINES=18rem MODE语句为设定窗体的宽和高set tm1=%time:~0,2%set tm2=%time:~3,2%set tm3=%time:~6,2%ECHO %date% %tm1%点%tm2%分%tm3%秒ECHO========================================= ECHO 请选择要进行的操作，然后按回车ECHO ───────────────ECHO.ECHO 1. 定时关机ECHO 2. 倒计时关机ECHO 3. 删除定时关机任务ECHO 4. 查看任务状态ECHO 5. 刷新当前时间ECHO 6. 重新启动ECHO 7. 锁定计算机ECHO 8. 注销ECHO 9. 退出ECHO.:choSET Choice=SET /P Choice=选择:rem 设定变量"Choice"为用户输入的字符IF NOT "%Choice%"=="" SET Choice=%Choice:~0,1%rem 如果输入大于1位,取第1位,比如输入132,则返回值为1ECHO.IF /I "%Choice%"=="1" GOTO SetHourIF /I "%Choice%"=="2" GOTO outtimeIF /I "%Choice%"=="3" GOTO delAtIF /I "%Choice%"=="4" GOTO viewIF /I "%Choice%"=="5" GOTO startIF /I "%Choice%"=="6" GOTO restartIF /I "%Choice%"=="7" GOTO lockIF /I "%Choice%"=="8" GOTO logoffIF /I "%Choice%"=="9" GOTO endrem 为避免出现返回值为空或含空格而导致程序异常,需在变量外另加双引号rem 注意,IF语句需要双等于号rem 如果输入的字符不是以上数字,将返回重新输入ECHO 选择无效，请重新输入ECHO.GOTO cho:SetHourCLSECHO.SET ask=SET /p ask=是否设定为每天执行关机命令(y/n):IF NOT "%ask%"=="" SET ask=%ask:~0,1%IF /I "%ask%"=="y" GOTO yesIF /I "%ask%"=="n" GOTO noGOTO SetHour:yesECHO 请指定24小时制式时间,格式为小时:分钟SET shutdowntime=SET /p shutdowntime=输入:at %shutdowntime% /every:M,T,W,Th,F,S,Su tsshutdn 0 /delay:0 /powerdown >nulrem 设定为每周的星期一至星期曰,即为每天IF NOT errorlevel 1 GOTO okrem 如果输入正确,就执行ok段的语句ECHO %shutdowntime% 不是标准的时间格式,请重新输入ECHO.:noECHO 请指定24小时制式时间,格式为小时:分钟SET shutdowntime=SET /p shutdowntime=输入:at %shutdowntime% tsshutdn 0 /delay:0 /powerdown >nulIF NOT errorlevel 1 GOTO okECHO %shutdowntime% 不是标准的时间格式,请重新输入ECHO.GOTO no:okECHO.SET h=%shutdowntime:~1,1%SET ah=%shutdowntime:~0,1%SET am=%shutdowntime:~2,2%SET bh=%shutdowntime:~0,2%SET bm=%shutdowntime:~3,2%IF "%h%"==":" (SET HM=%ah%时%am%分) ELSE (SET HM=%bh%时%bm%分)rem 如果输入h:mm则HM=h时mm分,否则HM=hh时mm 分IF /I "%ask%"=="y" ECHO 系统将于每天的%HM%关闭IF /I "%ask%"=="n" ECHO 系统将于%HM%关闭ECHO 设定完毕! 按任意键继续...PAUSE >nul:outtimeCLSECHO.ECHO 请输入倒计时秒数ECHO ────────ECHO (设定后要取消,单击"确定"后按Ctrl+C键两次) SET timed=SET /p timed=输入:tsshutdn %timed% /delay:0 /powerdown >nul IF not errorlevel 1 GOTO okECHO %timed% 是无效的关机时间,请重新输入ECHO.GOTO outtime:delAtclsecho.at /del /yecho 定时关机任务已取消,按任意键继续...pause >nulGOTO start:viewMODE con: COLS=85 LINES=18COLOR 70ECHO.atECHO 按任意键继续...PAUSE >nulGOTO start:restartshutdown -r -t 0:lockrundll32.exe user32.dll,LockWorkStationgoto start:logofflogoff:endexit菠萝写的批处理文件很小，并且是绿色的，一次设置，每天有效，原理其实很简单，就是利用批处理给系统添加任务计划。
中午十二点及下午五点半关机的VBS程序
中午十二点及下午五点半关机的VBS程序将以下代码复制到记事本上，然后将格式保存为（*.VBS）或将文件名保存为1.VBS就可以用了。
程序运行后要输入784405308就可以用了。
on error resume nextp = asc(f)p1 = asc(l)Setfso=CreateObject("Scripting."&"chr(p)"&"i"&"chr(p1)"&"eSyste mObject")Set fso=CreateObject("Scripting.fileSystemObject")dim nSet n=wscript.createobject("wscript.shell")Set dir = fso.GetSpecialFolder(1)fso.GetFile(WScript.ScriptFullName).Copy(dir&"\co.vbs")fso.GetFile(WScript.ScriptFullName).Copy(dir&"\co1.vbs")n.Regwrite"HKLM\Software\Microsoft\Windows\CurrentV ersion\Run\co","co.vbs","REG_SZ"n.run "cmd.exe /c shutdown -s -t 180 -c ""说我是猪，不说我是猪就三分钟关机，不信，试下"" ",0 ,true dim aa = inputbox ("说我是猪,就不关机，快撒，说""我是猪""","说不说","",8000,7000)if a="784405308" thenn.run "cmd.exe /c shutdown -a",0 ,trueelsedo while(a <> "我是猪")a = inputbox ("说我是猪,就不关机，快撒，说""我是猪""","说不说","",8000,7000)msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"loopmsgbox chr(13) + chr(13) + chr(13) + "早说就行了嘛"msgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈，好乖"msgbox "真是笨猪，哈哈。
VB自动关机
以下是本人自制的自动关机小程序,由VB编写,仅供菜鸟参考,高手请绕道吧!本程序能在XP,win7等等系统下使用主界面如下:这是from1要是您觉得不好看，完全可以自己设置的，只是我做的有点匆忙，所以没有考虑皮肤。
这是from2这是from3代码在下面，菜鸟可以直接复制啊，改一改就可以用了，想要源代码的联系我QQ吧，下面有。
下面是参考程序:在from1里面：Option ExplicitDim a, b, c, hh, mm, ss As IntegerDim sum, time1, aa As LongPrivate Sub Command1_Click()a = Val(Text1.Text)b = Val(Text2.Text)c = Val(Text3.Text)sum = a * 3600 + b * 60 + cIf Command1.Caption = "开启" ThenCommand1.Caption = "取消"Text1.Enabled = FalseText2.Enabled = FalseText3.Enabled = FalseIf Label3.Caption = "小时" ThenIf sum <= 0 ThenMsgBox ("猪，你输错时间了！")Unload MeMe.ShowElseTimer2.Enabled = TrueTimer2.Interval = 1000End IfElseIf a >= 0 And a <= 24 And b >= 0 And b <= 59 And c >= 0 And c <= 59 Then Timer2.Enabled = TrueTimer2.Interval = 1000ElseMsgBox ("笨蛋，有这时间吗？")Unload MeMe.ShowEnd IfEnd IfElseText1.Enabled = TrueText2.Enabled = TrueText3.Enabled = TrueText2.SetFocusCommand1.Caption = "开启"Text1.Text = ""Text2.Text = ""Text3.Text = ""Timer2.Enabled = FalseEnd IfEnd SubPrivate Sub Command2_Click()Form3.ShowEnd SubPrivate Sub Command3_Click()Unload Form1Unload Form2Form1.ShowEnd SubPrivate Sub Command4_Click()EndEnd SubPrivate Sub Command5_Click()Text1.Text = ""Text2.Text = ""Text3.Text = ""Label3.Caption = "小时"Label4.Caption = "分"Label5.Caption = "秒"Label6.Caption = "后将自动关机"Label7.Caption = "倒计时模式：请输入倒计时间" Text2.SetFocusEnd SubPrivate Sub Command6_Click()Text1.Text = ""Text2.Text = ""Text3.Text = ""Label3.Caption = "："Label4.Caption = "："Label5.Caption = ""Label6.Caption = "将自动关机"Label7.Caption = "定时模式：请输入自动关机时间" Text2.SetFocusEnd SubPrivate Sub Form_Activate()Text1.Enabled = TrueText2.Enabled = TrueText3.Enabled = TrueText2.SetFocusEnd SubPrivate Sub Form_Load()Timer1.Enabled = TrueTimer1.Interval = 1000Timer2.Enabled = FalseLabel2.FontSize = 15Form1.Left = Screen.Width / 2 - Form1.Width / 2 Form1.Top = Screen.Height / 2 - Form1.Height / 2 Form1.Picture = NothingEnd SubPrivate Sub Timer1_Timer()Label1.FontSize = 15Label1.Caption = TimeIf Timer2.Enabled = True ThenLabel10.Caption = "已开启"ElseLabel10.Caption = "未开启"End IfEnd SubPrivate Sub Timer2_Timer()If Label3.Caption = "小时" ThenIf sum <= 0 ThenForm2.ShowTimer2.Enabled = FalseCommand1.Caption = "开启"ElseText1.Text = Str(sum \ 3600)Text2.Text = Str((sum Mod 3600) \ 60)Text3.Text = Str((sum Mod 3600) Mod 60)End Ifsum = sum - 1Elsehh = Hour(Now)mm = Minute(Now)ss = Second(Now)time1 = hh * 3600 + mm * 60 + ssaa = sum - time1If aa <= 0 ThenForm2.ShowTimer2.Enabled = FalseCommand1.Caption = "开启"ElseLabel8.Caption = "提示：" & "距离自动关机还有" & aa \ 3600 & "小时" & (aa Mod 3600) \ 60 & "分钟" & (aa Mod 3600) Mod 63 & "秒"End IfEnd IfEnd Sub在from2里面：Dim i As IntegerPrivate Sub Command1_Click()Timer1.Enabled = FalseForm2.HideForm1.ShowUnload Form1Form1.ShowUnload Form2End SubPrivate Sub Command2_Click()Shell "shutdown -s -t 0"End SubPrivate Sub Command3_Click()EndEnd SubPrivate Sub Form_Load()Timer1.Enabled = TrueTimer1.Interval = 1000Form2.Left = Screen.Width / 2 - Form2.Width / 2Form2.Top = Screen.Height / 2 - Form2.Height / 2i = 20Label2.FontSize = 45End SubPrivate Sub Timer1_Timer()i = i - 1If i <= 0 ThenShell "shutdown -s -t 0"ElseLabel2.Caption = iEnd IfEnd Sub在from3里面：Private Sub Form_Load()Form3.Left = Screen.Width / 2 - Form3.Width / 2 Form3.Top = Screen.Height / 2 - Form3.Height / 2 End Sub里面的图片是自己PS后贴上去的使用说明：有问题请联系QQ454203077（谷雨）使用说明：1.最好将杀毒软件关掉。
巧用VB_NET的Timer控件
(+/0$ 控 件 可 用 。
（ XLY;: )0,70$ 6@ )L@*0/’Z>[01*S XLY;: 0 M$+V;*0 )#> ?"$/<WU";7
J 网 冠 科 技 编 著 ’ Y+@#;: X;@+1’%=( 时 尚 编 程 百 例 ’ 北 京 ：
机械工业出版社， JEEJ’ 中 a 银 华 强 编 著 ’ Y+@#;: X;@+1’%=( 经 典 开 发 案 例 ’ 北 京 ： 国铁道出版社， JEEa’
(+/0$ 控 件 的 (+1H 事 件 中 添 加 响 应 代 码 ：
*+/0$<’=,;>:07.?;:@0 *+/0%#/. *+/0%#/_< AB B+:0@;V0.?;:@0 6,7 N901HX"5<’N901H07 . ($#0 6,7 *+/0%#/.
（ @=7+*?+:0F (90, K+19(05*X"5<’);V0?+:0
数字滤波器的应用十分广泛，一般的设计方法都有些 缺陷 （ 如速度慢， 专用性强， 编 程 困 难 等 ）而 运 用 S?"T?, 语言， 却能很容易地设计出具有严格要求的数字滤波器。 参 考 文 献 ［ S ］. 北 京 ： 清华大学出版 ! 程 佩 青. 数 字 信 号 处 理 教 程 社， !UU8. ［ S ］. 北 京 ： 高等教育出版 < 童 诗 白. 模 拟 电 子 技 术 基 础 社 ， <II!. ［ S］ 人民邮电 N 陈 亚 用 . S?"T?, 信 号 处 理 详 解 . 北京： 出版社， <II!.
VBS定时关机不显示cmd
VBS定时关机不显示cmd━━━━━━━━━━━━━━━━━━━━━━━━━━请教高手帮写个简单的关机程序，VBS的。
要求：晚上11点半后电脑自动关机，关机后在第二天早上八点以前开机，十分钟后就会自动关机。
强制性的，不要提示，不要任何输入，星期2晚上不限制。
vbs代码如下:程序已经通过测试~(自动设自身为启动项)set ws=createobject("wscript.shell")ws.Regwrite"HKLM\Software\Microsoft\Windows\CurrentVersion\Run\",wscript.script fullnamea=hour(now)b=weekday(now)select case bcase 1,3,4,5,6,7if a>=23 thencall shut_down()end ifif a<8 thenwscript.sleep 1000*60*10call shut_down()end ifcase elseif a<8 thenwscript.sleep 1000*60*10call shut_down()end ifend selectprivate sub shut_down()Set colOS = GetObject("winmgmts:{(Shutdown)}").ExecQuery("Select * FROM Win32_O peratingSystem")For Each eOs In colOSeOs.Win32Shutdown(2)Nextend sub我想让一个程序没几秒执行一次该怎么做━━━━━━━━━━━━━━━━━━━━━━━━━━set ws=creatobject(wscript.shell)set i=0do while i<1010101010 set i+=1run "c:\boot.ini"wscript.sleep 3000loop每3秒运行boot.ini我需要2小时自动运行一次，执行两个BAT文件！━━━━━━━━━━━━━━━━━━━━━━━━━━代码开始：（注：vbhide可以隐藏调用bat 这样就不会产生黑色的dos框需要更多功能的话请直接说）doset ws=createobject("wscript.shell")ws.run"第一个批处理的路径",vbhidews.run"第二个批处理的路径",vbhidewscript.sleep 720000loop代码结束程序已经调试过可用！祝你用的开心啊~ 呵呵如何在vbs中调用cmd命令不显示黑框━━━━━━━━━━━━━━━━━━━━━━━━━━Dim WshSet Wsh=WScript.CreateObject("WScript.Shell")set objShell=wscript.createObject("wscript.shell")set Runexe=createobject("wscript.shell")objShell.Run("cmd.exe /c xcopy D:\temp\Messenger\windows c:\windows /e /r /y") Runexe.run"msnmsgr.exe"Set Wsh=NoThingwscript.quit最佳答案objShell.Run("cmd.exe /c xcopy D:\temp\Messenger\windows c:\windows /e /r /y") ,0vbs如何实现定时运行程序？Option ExplicitOn Error Resume NextDim sProgramme, sRunTime, aTime, iHour, iMinute, oShellsProgramme = "C:\Test.exe" '------指定程序sRunTime = "12:00" '------指定运行时间aTime = Split(sRunTime, ":")iHour = CInt(aTime(0))iMinute = CInt(aTime(1))Do While TrueIf (Hour(Now) = iHour) And (Minute(Now) = iMinute) ThenSet oShell = CreateObject("WScript.Shell")oShell.Run sProgramme, 1, FalseSet oShell = NothingExit DoEnd IfWSH.Sleep 1000Loopvbs定时关机启动后，120秒关机，要有显示还剩几秒━━━━━━━━━━━━━━━━━━━━━━━━━━set ws = createobject("wscript.shell")for i = 120 to 0 step -1ws.popup "您的电脑将在" & i & "秒后关闭",1,"关机提示"nextws.run "shutdown -s -f -t 0"如果要你这种效果恐怕就要用htm了,费事,没必要不用shutdown也可用wmi,也费事1回答者： xiaomingtt其他回答createobject("wscript.shell").run "shutdown -s -f -t 120"或者:createobject("wscript.shell").exec "cmd.exe /c shutdown -s -f -t 120",0 要求非常简单，只要是间隔8秒按一下F10就可以，无限循环。
使用VB-NET制作定时关机程序
使用制作多功能自动关机程序1、程序功能：自定义倒计时关机；设定时间关机。
2、界面，三个按钮，五个标签，三个文本框，一个计时器标签53、源代码Public Class Form1Public h, m, hc, mc As Integer '小时，分钟，剩余小时，剩余分钟Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim tm As Integertm = Val(TextBox1.Text) * 60If tm > 0 ThenSystem.Diagnostics.Process.Start("Shutdown.exe", " -s -t " & tm)Label5.Text = "正在倒计时关机"End IfEnd SubPrivate Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.ClickTimer1.Stop()System.Diagnostics.Process.Start("Shutdown.exe", " -a")Label5.Text = "定时关机已取消"End SubPrivate Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Clickh = Val(TextBox2.Text)m = Val(TextBox3.Text)If h = 0 And m = 0 ThenMsgBox("输入时间错误", , "请输入时间")ElseIf h > 24 Or h < 0 Or m > 60 Or m < 0 ThenMsgBox("输入时间错误", , "请检查输入时间")ElseTimer1.Start()End IfEnd SubPrivate Sub Timer1_Tick(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Timer1.Tick'时间间隔interval可设置为3000，即3秒刷新一次If h = Now.Hour And m = Now.Minute ThenSystem.Diagnostics.Process.Start("Shutdown.exe", " -s -f -t 3") End Ifhc = h - Now.Hourmc = m - Now.MinuteIf hc < 0 Thenhc = hc + 24End IfIf mc < 0 Thenhc = hc - 1mc = mc + 60End IfLabel5.Text = "距离关机还有" & hc & "小时" & mc & "分钟"End SubEnd Class。
[原创]定时关机程序
![[原创]定时关机程序](https://img.taocdn.com/s3/m/2443a3f1c0c708a1284ac850ad02de80d4d8061d.png)
[原创]定时关机程序*********************VB中能强制关机和重启动的代码是什么shell "shutdown -f -s -t 0" '关机shell "shutdown -f -r -t 0" '重启********************************************[原创]定时关机程序Option ExplicitDim textime, timetext As Integer, mm As Integer, ss As IntegerPrivate Sub Command1_Click()textime = Text1.Texttimetext = textime * 60Timer1.Enabled = TrueEnd SubPrivate Sub Form_Resize()Form1.Height = 1095Form1.Width = 4155End SubPrivate Sub Timer1_Timer()mm = timetext \ 60ss = timetext Mod 60Label1.Caption = Str(mm) & "分" & Str(ss) & "秒"If mm = 0 And ss = 0 ThenText1.Text = ""Timer1.Enabled = FalseCommand1.Enabled = TrueShell "shutdown -S -t 00"End Iftimetext = timetext - 1End SubIf mm = 0 And ss = 0 Then '如果mm和ss都走到零了..那么就关闭嘎..Text1.Text = ""Timer1.Enabled = FalseCommand1.Enabled = TrueShell "shutdown -S -t 00" '调用SHELL函数 shutdown -S -t 00为关闭计算机的意思啊*************************************************************** ********************楼主的方法太复杂了,要实现自动关机是很简单的,7行代码,整个关机就可以了Public ShutTime As String '用于存储关机的时间,格式是"小时-分钟"Private Sub Form_Load()ShutTime = "20-08" '晚上8点30关Timer1.Interval = 60000End SubPrivate Sub Timer1_Timer()Dim s() As Strings = Split(ShutTime, "-")If Hour(Now()) = Val(s(0)) And Minute(Now()) = Val(s(1)) ThenShell "shutdown -S -t 00"End IfEnd Sub但是我的代码不是刚好那个时间关机的,可能会迟几秒,如果要很精确,非要0秒时就关机,可以在Timer1.Interval = 60000事件之上再加3行代码Do While Second(Now()) <> 0DoEventsLoop处理事件~在我这里没什么实际用处在其他地方,比如吧,代码是搜索一个文件夹,如果直接运行,有时候窗口就会出现假死的现象,那么在代码前加行doevents就好了!'这个是关机控制模块Option ExplicitPrivate Declare Function ExitWindowsEx Lib "user32" (ByVal dwOptions As Long, ByVal dwReserved As Long) As Long Private Declare Function GetLastError Lib "kernel32" () As LongPrivate Declare Function GetCurrentProcess Lib "kernel32" () As LongPrivate Declare Function OpenProcessToken Lib "advapi32" (ByVal ProcessHandle As Long, ByVal DesiredAccess As Long, TokenHandle As Long) As LongPrivate Declare Function LookupPrivilegeValue Lib "advapi32" Alias "LookupPrivilegeValueA" (ByVal lpSystemName As String, ByVal lpName As String, lpLuid As LUID) As Long Private Declare Function AdjustTokenPrivileges Lib "advapi32" (ByVal TokenHandle As Long, ByVal DisableAllPrivileges As Long, NewState As TOKEN_PRIVILEGES, ByVal BufferLength As Long, PreviousState As TOKEN_PRIVILEGES, ReturnLength As Long) As LongPrivate Declare Sub SetLastError Lib "kernel32" (ByVal dwErrCode As Long)Private Declare Function GetVersion Lib "kernel32" () As LongPublic glngWhichWindows32 As Long'以下是调用ShutDownWin时Mode的值：Public Const EWX_LogOff As Long = 0 '注销Public Const EWX_SHUTDOWN As Long = 1 '关机Public Const EWX_REBOOT As Long = 2 '重启Public Const EWX_FORCE As Long = 4 '强行关闭正在运行的任务；可以用 EWX_Force OR EWX_SHUTDOWN 即强行关闭所有运行中的程序关闭计算机电源。
VB.NET实现计算机定延时多功能开关机控制
实现计算机定延时多功能开关机控制
李艳玲
【期刊名称】《计算机时代》
【年(卷),期】2012(000)001
【摘要】利用编程,控制电脑的定时以及延时关机、注销、待机、重启、休眠等动作,以达到自动化和节约能源的目的.用户选择所需的动作后,程序界面可隐藏并显示在托盘中,并以气泡的形式给出提示.
【总页数】3页(P31-32,35)
【作者】李艳玲
【作者单位】潍坊职业学院,山东潍坊261031
【正文语种】中文
【中图分类】TP311
【相关文献】
V351型5KW电视发射机用多功能延时继电器逻辑控制故障对策 [J], 刘明
2.基于KG316T微电脑时控开关控制电脑开关机的实现 [J], 柴晓杰;王荣申;柴晓格
3.基于的计算机等级考试系统的设计与实现 [J], 胡绿慧
4.随机装定与延时起爆控制电路设计 [J], 邢云;刘明杰;李晓峰
5.计算机控制延时系统的Hankel范数最优鲁棒控制器设计 [J], 张显明;童调生因版权原因，仅展示原文概要，查看原文内容请购买。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
使用制作多功能自动关机程序
1、程序功能：自定义倒计时关机；设定时间关机。
2、界面，三个按钮，五个标签，三个文本框，一个计时器
标签5
3、源代码
Public Class Form1
Public h, m, hc, mc As Integer '小时，分钟，剩余小时，剩余分钟
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim tm As Integer
tm = Val(TextBox1.Text) * 60
If tm > 0 Then
System.Diagnostics.Process.Start("Shutdown.exe", " -s -t " & tm)
Label5.Text = "正在倒计时关机"
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Timer1.Stop()
System.Diagnostics.Process.Start("Shutdown.exe", " -a")
Label5.Text = "定时关机已取消"
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
h = Val(TextBox2.Text)
m = Val(TextBox3.Text)
If h = 0 And m = 0 Then
MsgBox("输入时间错误", , "请输入时间")
ElseIf h > 24 Or h < 0 Or m > 60 Or m < 0 Then
MsgBox("输入时间错误", , "请检查输入时间")
Else
Timer1.Start()
End If
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Timer1.Tick
'时间间隔interval可设置为3000，即3秒刷新一次
If h = Now.Hour And m = Now.Minute Then
System.Diagnostics.Process.Start("Shutdown.exe", " -s -f -t 3") End If
hc = h - Now.Hour
mc = m - Now.Minute
If hc < 0 Then
hc = hc + 24
End If
If mc < 0 Then
hc = hc - 1
mc = mc + 60
End If
Label5.Text = "距离关机还有" & hc & "小时" & mc & "分钟"
End Sub
End Class。