巧用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重新命一個名即可實現。以后雙擊任務欄上的時間就不會再彈出“日期時間”的對話框了，需要改時間的時候只要把名字改回來即可。