Extinction de l'ordinateur avec xp

Télécharger le projet
Commenter

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
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

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.