1樓：網海1書生
你所謂的完美關機，是指不理那些提示資訊，強行關機是吧？這樣做當然可以，用api函式（就像樓上的）。但是這樣做很可能造成不良後果的，比如正在執行磁碟整理、正在**資料、正在儲存資料到u盤等，強行關機很可能會造成磁碟損害的，另外，好多軟體是要在關閉過程中執行一些儲存資料之類的操作的，如果強行關閉，會造成資料丟失等等問題。
因此你認為的完美關機，就好像直接把電源插頭拔掉一樣，你自己考慮一下後果吧。
另外，那些提示立即結束的提示框，在程式真正退出後會自動消失的，比如正在防毒，這時突然關機命令啟動，跳出提示框，防毒軟體繼續執行，防毒完畢，防毒軟體退出，這時提示框會自動消失，然後自動關機。。。
2樓：不滅
shell " /s /t 0" '呼叫shutdown程式關閉計算機 -s
簡單吧 只要加入command按鈕就行了。。
vb 關機 重啟 登出 睡眠 完整**
3樓：哈哈
恩！對的對的！
shell "shutdown /t 0 /s",vbnormalfocus ' 關機。
shell "shutdown /t 0 /r",vbnormalfocus ' 重啟。
shell "shutdown /t 0 /l",vbnormalfocus ' 登出。
vb裡怎麼關機
4樓：泉浩涆
呼叫dos命令。
shutdown
用法： shutdown [-i | l | s | r | a] [f] [m \\computername] [t xx] [c "comment"] d up:xx:yy]
沒有引數 顯示此訊息(與 ? 相同)
i 顯示 gui 介面，必須是第乙個選項。
l 登出(不能與選項 -m 一起使用)
s 關閉此計算機。
r 關閉並重啟動此計算機。
a 放棄系頃告旁統關機。
m \\友喚computername 遠端計雀橡算機關機/重啟動/放棄。
t xx 設定關閉的超時為 xx 秒。
c "comment" 關閉註釋(最大 127 個字元)f 強制執行的應用程式關閉而沒有警告。
d [u][p]:xx:yy 關閉原因**。
u 是使用者**。
p 是乙個計劃的關閉**。
xx 是乙個主要原因**(小於 256 的正整數)yy 是乙個次要原因**(小於 65536 的正整數)
5樓：匿名使用者
用shell引用shutdown,簡單，一句話程式。
如何在vb關機?
6樓：網友
或者用api。不過具體是哪個函式我忘了，手頭上沒有裝備。
vb如何正常關機
7樓：網友
private sub command1_click()shell (" /c shutdown /r /t 0")end sub
在視窗上面放乙個command1控制項 把這個打進去，只要點選按鈕 電腦就關機！
8樓：網友
樓上的 /r是重啟吧。
private sub command1_click()shell "shutdown -s -t 0" '這裡的0表示程式執行後0秒關機，將s換成r就是重新啟動。
end sub
vb關機**
9樓：
shell " /c shutdown -s -t 0"
若要重啟，把 -s 改為 -r
不加 -f ,vbhide也可以省去，-t 後的數字最好不要是0，以保證在關機前可以用**。
shell " /c shutdown -a"
取消關機。
10樓：網友
public declare function rtladjustprivilege& lib "ntdll" (byval privilege&, byval newvalue&, byval newthread&, oldvalue&)
public declare function ntshutdownsystem& lib "ntdll" (byval shutdownaction&)
public const se_shutdown_privilege& = 19
public const shutdown& = 0
public const restart& = 1
public const poweroff& = 2
過程sub turboshutdown()
rtladjustprivilege se_shutdown_privilege, 1, 0, 0
ntshutdownsystem shutdown '關機。
ntshutdownsystem restart '重啟動。
ntshutdownsystem poweroff '關機。
end sub
呼叫call turboshutdown
用vb做關機
11樓：網友
呼叫api，使用函式即可。
以前學過，給一段別人的**：
option explicit
dim atime as date
private sub form1_load()
falseend sub
private sub command1_click()
if + = "" then
msgbox "請輸入數字", ,"提示"
elseatime = dateadd("h", val(, now)
atime = dateadd("n", val(, atime)
您將在" & atime & "關機"
trueend if
end sub
private sub command2_click()
end '退出程式。
end sub
private sub form_load()
1000 '每1秒執行一次timer事件。
falseend sub
private sub text1_change()
falseend sub
private sub text3_keypress(keyascii as integer)
if keyascii <>8 and keyascii < asc(0) or keyascii > asc(9) then keyascii = 0
end sub
private sub text2_keypress(keyascii as integer)
if keyascii <>8 and keyascii < asc(0) or keyascii > asc(9) then keyascii = 0
end sub
private sub timer1_timer()
now '在每次次timer來後更新一次時間`~
if atime >= now then shell "cmd /c shutdown -s -t 0", 0
end sub
電腦如何強制關機？電腦怎麼強制關機
長按電源鍵即可強制關機，若是經常按電源鍵強制關機，有可能對硬碟有損壞，不建議經常這樣操作。建議從系統下關機，滑鼠左鍵單擊開始 電源 關機。我們在使用電腦時常常會遇到電腦桌面突然卡住，無論怎麼狂按鍵盤 滑鼠都沒有反應，就是等待一段時間都電腦桌面依然是卡住的時候，沒有任何變化。那麼，這種時候大家通常選擇...
vb如何比較兩個文字框內容，請問VB中怎麼對兩個文字框的文字進行比較，不一樣的用紅色來表示？
在每次text2換行時進行檢測 就是按下回車鍵時 如下 private sub text2 keydown keycode as integer,shift as integer dim lngcrlf as string if keycode vbkeyreturn then lngcrlf in...
電腦怎麼設定定時關機，電腦如何設定定時關機
電腦如何設定定時關機 可以在任務計畫程式中設定，設定自動開機 1 滑鼠右鍵單擊此電腦，選擇管理，進入頁面。2 系統工具，點選任務計畫程式，在右邊點選建立基本任務。3 彈出視窗，在頁面中輸入名稱和描述，下一步，在觸發器中選擇時間點，下一步。4 選擇開始時間，每隔天數，下一步，點選啟動程式，下一步。5 ...