用VB6.0編寫電腦定時關機的程序

微軟集團公司的VB以簡單易用，功能強大而著稱，應用VB能夠很簡易地編寫出定時關閉電腦的程式。以下是唯一簡單的定時關閉電腦的程式,供各位應用VB的哥們參考,如有何不適之處,請多指點!

---- 定時關閉電腦，很顯然，有兩個關鍵點：

---- 1.定時。能夠用VB中的Timer控件結合電腦的操作系統時候來停止精確的定時。

---- 2.關閉電腦。這能夠調用Win32 API參數 ExitWindowsEx 來關閉電腦。

----

---- 下面首先來說明一下 ExitWindowsEx 參數，該參數在VB中的聲明如下：

Declare Function ExitWindowsEx Lib
"user32" Alias "ExitWindowsEx" _
(ByVal uFlags As Long, ByVal
dwReserved As Long) As Long

【返回值】
Long，非零表明勝利，零表明失敗。
【參數parameter表】
uFlags --------- Long，
指定下述唯一或多個標志（用OR運算符合并到
一起）
EWX_FORCE=4
強迫中止沒有響應的進程
EWX_LOGOFF=0
中止進程，然后注銷
EWX_SHUTDOWN=1
關掉操作系統電源（假如估計的話，ATX電源就能夠）
EWX_REBOOT=2 重新引導操作系統
dwReserved ----- Long，保留，設為零
好了，目前能夠開端編程了。

---- 1. 新建唯一達標EXE工程。

---- 2. 在窗體上放置唯一TextBox控件，用以輸入定時時候。

---- 3. 在TextBox控件之下放置兩個OptionButton控件，組成控件數組，用以選取定時模式。

---- 4. 在OptionButton控件之下放置唯一CommandButton.

---- 5. 隨便在窗體的某地方放置一Timer控件。

---- 以上控件了需求設置的屬性值如下：

對象 屬性 設置
Text1 Text 空
Option1(0) Caption 在指定時候關機
（時候各式：00:00:00)
Index 0
Option1(1) Caption 延遲指定的時候關機
Index 0
Command1 Caption 確定
Timer1 Interval 15000（精確到1/4分鐘，
如要更精確可遞減該值）
Enabled False

漸增代碼Code如下：

達標模塊：
Option Explicit
Public Const EWX_SHUTDOWN = 1 '關閉操作系統

Declare Function ExitWindowsEx Lib
"user32" (ByVal uFlags As Long, ByVal
dwReserved As Long) As Long

窗體模塊：

Option Explicit
Dim txtTime '保存輸入時候
Dim nowTime '保存實時時候
Dim oldTime '保存開端定時時候

Private Sub Command1_Click()
oldTime = Time
If Not IsDate(Text1.Text) Then
'用IsData參數判斷輸入的時候各式
MsgBox "你所輸入的否則時候各式,請重試!", , "Wrong"
Else
txtTime = TimeValue(Text1.Text)
End If
Timer1.Enabled = True
'啟動定時器
Me.WindowState = 1
'最小化窗體
End Sub

Private Sub Timer1_Timer()
nowTime = Time
If Option1(0).Value Then
If DateDiff("s", nowTime, txtTime) < 0
Then '用DateDiff參數判斷也許到時候了
If Not ExitWindowsEx(EWX_SHUTDOWN, 0)
Then MsgBox ("無法關閉電腦")
End If
End If
Else
If DateDiff("s", nowTime, oldTime + txtTime) < 0
Then If Not ExitWindowsEx(EWX_SHUTDOWN, 0)
Then MsgBox ("無法關閉電腦")
End If
End If
End If
End Sub

---- 結束語：以上程式在VB5.0/6.0和Win98上調試經過。其實，此程式還可漸增一部份花樣，譬如，最后窗體否則最小化，而是調用Win32 API參數，把她的圖標放在操作系統任務欄里，即在右下角有聲音，時候等圖標的地方，那是另外唯一主題了。