Vb定時關(guān)機看到網(wǎng)上有很多關(guān)于定時關(guān)機的代碼或例子，對于初學(xué)者來說，面對許多的聲名或變量，卻是兩眼一抹黑，什么也看不懂，其實只調(diào)用系統(tǒng)自帶的關(guān)機命令就可以實現(xiàn)Setg=CreateObject("WScript.Shell")g.Run"shutdown/f/s/t0"在這里跟大家分享，高手請路過第一步：打開vb編程器，新建一個標(biāo)準(zhǔn)EXE工程然后在窗體上加入一個時間控件，兩個按鈕，兩個輸入框，還有一個標(biāo)簽下面設(shè)置控件的屬性，為了方便，我將控件名稱和顯示都改成了中文時間控件：點擊窗體上的時間控件，在右側(cè)的屬性欄中設(shè)置。Vb支持中文名稱將兩個按鈕分別設(shè)為退出和啟動將兩個輸入框名稱分別設(shè)為小時和分鐘，這是用來輸入要定時的時間的輸入框的文本屬性都要設(shè)為空：如圖：還有個標(biāo)簽屬性，名稱設(shè)為當(dāng)前時間，顯示設(shè)為空下面開始騙寫代碼了：為了簡單易懂，變量中沒有加入變量聲明，懂的自已寫上即可先騙寫兩個按鈕的代碼，雙擊退出按鈕，就會彈出代碼編寫框，將兩個按鈕代碼寫上，代碼如下：然后回到窗體，雙擊定時器控件開始編下如下代碼：PrivateSub定時器_Timer()NowTime=Time'獲取系統(tǒng)當(dāng)前的時間DinTime=小時.Text&":"&分鐘.Text'獲取輸入框中的時間，'因為時間格式是hh:mm,中間有時間分隔符：'所以要用連接符&將冒號加入形成時間格式IfHour(NowTime)=Hour(DinTime)AndMinute(NowTime)=Minute(DinTime)ThenSetg=CreateObject("WScript.Shell")'調(diào)用系統(tǒng)關(guān)機命令g.Run"shutdown/f/s/t0"'執(zhí)行關(guān)機EndIf當(dāng)前時間.Caption=NowTime‘標(biāo)簽用來顯示當(dāng)前時間，提示程序正在運行狀態(tài)EndSub如下圖：這是為了方便大家看而將系統(tǒng)時間賦值給一個變量,也可以寫成這樣：PrivateSub定時器_Timer()DinTime=小時.Text&":"&分鐘.Text IfHour(Time)=Hour(DinTime)AndMinute(Time)=Minute(DinTime)ThenSetg=CreateObject("WScript.Shell")g.Run"shutdown/f/s/t0"EndIf當(dāng)前時間.Caption=TimeEndSubShutdown后面參數(shù)/f/s/t0之前一定要有空格，否則不能執(zhí)行當(dāng)然輸入框也可以用一個來獲得定時的時間，只是中間要有冒號，如：12：20到此，一個最簡易的定時器就完成了，運行，然后在輸入框中設(shè)定好時間，點擊啟動就開始工作了，從當(dāng)前時間標(biāo)簽上就可以看到定時器正在運行：當(dāng)然，一個真正的程序這樣還是不行的，如果當(dāng)輸入框中沒有任何輸入或是為空的時候，運行時就會出錯，如果輸入字母或是字符也會出錯，還有當(dāng)小時輸入框的輸入超過24小時，或是分鐘輸入超過60分鐘的時候，時間判斷永遠(yuǎn)都無法成立，就無法執(zhí)行關(guān)機所以要在代碼中加入邏輯判斷：PrivateSub定時器_Timer()DinTime=小時.Text&":"&分鐘.TextIf小時.Text=""Or分鐘.Text=""Or小時.Text>23Or分鐘.Text>59ThenMsgBox"時間設(shè)置錯誤！不能為空或是超出正常時間范圍！"‘提示錯誤定時器.Enabled=False‘判斷錯誤成立后停止定時器ElseIfHour(Time)=Hour(DinTime)AndMinute(Time)=Minute(DinTime)ThenSetg=CreateObject("WScript.Shell")g.Run"shutdown/f/s/t0"EndIfEndIf當(dāng)前時間.Caption=TimeEndSub如下圖：一個完整的vb定時器就完成了，生成EXE就可以使用了，只是界面有點粗糙，可以多增加一些控件或是圖片進(jìn)去，使界面更好看，下面是本人制作的：代碼就懶得寫出來