如何使用 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

shutdown -s -t 600 並將字尾更改為".bat"沒關係，執行，它會自動計時，10分鐘後關機。 有關如何使用BAT檔案的詳細資訊，請參閱以下頁面。

我正在使用XP的系統。

您可以直接在 vb 下使用 shell 命令，詳情可以在 Internet 上找到以下內容。 它可以新增到按鈕中。

shell "shutdown -s -t 0"

染你的頭髮啦啦

1. VB 中的 shell 函式可以執行可執行檔案。

2. Shell語法：shell（pathname[，windowstyle]）。

3.使用shell呼叫控制台命令shutdown，實現強制關機。

4.示例：（無）防止菜鳥抄襲和作惡。

我不會那樣做。

定時關機的電腦，我用了定時關機3000

定時關機3000具有11個執行條件，可以執行14個任務，包括計算機的定時關機。

執行的 14 種任務型別是; 計算機關機、計算機重新啟動、當前使用者的計算機登出、系統鎖定、計算機睡眠、提醒、關閉顯示器、計算機待機、執行軟體、開啟檔案、開啟**、關閉軟體、系統垃圾清理以及斷開與網路的連線。 您可以將任務設定為自動啟動並同時執行多個任務。

只有當卡巴斯基安裝在計算機上時，關機指令碼才會攔截掉落 o （ o 哈哈 上次別人玩我時，我被我們的卡巴斯基攔截了。

在 vb 中新增兩個標籤和乙個計時器，倒計時到 10 秒，如下所示： private sub timer1 timer（）if <>str（timer） then= time

end if

end sub

private sub form_load()= 1000

end sub

private sub label2_change()= - 1

if = 0 then

shell " /c shutdown -s -t 0"

end if

end sub

這很簡單。 建立乙個程式以使可見的 false。 這樣，其他人將無法看到程式啟動。

之後，建立乙個計時器控制項並將間隔設定為隨機數，如果是 30 秒，則為 30000。

之後，將 ** 新增到計時器中。

shell "shutdown -s -t 0"

這是 DOS 的 shutdown 命令。 在那之後，就結束了，我不會再問了。

private sub form_load()= true '可用。

1000 '它每秒觸發一次。

end sub

private sub timer1_timer()static n% '靜態變數。

n = n + 1 '1 秒加 1

30 - n) &"秒" '剩餘時間，如果 n > = 30，則'30 秒後關閉 shell"shutdown -s -t 0" '關閉'shell "shutdown -r -t 0" '重新啟動'shell "shutdown -l -t 0" '如果出現以下情況，請登出結束

end sub

'舉兩個例子，你可以參考它們。

指定關閉時間，並指定時間。

option explicit

private sub command1_click()

dim strtime as string

dim astrtime = "at " & " shutdown -s -t 100"

strtime = "at " & " shutdown -s -t 0"

a = shell(strtime, vbhide)

end sub

text1 需要輸入時間的格式，例如 12：30 不能是任何其他格式，否則會出現錯誤。

2 private sub command1_click()

單擊 Command1 後會出現提示，10 秒後會自動關機。

dim aa = shell("shutdown -s -t 30")

end sub

沒必要這麼麻煩。

shutdown -s -t cmd 以下 30VB 可以用 shell 呼叫。

或者使用 API 在帶有計時器控制項的倒計時中寫入關閉 **。

我寫過乙個類似的程式，但它並沒有關閉，而是登出。