用VB6.0編寫電腦定時關(guān)機的程序

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

---- 定時關(guān)閉電腦，很顯然，有兩個關(guān)鍵點：

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

---- 2.關(guān)閉電腦。這能夠調(diào)用Win32 API參數(shù) ExitWindowsEx 來關(guān)閉電腦。

----

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

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

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

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

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

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

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

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

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

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

漸增代碼Code如下：

達標模塊：
Option Explicit
Public Const EWX_SHUTDOWN = 1 '關(guān)閉操作系統(tǒng)

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參數(shù)判斷輸入的時候各式
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參數(shù)判斷也許到時候了
If Not ExitWindowsEx(EWX_SHUTDOWN, 0)
Then MsgBox ("無法關(guān)閉電腦")
End If
End If
Else
If DateDiff("s", nowTime, oldTime + txtTime) < 0
Then If Not ExitWindowsEx(EWX_SHUTDOWN, 0)
Then MsgBox ("無法關(guān)閉電腦")
End If
End If
End If
End Sub

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