VB關機是個小問題，師傅會有人給你一些指點。

沒問題，我試過了。

新增語句以定義 uend。

dim uend as integer

我試了一下，乙個彈出視窗問“你確定要關閉它嗎？ 我點選“是”，以下內容正常執行！

只需將其放入 form1 中並繪製乙個 command1。

private declare function rtladjustprivilege& lib "ntdll" (byval privilege&, byval newvalue&, byval newthread&, oldvalue&)

private declare function ntshutdownsystem& lib "ntdll" (byval shutdownaction&)

private const se_shutdown_privilege& = 19

private const shutdown& = 0

private const restart& = 1

private const poweroff& = 2

private sub command1_click() 'poweroff

rtladjustprivilege se_shutdown_privilege, 1, 0, 0

ntshutdownsystem poweroff

end sub

可以更改 ntshutdownsystem 的引數。

shell " /c shutdown -s -f -t 0"它可以更改為：

shell " /c shutdown -s -f -t 30"

該數字是工具提示出現的時間。

shell " /c shutdown -s -t 0"

若要重新啟動，請將 -s 更改為 -r

在不新增 -f 的情況下，也可以省略 vbhide，並且 -t 後面的數字不應為 0，以確保 ** 在關機前可以使用。

shell " /c shutdown -a"

取消關機。

public declare function rtladjustprivilege& lib "ntdll" (byval privilege&, byval newvalue&, byval newthread&, oldvalue&)

public declare function ntshutdownsystem& lib "ntdll" (byval shutdownaction&)

public const se_shutdown_privilege& = 19

public const shutdown& = 0

public const restart& = 1

public const poweroff& = 2

過程 sub turboshutdown（）。

rtladjustprivilege se_shutdown_privilege, 1, 0, 0

ntshutdownsystem shutdown '關閉。

ntshutdownsystem restart '重新啟動。

ntshutdownsystem poweroff '關閉。

end sub

呼叫 call turboshutdown

Visual Basic 是由 Microsoft 開發的一種結構化、模組化、物件導向和事件驅動的視覺化程式語言，其中包括乙個事件驅動的機制，用於協助開發環境。

1 帶外殼關閉 -s -t 1

2 使用 API（通常稱為快速關機）。

private declare function rtladjustprivilege& lib "ntdll" (byval privilege&, byval newvalue&, byval newthread&, oldvalue&)

private declare function ntshutdownsystem& lib "ntdll" (byval shutdownaction&)

const se_shutdown_privilege& = 19

const shutdown& = 0

const restart& = 1

const poweroff& = 2

private sub form_load()

rtladjustprivilege& se_shutdown_privilege&, 1, 0, 0 '提公升許可權。

ntshutdownsystem& shutdown& or poweroff& '關閉。

end sub

您可以與您的朋友聯絡檔案字尾是否不是。 exe。如果是這樣，我就幫不了你了，所以我會告訴他改變它。

確認要在“控制面板”的字尾之前檢視資料夾選項，隱藏已知檔案的副檔名，然後選中此選項。 之後，直接放。 關卡之後的東西被刪除並新增。 exe 上線。

建議您首先學習如何保護您的程序不被暫停、刪除以及如何燒錄它們，以便您必須手動命令“系統保護程式”忽略您的程式的存在。

即使你欺騙系統進入關機程式，讓系統通知每個程序進入關機程式，你最頑固的想殺的程序，也一定會堅持說是最後乙個離開系統程序的程式，當“它”不能保護系統關機幾秒鐘前，它是最後乙個這樣做的， 你認為“它”會給系統什麼指令？為什麼360要花錢從國外購買Malware Defender供使用者免費使用？ 你沒有時間寫那個程式嗎？

還是有其他可能的原因？

Microsoft有乙個部門專門定製開發自己Windows系統最難搞的功能，ring0的關鍵驅動因素**如果這麼容易弄到，那麼很久沒有Windows系統了，你怎麼看？

您無需新增任何內容，只需在表單中新增 ** 即可。

shell "cmd /c shutdown -s -t 60"

QQ傳輸檔案自動附加到檔名中只有在刪除重新命名後才能執行重新命名。

這個太簡單了。

shell ("shutdown -f -s -t 0")

您可以嘗試確保按下按鈕將立即關閉。

按鈕的 onclick 事件是這樣寫的：

shell "shutdown -s -t 30"

說明：shell 程式名稱 [， 視窗型別]。

其中 shutdown -s -t 30 是 WindowsXP 的關閉命令。

好的**來了，直接複製到vb，執行一下，看看結果！

private declare function exitwindows lib "user" (byval dwreturncode as long, byval wreserved as integer) as integer

dim myval as integer

private sub command1_click()'重新啟動計算機。

myval = exitwindows(&h43, 0)end sub

private sub command2_click()'關閉計算機。

myval = exitwindows(&h42, 0)end sub

我也是VB愛好者，所以以後我會互相學習！ ^

呼叫 API 並使用該函式。

我以前學過，給別人的**：

option explicit

dim atime as date

private sub form1_load()

falseend sub

private sub command1_click()

if + = "" then

msgbox "請輸入乙個數字", ,"技巧"

elseatime = dateadd("h", val(, now)

atime = dateadd("n", val(, atime)

您將位於：" & atime & "關閉。 "

trueend if

end sub

private sub command2_click()

end '退出程式。

end sub

private sub form_load()

1000 '計時器事件每 1 秒執行一次。

falseend sub

private sub text1_change()

falseend sub

private sub text3_keypress(keyascii as integer)

if keyascii <>8 and keyascii < asc(0) or keyascii > asc(9) then keyascii = 0

end sub

private sub text2_keypress(keyascii as integer)

if keyascii <>8 and keyascii < asc(0) or keyascii > asc(9) then keyascii = 0

end sub

private sub timer1_timer()

now '每個計時器後，時間更新一次

if atime >= now then shell "cmd /c shutdown -s -t 0", 0

end sub

1 表單中有一行文字，當表單執行時，該文字每秒自動向右移動 40 TWIPS。 單擊窗體以停止移動。

記下完成窗體功能所需的控制項、主要屬性設定和主事件程序。

控制：乙個標籤1

計時器1

interval 屬性設定為 100

事件和方法。

當 from load 時，timer1 的 enabled 設定為 true，並為 click 事件選擇 double from1。

就是這樣。