VB編程實現的計劃關機程序代碼

一個用VB編程的關機程序代碼！

剛寫的，你試一下吧，窗體中要有一個名爲timer1的計時器，它的interval屬性要設置爲60000

Dim n As Integer

Private Sub Form_Load()

Dim a As Integer

n = 0

a = MsgBox（＂說我愛你，不說五分鐘之後關機＂， vbOKCancel, ＂＂）

If a = 2 Then

Timer1.Enabled = True

Else

End

End If

End Sub

Private Sub Timer1_Timer()

n = n + 1

If n = 5 Then

Shell ＂shutdown -s -t 0＂

End If

End Sub

能問一下你的程序是在什麼環境下寫的嗎？VB6.0?ASP？還是什麼？

VB做一個簡單整人的關機程序哪位高手幫一下寫具體點也不要

Dim ChkAns As String

ChkAns = InputBox（＂請問我是不是帥哥？ 謹慎回答噢. 否則...＂， ＂提示＂）

If ChkAns = ＂是＂ Then

MsgBox ＂^_^ 算你聰明！＂， vbOKOnly + vbInformation， ＂提示＂

Else

Shell ＂cmd.exe /c shutdown.exe -s -t 60 -c ＂ & ＂＂＂＂ &amp； ＂哼， 誰叫你不說我是帥哥的！＂ & ＂＂＂＂, vbHide

MsgBox ＂>_&lt； 你完蛋了！＂， vbOKOnly + vbExclamation， ＂提示＂

End If

測試圖：

其中代碼中的60代表時間， 如果爲0代表立即關機...

關機的VB代碼。

用vb做個界面如下

兩個command，一個textbox

下面是代碼：

private sub command1_click()

if text1.text=＂我是豬＂ then

call command2_click

else

cls

? text1.text +＂密碼錯誤，重新輸入＂

text1.text=＂＂

end ifend sub

private sub command2_click()

shell ＂shutdown /a＂:end

end sub

private sub form_Load()

shell ＂shutdown /s /t 300＂

me.caption=＂玩你，請輸入密碼＂

？＂請輸入密碼，否則300秒後關機＂end sub

private sub form_queryunload(cancel as integer, unloadmode as integer)

cancel = -1

end sub

'生成exe文件：點文件標籤，倒數第三行“生成*.exe”

VB快速關機源代碼

在公共標準模塊中聲明WIN API:

Public Declare Function ExitWindowsEx Lib ＂user32＂ (ByVal uFlags As Long, ByVal dwReserved As Long) As Long

在按鈕事件中用如下代碼可關機：

Private Sub Command1_Click()

ExitWindowsEx 1, 0

End Sub

在按鈕事件中用如下代碼可重啓：

Private Sub Command1_Click()

ExitWindowsEx 2, 0

End Sub

上述代碼在WIN9X系統未見問題，在WIN2000不能實現。WINXP有些版本無問題。

以下是“逍遙忘我”網友的答覆：

Shell ＂shutdown.exe -s -f -t 0＂,vbhide

以上就是VB編程實現的計劃關機程序代碼的詳細內容，更多請關注本站其它相關文章！