Vb-定时关机源码.docVIP

Vb定时关机

看到网上有很多关于定时关机的代码或例子，对于初学者来说，面对许多的声名或变量，却是两眼一抹黑，什么也看不懂，其实只调用系统自带的关机命令就可以实现

Setg=CreateObject(WScript.Shell)

g.Runshutdown/f/s/t0

在这里跟大家分享，高手请路过

第一步：

翻开vb编程器，新建一个标准EXE工程

然后在窗体上参加一个时间控件，两个按钮，两个输入框，还有一个标签

下面设置控件的属性，为了方便，我将控件名称和显示都改成了中文

时间控件：点击窗体上的时间控件，在右侧的属性栏中设置。Vb支持中文名称将两个按钮分别设为退出和启动

将两个输入框名称分别设为小时和分钟，这是用来输入要定时的时间的

输入框的文本属性都要设为空：如图：

还有个标签属性，名称设为当前时间，显示设为空

下面开始骗写代码了：

为了简单易懂，变量中没有参加变量声明，懂的自已写上即可

先骗写两个按钮的代码，双击退出按钮，就会弹出代码编写框，将两个按钮代码写上，代码如下：

然后回到窗体，双击定时器控件开始编下如下代码：

PrivateSub定时器_Timer()

NowTime=Time获取系统当前的时间

DinTime=小时.Text:分钟.Text获取输入框中的时间，

因为时间格式是hh:mm,中间有时间分隔符：

所以要用连接符将冒号参加形成时间格式

IfHour(NowTime)=Hour(DinTime)AndMinute(NowTime)=Minute(DinTime)Then

Setg=CreateObject(WScript.Shell)调用系统关机命令

g.Runshutdown/f/s/t0执行关机

EndIf

当前时间.Caption=NowTime‘标签用来显示当前时间，提示程序正在运行状态

EndSub

如下列图：

这是为了方便大家看而将系统时间赋值给一个变量,也可以写成这样：

PrivateSub定时器_Timer()

DinTime=小时.Text:分钟.Text

IfHour(Time)=Hour(DinTime)AndMinute(Time)=Minute(DinTime)Then

Setg=CreateObject(WScript.Shell)

g.Runshutdown/f/s/t0

EndIf

当前时间.Caption=Time

EndSub

Shutdown后面参数/f/s/t0之前一定要有空格，否那么不能执行

当然输入框也可以用一个来获得定时的时间，只是中间要有冒号，如：12：20

到此，一个最简易的定时器就完成了，运行，然后在输入框中设定好时间，点击启动就开始工作了，从当前时间标签上就可以看到定时器正在运行：

当然，一个真正的程序这样还是不行的，如果当输入框中没有任何输入或是为空的时候，运行时就会出错，如果输入字母或是字符也会出错，

还有当小时输入框的输入超过24小时，或是分钟输入超过60分钟的时候，时间判断永远都无法成立，就无法执行关机所以要在代码中参加逻辑判断：

PrivateSub定时器_Timer()

DinTime=小时.Text:分钟.Text

If小时.Text=Or分钟.Text=Or小时.Text23Or分钟.Text59Then

MsgBox时间设置错误！不能为空或是超出正常时间范围！‘提示错误

定时器.Enabled=False‘判断错误成立后停止定时器

Else

IfHour(Time)=Hour(DinTime)AndMinute(Time)=Minute(DinTime)Then

Setg=CreateObject(WScript.Shell)

g.Runshutdown/f/s/t0

End