Extinction de l'ordinateur avec xp

Soyez le premier à donner votre avis sur cette source.

Vue 2 471 fois - Téléchargée 229 fois

Description

Ce programme permet d'eteindre un ordinateur equipe de Windows XP apres un certain temps definit par l'utilisateur.

Source / Exemple :


Option Explicit
Dim Secondes, Minutes
Const VK_wingauche = &H5B
Const VK_windroite = &H5C
Const KEYEVENTF_KEYUP = &H2
Private Declare Sub keybd_event Lib "user32.dll" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

'Pour definir la position du curseur
Private Declare Function SetCursorPos& Lib "user32" (ByVal X As Long, ByVal Y As Long)

Private Sub Command1_Click()
    Timer1.Enabled = True
    Minutes = Text1.Text
    Secondes = 180
End Sub

Private Sub Command2_Click()
    Timer1.Enabled = False
    End
End Sub

Private Sub Timer1_Timer()
        
    If Minutes = 1 Then
        Secondes = 60
        Timer1.Interval = 1000
        Text1.Text = Secondes
        Minutes = 0
        Label2.Caption = "secondes"
    End If
     
    If Minutes > 1 Then
        Minutes = Minutes - 1
        Label2.Caption = "minutes"
        Text1.Text = Minutes
    End If
    
    If Secondes = 16 Then
        SetCursorPos 800, 500
    End If
    
    If Secondes = 12 Then
        keybd_event VK_wingauche, 0, 0, 0 ' appui sur la touche Windows gauche
        keybd_event VK_wingauche, 0, KEYEVENTF_KEYUP, 0 ' relache la touche Windows gauche
    End If
    
    If Secondes = 8 Then
        SendKeys "{up}"
    End If
    
    If Secondes = 4 Then
        SendKeys "{ENTER}"
    End If
    
    If Secondes = 0 Then
        SendKeys "{t}"
    End If
    
    If Secondes < 61 Then
        Secondes = Secondes - 1
        Text1.Text = Secondes
    End If
 
End Sub

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
161
Date d'inscription
jeudi 20 mars 2003
Statut
Membre
Dernière intervention
7 mai 2007

Merci pour cette source, même si elle a quelques petits défauts qu'a dit OliYoup, elle m'a appris le code pour déplacer la souris, ça sert peut être pas à grand chose, mais ça peut toujours être utile.
Messages postés
6
Date d'inscription
samedi 13 septembre 2003
Statut
Membre
Dernière intervention
4 août 2004

Ah les fameux "SendKeys"!
Cela ne fait pas très multi-tache car pour que ton prog fonctionne bien il faut que l'utlisateur ne touche à rien! c'est pas top!
En plus tu fais comment si le PC est en veille et qu'il faut un mot de passe?
En bref ce n'est pas la meilleur solution...
Si tu débutes c'est bien, sinon...

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.