vb自動關機帶提示符和超時執行

2021-09-16 18:08:50 字數 680 閱讀 3201

vb自動關機帶提示符和超時執行

dim wsh , btncode

set wsh = wscript.createobject("wscript.shell") 

btncode = wsh.popup("close pc?", 120, "close", 4 + 32)

select case btncode

case 6 wsh.run "shutdown -s -t 10"

case 7 wscript.echo "cancel"

case -1 wsh.run "shutdown -s -t 10"

end select

120代表超時時間,單位秒

popup說明

值 說明 

0 顯示「確定」按鈕。 

1 顯示「確定」和「取消」按鈕。 

2 顯示「放棄」、「重試」和「忽略」按鈕。 

3 顯示「是」、「否」和「取消」按鈕。 

4 顯示「是」和「否」按鈕。 

5 顯示「重試」和「取消」按鈕。

圖示型別

值 說明 

16 顯示「停止標記」圖示。 

32 顯示「問號」圖示。 

48 顯示「感嘆號」圖示。 

64 顯示「資訊標記」圖示。

也可以考慮用megbox 但是不帶超時

參考

自動關機bat

10s後自動關機的bat echo off echo 哈哈小樣中招了吧 shutdown s t 12 ping 127.0.0.1 n 2 w 1000 nul echo 系統正在關機 10 ping 127.0.0.1 n 2 w 1000 nul echo 系統正在關機 9 ping 127....

WinXP 自動關機

如果你想出門,但電腦又正在進行工作,這時就要用到自動關機。大多數實現自動關機的方法都是使用一些第三方軟體,這樣不僅麻煩,而且為實現這個小功能而專門動用乙個軟體,顯的小題大做了!其實windows xp windows 2000也可以 自身就具備定時關機的功能,下面我們就來看看如何實現windows ...

系統自動關機

問題描述 公司一台伺服器,安裝的windows server 2012,有一天每隔兩個小時關機 解決情況 首先開啟事件檢視器 eventvwr 篩選事件id 6006 關機id 來檢視上次關機的事件,然後查詢到上次事件的關機的情況,是由乙個程序wlms.exe導致系統關機,經查詢,這個程序是微軟授權...