如何使用VB編寫乙個以10秒為倒計時，倒數到0並關機的自動關機程式

shell ("shutdown -s -t 360") '這意味著它將在 360 秒後關閉。

注意：-s 是關閉，-l 是登出，-r 是重新啟動。

private sub command1_click()if = "開始使用" then

truetext1 = val(text1) *60= "停"

else false

開始使用"end if

end sub

private sub timer1_timer()text1 = text1 - 1

if text1 = "0"then = false：呼叫關閉。

end sub

sub 關機 （）。

shell " /c shutdown -s -t 0"

msgbox "關閉"

end sub

- - 樓上太麻煩了 private sub command1 click（）。

a = str(val( *60)

shell "shutdown -s -t" + aend subprivate sub command2_click()

shell "shutdown -a"

end sub

剛剛嘗試過絕對

例如，如果使用 xp，1 小時後關機，然後開始執行 shutdown -s -t 36003600 會關機多少秒，1 小時是 3600,2 小時是 7200，以此類推 Vista 無法使用。

我在XP問題上嘗試過。

這樣改變它。

dim i as long

private sub command1_click()i = 20

true iend sub

private sub form_load()= false

end sub

private sub timer1_timer()= i

if i > 0 then

i = i - 1

else false

msgbox "是時候了！ "

end if

end sub

複製 ** 並檢視。 **看不清。

它一定有問題。

這個應用程式非常簡單。

為了完全滿足您的要求，您需要原始檔來提供位址。

建立乙個新窗體 from1 和乙個按鈕命令1

新增乙個 timer1 控制項和兩個標籤（倒計時 x 小時 x 分鐘）（以顯示當前時間）。

小時）分鐘）文字3（秒）。

..張志琛：.**。

dim t$

private sub command1_click()

t 是裝置設定為關閉的時間。

t = text1 & ":" & text2 & ":" & text3

啟動定時器控制並開始倒計時。

trueend sub

private sub form_load()

將計時器控制項的時間間隔設定為 1 秒。

程式啟動時，計時器不可用。

falseend sub

private sub timer1_timer()

倒計時，設定時間和當前時間之間的差值。

timelabel = format(cdate(t) -time, "hh:mm:ss")

顯示當前系統時間。

nowlabel = time

如果時差為0，將立即關閉！！

if timelabel = "00:00:00" then shell "shutdown -s -t 0"

end sub

開始執行cmd彈窗 在上面輸入命令，無需程式設計。

例如，在 11：55 關機 -s 表示計算機將在 11：55 關機，並在一分鐘前傳送提醒。 將 S 更改為 a 以終止計畫任務。

在窗體 label1 上建立乙個標籤控制項，並在 timer 控制項 timer1dim 秒上建立乙個 max

private sub form_load()= 1000

sec = 600 '這裡修改為您需要的倒計時時間 label1 = sec &"幾秒鐘後關機"

end sub

private sub timer1_timer()sec = sec - 1

label1 = sec & "幾秒鐘後關機"

if sec <= 0 then

shell "shutdown -s -f -t 0"

end if

end sub