1樓：匿名使用者
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 一起使用)
-s 關閉此計算機
-r 關閉並重啟動此計算機
-a 放棄系統關機
-m \\computername 遠端計算機關機/重啟動/放棄
-t xx 設定關閉的超時為 xx 秒
-c "comment" 關閉註釋(最大 127 個字元)
-f 強制執行的應用程式關閉而沒有警告
-d [u][p]:xx:yy 關閉原因**
u 是使用者**
p 是一個計劃的關閉**
xx 是一個主要原因**(小於 256 的正整數)
yy 是一個次要原因**(小於 65536 的正整數)
2樓：
shell "cmd /c shutdown -u -t 1"
呼叫cmd實現
是1秒後關機
v = msgbox("確認要關機嗎？", vbyesno + vbquestion, "???") '彈出是和否的對話方塊
if v = vbyes then '如果單擊是if glngwhichwindows32 = mlngwindowsnt then '外部檢視·如相等
adjusttoken '外部過程或函式
end if
shell "cmd /c shutdown -u -t 1" '在呼叫cmd實現1秒後關機
end if
用VB編寫自動關機程式，用VB編寫一個自動關機程式
option explicit private declare function getlastinputinfo lib user32 plii as lastinputinfo as boolean private declare function gettickcount lib kernel...
如何用VB編寫10分鐘後自動關機的程式
先建一個.txt的檔案,開啟輸入下面 on error resume next dim wshshella set wshshella wscript.createobject wscript.shell wshshella.run cmd.exe c shutdown r t 60 c 說我愛你，...
vb編寫關於階乘的程式，vb編寫一個關於階乘的程式，
來不及寫，教你怎麼做吧 先把文字框的讀取轉存成整數 對這個整數用if判斷 不滿足條件用msgbox提示 滿足條件的話，呼叫函式，引數就是那個整數，返回值就是結果。剛給你寫的 希望對你有幫助 給個滿意回答吧private sub command1 click dim dat1 as variant d...