Vb 定时关机源码.docVIP

Vb 定时关机 看到网上有很多关于定时关机的代码或例子，对于初学者来说，面对许多的声名或变量，却是两眼一抹黑，什么也看不懂，其实只调用系统自带的关机命令就可以实现 Set g = CreateObject(WScript.Shell) g.Run shutdown /f /s /t 0 在这里跟大家分享，高手请路过 第一步： 打开vb 编程器，新建一个标准EXE工程 然后在窗体上加入一个时间控件，两个按钮，两个输入框，还有一个标签 下面设置控件的属性，为了方便，我将控件名称和显示都改成了中文 时间控件： 点击窗体上的时间控件，在右侧的属性栏中设置。 Vb支持中文名称 将两个按钮分别设为 退出和启动 将两个输入框名称分别设为小时和分钟，这是用来输入要定时的时间的 输入框的文本属性都要设为空：如图： 还有个标签属性，名称设为当前时间，显示设为空 下面开始骗写代码了： 为了简单易懂，变量中没有加入变量声明，懂的自已写上即可 先骗写两个按钮的代码，双击退出按钮，就会弹出代码编写框，将两个按钮代码写上，代码如下： 然后回到窗体，双击定时器控件开始编下如下代码： Private Sub 定时器_Timer() NowTime = Time 获取系统当前的时间 DinTime = 小时.Text : 分钟.Text 获取输入框中的时间， 因为时间格式是 hh:mm ,中间有时间分隔符 ： 所以要用连接符 将冒号加入形成时间格式 If Hour(NowTime) = Hour(DinTime) And Minute(NowTime) = Minute(DinTime) Then Set g = CreateObject(WScript.Shell) 调用系统关机命令 g.Run shutdown /f /s /t 0 执行关机 End If 当前时间.Caption = NowTime ‘ 标签用来显示当前时间，提示程序正在运行状态 End Sub 如下图： 这是为了方便大家看而将系统时间赋值给一个变量,也可以写成这样： Private Sub 定时器_Timer() DinTime = 小时.Text : 分钟.Text If Hour(Time) = Hour(DinTime) And Minute(Time) = Minute(DinTime) Then Set g = CreateObject(WScript.Shell) g.Run shutdown /f /s /t 0 End If 当前时间.Caption = Time End Sub Shutdown 后面参数/f /s /t 0 之前一定要有空格，否则不能执行 当然输入框也可以用一个来获得定时的时间，只是中间要有冒号，如：12：20 到此，一个最简易的定时器就完成了，运行，然后在输入框中设定好时间，点击启动就开始工作了，从当前时间标签上就可以看到定时器正在运行： 当然，一个真正的程序这样还是不行的，如果当输入框中没有任何输入或是为空的时候，运行时就会出错，如果输入字母或是字符也会出错， 还有当小时输入框的输入超过24小时，或是分钟输入超过60分钟的时候，时间判断永远都无法成立，就无法执行关机 所以要在代码中加入逻辑判断： Private Sub 定时器_Timer() DinTime = 小时.Text : 分钟.Text If 小时.Text = Or 分钟.Text = Or 小时.Text 23 Or 分钟.Text 59 Then MsgBox 时间设置错误！不能为空或是超出正常时间范围！ ‘提示错误 定时器.Enabled = False ‘判断错误成立后停止定时器 Else If Hour(Time) = Hour(DinTime) And Minute(Time) = Minute(DinTime) Then Set g = CreateObject(WScript.Shell) g.Run shutdown /f /s /t 0 End I