Planned shutdown program code implemented by VB programming

A shutdown program code programmed with VB!

I just wrote it, give it a try. There must be a timer named timer1 in the form, and its interval attribute must be set to 60000

Dim n As Integer

Private Sub Form_Load()

Dim a As Integer

n = 0

a = MsgBox ("Say I love you, but shut down after five minutes if you don't say it", 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

Can I ask in what environment your program was written? VB6.0?ASP? then what?

VB makes a simple and annoying shutdown program. Can any expert help me write down the details?

Dim ChkAns As String

ChkAns = InputBox ("Excuse me, am I a handsome guy? Answer carefully. Otherwise...", "Prompt")

If ChkAns = "Yes" Then

MsgBox "^_^ You are smart!", vbOKOnly vbInformation, "Prompt"

Else

Shell ＂cmd.exe /c shutdown.exe -s -t 60 -c ＂ & ＂＂＂＂ & ＂Humph, who told you not to call me a handsome guy!＂ & ＂＂＂＂, vbHide

MsgBox ">_

End If

Test picture:

The 60 in the code represents the time. If it is 0, it means shutting down immediately...

VB code for shutdown.

Use vb to make an interface as follows

Two commands, one textbox

The following is the code:

private sub command1_click()

if text1.text=＂I am a pig＂ then

call command2_click

else

cls

? text1.text "Wrong password, re-enter"

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="To play with you, please enter your password"

? "Please enter the password, otherwise it will shut down in 300 seconds" end sub

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

cancel = -1

end sub

'Generate exe file: Click the file label, and the third line from the bottom "Generate *.exe"

VB quick shutdown source code

Declare WIN API in the public standard module:

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

Use the following code in the button event to shut down:

Private Sub Command1_Click()

ExitWindowsEx 1, 0

End Sub

Use the following code in the button event to restart:

Private Sub Command1_Click()

ExitWindowsEx 2, 0

End Sub

The above code has no problems in WIN9X system, but cannot be implemented in WIN2000. Some versions of WINXP have no problem.

The following is the reply from netizens of "Xiaoyao Forgotten":

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

The above is the detailed content of Planned shutdown program code implemented by VB programming. For more information, please follow other related articles on the PHP Chinese website!