Eteindre votre pc en appuyant sur des touches !! (sous xp)

Télécharger le projet
Commenter

Description

Bah c simple ultra simple
mais bon
----> APPUYEZ SUR CTRL+SHIFT+F12<----
Pour éteindre le pc
Faites le car vous avez de toute facon 5secondes pour annuler
JE crois que ca ne marche que sous xp
dsl

Source / Exemple : 


' IL vous faut :
'-un commandbutton appelle :Cancelcmd

'-2timer
'-timer1 avec intervall de 10
'-timer2 avec intervall de 1000

'-un label avec comme caption :10
'et che tout !!!
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal uAction As Long) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub Cancelcmd_Click()
messagebox = MsgBox("Annulation de l'arret de l'ordinateur, arret du logiciel", vbOKCancel)

Select Case messagebox
Case 1
    bouton = "OK"
Case 2
    bouton = "Annuler"
Case 3
    bouton = "Abandon"
Case 4
    bouton = "Réessayer"
Case 5
    bouton = "Ignorer"
Case 6
    bouton = "Oui"
Case 7
    bouton = "Non"
End Select
If bouton = "OK" Then
End

Else:
End If
End Sub

Private Sub Timer1_Timer()
'permet de savoir si les touches ctrl +f12
Form2.Caption = "Arret du pc dans :" + Label1.Caption
Dim Retour As Long
ctrl = GetAsyncKeyState(17)
f12 = GetAsyncKeyState(123)
shift = GetAsyncKeyState(16)

If (f12 And shift And ctrl And Timer2.Enabled <> True) <> 0 Then
Timer2.Enabled = True
Sleep 1000
Form2.Visible = True
End If

If Label1.Caption = 0 Then
AppActivate ("Program Manager") 'Ouvre la fenêtre d'arrêt de l'ordinateur

SendKeys "%{F4}" & "{TAB}" & "{ENTER}"
Timer1.Enabled = False
End If
If Label1.Caption = 0 Then
AppActivate ("Program Manager") 'Ouvre la fenêtre d'arrêt de l'ordinateur

SendKeys "%{F4}" & "{TAB}" & "{ENTER}"
Timer1.Enabled = False
End If
If Label1.Caption = 0 Then
AppActivate ("Program Manager") 'Ouvre la fenêtre d'arrêt de l'ordinateur

SendKeys "%{F4}" & "{TAB}" & "{ENTER}"
Timer1.Enabled = False
End If
If Label1.Caption = 0 Then
AppActivate ("Program Manager") 'Ouvre la fenêtre d'arrêt de l'ordinateur

SendKeys "%{F4}" & "{TAB}" & "{ENTER}"
Timer1.Enabled = False
End If
If Label1.Caption = 0 Then
AppActivate ("Program Manager") 'Ouvre la fenêtre d'arrêt de l'ordinateur

SendKeys "%{F4}" & "{TAB}" & "{ENTER}"
Timer1.Enabled = False
End If
If Label1.Caption = 0 Then
AppActivate ("Program Manager") 'Ouvre la fenêtre d'arrêt de l'ordinateur

SendKeys "%{F4}" & "{TAB}" & "{ENTER}"
Timer1.Enabled = False
End If
If Label1.Caption = 0 Then
AppActivate ("Program Manager") 'Ouvre la fenêtre d'arrêt de l'ordinateur

SendKeys "%{F4}" & "{TAB}" & "{ENTER}"
Timer1.Enabled = False
End If
If Label1.Caption = 0 Then
AppActivate ("Program Manager") 'Ouvre la fenêtre d'arrêt de l'ordinateur

SendKeys "%{F4}" & "{TAB}" & "{ENTER}"
Timer1.Enabled = False
End If
If Label1.Caption = 0 Then
AppActivate ("Program Manager") 'Ouvre la fenêtre d'arrêt de l'ordinateur

SendKeys "%{F4}" & "{TAB}" & "{ENTER}"
Timer1.Enabled = False
End If
Form2.Caption = "Arret du pc dans :" + Label1.Caption

End Sub

Private Sub Timer2_Timer()
Label1.Caption = Label1.Caption - 1
End Sub

Conclusion :


Merci pe poster des comments et des notes marci !
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.

Du même auteur (Proutie66)