Moinsen!
Heute zeig ich euch, wie man in VB6 ganz einfach dne omputer herunterfahren kann!
Der Code ist ziehmlich einfach!
Doch vorerst:
Erstelle ein gewöhnliches Standart-Exe Projekt!
Lasse alle Daten unverändert und füge einfach einen ganz normalen Button hinzu (Der Name sollte Command1 lauten, also so wie er beim erstellen ist)
Jetzt geh in den Code Bereich und gib ein:
Option Explicit
Dim i As Integer
Private Sub Command1_Click()
If Command1.Caption = "&Herunterfahren!" Then
Shell """shutdown"" -s -t 10"
Command1.Caption = "Herunterfahren Abbrechen!"
Else
Shell """shutdown"" -a"
Command1.Caption = "&Herunterfahren!"
End If
End Sub
Private Sub Form_Load()
Command1.Caption = "&Herunterfahren!"
Form1.Caption = "Herunterfahren {by Andy2309}"
Form1.Height = 1050
Form1.Width = 3015
End Sub
Und jetzt die Erklärung dazu:
Option Explicit
Dim i As Integer
Die Variable i wird als Variable für Zahlen intialisiert.
Private Sub Command1_Click()
If Command1.Caption = "&Herunterfahren!" Then
Shell """shutdown"" -s -t 10"
Command1.Caption = "Herunterfahren Abbrechen!"
Else
Shell """shutdown"" -a"
Command1.Caption = "&Herunterfahren!"
End If
End Sub
Wenn der Button gedrückt wird, und die Schaltfläche '&Herunterfahren!' lautet, dann wird in 10 Sekunden der Computer heruntergefahren!
Sollte dies nicht der Fall sein, so kann durch erneutes drücken des Knopfes das Herunterfahren abgebrochen werden!
Ich hoffe dieses Tutorial war hilfreich für euch!
mfg Andy