VB師傅，請進來，我急需乙個用VB程式設計的關機程式！

**：在命令下1

shell " /c shutdown -s -f -t 0"，** 在 0command2 下。

unload me

1 所有 glngwhichwindows32 = mlngwindowsnt 都是用來判斷系統平台，是不是 NT 系統。

NT系統使用AdjustToken進行許可權驗證。

shutdown 使用 shutdown 引數 ？

用法：shutdown [-i |.] l | s | r | a] [f] [m \\computername] [t xx] [c "co

mment"] [d up:xx:yy]

沒有引數可以顯示此訊息（帶 ？.）相同）

i 顯示 GUI 介面，該介面必須是第乙個選項。

l 登出（不能與選項 -m 一起使用）。

關閉此計算機。

r 關閉並重新啟動此計算機。

a 放棄系統關閉。

m computername 遠端計算機關機 重新啟動 放棄。

關閉 t xx 設定的超時時間為 xx 秒。

c "comment"關閉評論（最多 127 個字元）。

f 強制正在執行的應用程式關閉，恕不另行警告。

d [u][p]：xx：yy 關閉原因**。

u 是使用者**。

p 是計畫關閉**。

xx 是主要原因**（正整數小於 256）。

yy 是次要原因**（小於 65536 的正整數）。

shell "cmd /c shutdown -u -t 1"

呼叫 cmd 實現。

它在 1 秒後關閉。

v = msgbox("您確定要關閉它嗎？ ", vbyesno + vbquestion, "???") '將彈出“是”和“否”對話方塊。

if v = vbyes then '如果單擊是 if glngwhichwindows32 = mlngwindowsnt 那麼'外部檢視，如相等。

adjusttoken '外部過程或功能。

end if

shell "cmd /c shutdown -u -t 1" '呼叫 cmd 後 1 秒後關閉。

end if

你不需要 API，你只需要乙個 shell。

private sub form_laod()shell("shutdown -s -t 300")'300 秒關機結束副

呵呵，這個程式也可以程式設計，我學了這麼多年的VB，是用來做管理系統和**的，呵呵，我還沒真正做過作業系統工具呢。

首先，宣告 API 函式 ExitWindowEx：

declare function exitwindowex lib "user32"(byval uflags as long,byval swreserved as long)as long

關機是 exitwindowex（ewx shutdown，0），重啟是 exitwindowex（ewx reboot，0）示例：

private sub shut_click()dim abc as long

unload me

abc = exitwindowex(ewx_shutdown,0)end sub

if msgbox("您確定要關閉它嗎？ ", vbokcancel + vbquestion, "系統資訊") = vbok then

shell "cmd /c shutdown -u -t 1", vbnormalfocus

end if

簡單：

在關機內部，它寫著：shell"cmd /c shutdown /s /t 0", vbhide

重新啟動它並編寫 ：shell"cmd /c shutdown /r /t 0", vbhide

登出內寫道：shell"cmd /c shutdown /l /t 0", vbhide

你可以呼叫 shutdown 命令，首先開啟記事本的三個 bat 檔案，包括“shutdown”、“restart”和“logout”，例如：儲存如下：

在記事本中按如下方式書寫 **（在三個記事本中書寫，然後另存為）：

登出：shutdown -l

關機：shutdown -s

重啟：shutdown -r

上面，使用時直接用shell呼叫，比如shutdown命令，**是：

private sub command1_click()shell"d:\"'寫下存在哪個路徑。

end sub

這需要使用api函式，建議閱讀類似的教程，或者留言，我會把我之前做的副本發給你。