Geplanter Shutdown-Programmcode, implementiert durch VB-Programmierung

Ein mit VB programmierter Shutdown-Programmcode!

Ich habe es gerade geschrieben, probieren Sie es aus. Das Formular sollte einen Timer mit dem Namen timer1 enthalten und sein Intervallattribut sollte auf 60000 gesetzt sein

Dim n As Integer

Private Sub Form_Load()

Dim a As Integer

n = 0

a = MsgBox („Sag, dass ich dich liebe, aber schalte nach fünf Minuten aus, wenn du es nicht sagst“, vbOKCancel, „＂“)

Wenn a = 2, dann

Timer1.Enabled = True

Sonst

Ende

Ende wenn

End Sub

Private Sub Timer1_Timer()

n = n + 1

Wenn n = 5, dann

Shell ＂shutdown -s -t 0＂

Ende wenn

End Sub

Darf ich fragen, in welcher Umgebung Ihr Programm geschrieben wurde? VB6.0?ASP? dann was?

Ich möchte ein einfaches Shutdown-Programm in VB erstellen. Kann mir ein Experte helfen, die Details aufzuschreiben?

ChkAns als String dimmen

ChkAns = InputBox („Entschuldigung, bin ich ein gutaussehender Kerl? Antworten Sie vorsichtig. Sonst ...“, „Prompt“)

Wenn ChkAns = „Ja“, dann

MsgBox „^_^ Du bist schlau!“, vbOKOnly + vbInformation, „Tips“

Sonst

Shell ＂cmd.exe /c Shutdown.exe -s -t 60 -c ＂ & ＂＂＂ & ＂Humph, wer hat dir gesagt, dass du mich nicht einen gutaussehenden Kerl nennen sollst!＂ & ＂＂＂"＂, vbHide

MsgBox „>_

Ende wenn

Testbild:

Die 60 im Code stellt die Zeit dar. Wenn sie 0 ist, bedeutet dies, dass sie sofort heruntergefahren wird ...

VB-Code zum Herunterfahren.

Verwenden Sie vb, um eine Schnittstelle wie folgt zu erstellen

Zwei Befehle und ein Textfeld

Hier ist der Code:

privater Unterbefehl1_click()

if text1.text=＂Ich bin ein Schwein＂ dann

Befehl aufrufen2_klick

sonst

cls

? text1.text + „Falsches Passwort, erneut eingeben“

text1.text=＂＂

end ifend sub

privater Unterbefehl2_click()

Shell „shutdown /a“:end

Untertitel beenden

privates Unterformular_Load()

Shell ＂Shutdown /s /t 300＂

me.caption=＂Um mit dir zu spielen, gib bitte das Passwort ein＂

? „Bitte geben Sie das Passwort ein, sonst wird es in 300 Sekunden heruntergefahren“ Ende Sub

private sub form_queryunload(Abbrechen als Ganzzahl, Entlademodus als Ganzzahl)

Abbrechen = -1

Untertitel beenden

'Exe-Datei generieren: Klicken Sie auf die Dateibezeichnung, die dritte Zeile von unten „*.exe generieren“

VB-Quellcode für schnelles Herunterfahren

Deklarieren Sie die WIN-API im öffentlichen Standardmodul:

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

Verwenden Sie zum Herunterfahren den folgenden Code im Schaltflächenereignis:

Private Sub Command1_Click()

ExitWindowsEx 1, 0

End Sub

Verwenden Sie den folgenden Code im Schaltflächenereignis, um neu zu starten:

Private Sub Command1_Click()

ExitWindowsEx 2, 0

End Sub

Der obige Code hat im WIN9X-System keine Probleme, kann aber nicht in WIN2000 implementiert werden. Einige Versionen von WINXP haben kein Problem.

Das Folgende ist die Antwort des Internetnutzers „Xiaoyao Forget Me“:

Shell „shutdown.exe -s -f -t 0“,vbhide

Das obige ist der detaillierte Inhalt vonGeplanter Shutdown-Programmcode, implementiert durch VB-Programmierung. Für weitere Informationen folgen Sie bitte anderen verwandten Artikeln auf der PHP chinesischen Website!