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 ＂ & ＂＂＂＂ & ＂哼， 誰叫你不說我是帥哥的！ ＂ & ＂＂＂

##MsgBox ＂>_ 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編程實現的計劃關機程序代碼的詳細內容。更多資訊請關注PHP中文網其他相關文章！