Autopoff shutdown

Soyez le premier à donner votre avis sur cette source.

Snippet vu 2 646 fois - Téléchargée 37 fois

Contenu du snippet

Un petit prog bien pratique pour s'endormir avec la zique du PC ou sur un film.
Il éteint tout seul le PC Grace à la fct ExitWindows après un temps reglé par l'utilisateur. Trop pratique :)

Source / Exemple :


'Controles à placer sur la feuille:
'___Type_ __|_Nom_____
' Bouton      | BPStart
'                 | BPCancel
' Timer        | Timer1
' Textbox    | Text1
' "UpDown"  | UpDown1 (Windows Common Controls)

Private Declare Function ExitWindows Lib "user32" (ByVal dwReserved As Long, ByVal uReturnCode As Long) As Long
Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
Private Const EWX_SHUTDOWN = 1
Dim sursis As Integer

Private Sub BPCancel_Click()
If Timer1.Enabled = False Then End

Timer1.Enabled = False
Text1.Enabled = True
BPStart.Enabled = True
UpDown1.Enabled = True
Form1.Caption = "Win Auto-shutdown"

End Sub

Private Sub BPStart_Click()
Text1.Enabled = False
BPStart.Enabled = False
UpDown1.Enabled = False
sursis = Text1.Text
Timer1.Enabled = True
Form1.Caption = "Arrêt dans " + Str(sursis) + " minutes"
End Sub

Private Sub Text1_Change()
If Text1.Text = "" Then Text1.Text = "1"
If Text1.Text > 120 Then Text1.Text = "120"
If Text1.Text < 1 Then Text1.Text = "1"
UpDown1.Value = Text1.Text
End Sub

Private Sub Timer1_Timer()
sursis = sursis - 1
If sursis = 0 Then ret = ExitWindowsEx(EWX_SHUTDOWN, 0): End
Form1.Caption = "Arrêt dans " + Str(sursis) + " minutes"
End Sub

Private Sub UpDown1_Change()
Text1.Text = UpDown1.Value
End Sub

A voir également

Ajouter un commentaire

Commentaires

Ricpperso
Messages postés
236
Date d'inscription
jeudi 24 janvier 2002
Statut
Membre
Dernière intervention
26 octobre 2004
-
ZZZZzzzzZZZZzzzzz, trop fatigué pour répondre :) ZZZZzzzzzZZZzzz
cs_jipef
Messages postés
56
Date d'inscription
lundi 23 août 2004
Statut
Membre
Dernière intervention
1 août 2008
-
ultra simple sous XP ........
Microsoft Windows XP [version 5.1.2600]
(C) Copyright 1985-2001 Microsoft Corp.

C:\Documents and Settings\jean-paul>shutdown /?
Utilisation : shutdown [-i | -l | -s | -r | -a] [-f] [-m \\nom_ordinateur] [-t x
x] [-c "commentaire"] [-d up:xx:yy]

Sans argument Affiche ce message (identique à -?)
-i Affiche l'interface graphique, doit être la 1ère
option
-l Ferme la session (ne peut pas être utilisé avec
l'option -m)
-s Met l'ordinateur hors tension
-r Met l'ordinateur hors tension et le redémarre
-a Annule une mise hors tension système
-m \\nom_ordinateur Ordinateur distant à mettre hors tension/redémar
rer/annuler
-t xx Définir le délai d'expiration pour la mise hors
tension à xx secondes
-c "commentaire" Commentaire de la mise hors tension (max
imum de 127 caractères)
-f Force des applications en cours d'exécution à se
fermer sans avertissement
-d [u][p]:xx:yy Le code de raison de la mise hors tension
u est le code utilisateur
p est un code de mise hors tension planifié
xx est le code de raison majeur (valeur entière
inférieure à 256)
yy est le code de raison mineur (valeur entière
positive inférieure à 65536)


En VB

commande$="shutdown -s -f -t 10"
shell(commande)

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.