一個用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編程實現的計劃關機程序代碼](https://img.php.cn/upload/article/000/465/014/170515317630587.png)
關機的VB程式碼。
用vb做個介面如下
![VB編程實現的計劃關機程序代碼](https://img.php.cn/upload/article/000/465/014/170515317664171.jpg)
#兩個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中文網其他相關文章!