巧用VBA实现间隔开关机

☆李游

（宜宾市第一中学校，四川宜宾 644000）

作为计算机教师的我有一个6岁的女儿，放寒假了，每天在家使用计算机上网学习和游戏的时间超过3小时，我就想在网上下载一个可以自动关机的程序，实现这样一个功能：计算机运行指定一段时间后就自动关闭；开机时自动判断出离上次关机的时间，如果小于设定的休息时间，计算机又自动关闭。这样就可以避免连续使用计算机对眼睛产生的不良影响，而这过程由计算机自动控制。

我的想法很简单：每次只能使用30分钟计算机，到时间后计算机就自动关闭；休息30分钟以后可以重开计算机再使用30分钟；如果在计算机关机后不到30分钟就开机的话，计算机就自动关闭。在解决问题的时候就着重解决以上三个问题，最后使用VBA和BAT配合编写一个简单的小程序解决了这个问题。

（1）在C盘建立一个close文件夹，当然文件夹可以任意命名，最好将文件夹建立在c:＼windows等一些系统文件夹内并把文件夹的名字做得更隐蔽些。

（2）建立两个批处理文件，批处理文件的建立可以直接建一个记事本文件然后把扩展名改为bat就行了。文件名和内容分别如下：

（4）手动建立一个close.txt文件，并在里面第一行输入数字0，以作为记录时间的初始值。

经过简单的4步就把一个可以间隔开关机的程序完成了。这个程序的关键是通过执行close.vbs来判断上次开机和现在开机的时间差从而作出立即关机和延时关机。因此，只要把close.vbs加入到系统自动启动项中就行了。

shutdown还有一个参数是取消关机的，就是shutdown－a，这也是为什么我们在关机时使用一个延时20秒以上来关机了。当我们自己要使用计算机时，只要出现关机对话框，我们直接在开始菜单的运行处输入shutdown－a就会取消自动关机功能。建立一个批处理文件来存储这个命令，以后只要一显示关机就去运行一下从而取消关机也是可以的。

另外对于怎么把close.vbs加入到启动项，网上有很多软件和介绍，这里也使用一个简单的批处理来完成。内容如下：

另外，为了防止孩子自己修改时间，只要将C：＼Windows＼System32 目录下的 Timedate.cpl重新命一个名即可实现。以后双击任务栏上的时间就不会再弹出“日期时间”的对话框了，需要改时间的时候只要把名字改回来即可。