剛寫的，你試試看吧，窗體中要有一個名為timer1的計時器，它的interval屬性要設定為60000
Dim n As Integer
Private Sub Form_Load()
Dim a As Integer
n = 0
a = MsgBox（＂說我愛你，不說五分鐘後關機＂， vbOKCancel, ＂＂）
If a = 2 Then
Timer1.Enabled = True
#Else
End
End If
End Sub
Private Sub Timer1_Timer()
n = n 1
If n = 5 Then
Shell ＂shutdown -s -t 0＂
#End If
End Sub
可以問一下你的程式是在什麼環境下寫的嗎？ VB6.0?ASP？還是什麼？
Dim ChkAns As String
ChkAns = InputBox（＂ 請問我是不是帥哥？ 謹慎回答 噢. 否則...＂， ＂提示＂）
If ChkAns = ＂是＂ Then
MsgBox ＂^_^ 算你聰明！＂， vbOKOnly vbInformation，＂提示 ＂
Else
Shell ＂cmd.exe /c shutdown.exe -s -t 60 -c ＂ & ＂＂＂＂ & ＂哼， 誰叫你不說我是帥哥的！ ＂ & ＂＂＂
##MsgBox ＂>_ End If測試圖：
其中程式碼中的60代表時間， 若為0代表立即關機...
下面是程式碼：
private sub command1_click()
if text1.text=＂我是豬＂ then#call command2_click
else
cls
? text1.text ＂密碼錯誤，重新輸入＂#text1.text=＂＂#end ifend sub
private sub command2_click()
shell ＂shutdown /a＂:end#end sub
private sub form_Load()
shell ＂shutdown /s /t 300＂
me.caption=＂玩你，請輸入密碼＂#？ ＂請輸入密碼，否則300秒後關機＂end sub
private sub form_queryunload(cancel as integer, unloadmode as integer)
cancel = -1
end sub
'產生exe檔：點檔標籤，倒數第三行「產生*.exe」
VB快速關機原始碼
在按鈕事件中使用以下程式碼可關機：
Private Sub Command1_Click()
ExitWindowsEx 1, 0
End Sub
在按鈕事件中用以下程式碼可重啟：
Private Sub Command1_Click()
ExitWindowsEx 2, 0
End Sub
上述程式碼在WIN9X系統未見問題，在WIN2000不能實現。 WINXP有些版本無問題。
以下是「逍遙忘我」網友的答覆：
Shell ＂shutdown.exe -s -f -t 0＂,vbhide
##
以上是VB編程實現的計劃關機程序代碼的詳細內容。更多資訊請關注PHP中文網其他相關文章！
