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

Soyez le premier à donner votre avis sur cette source.

Vue 6 483 fois - Téléchargée 352 fois

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 !

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

cs_Elektordi
Messages postés
187
Date d'inscription
mardi 31 décembre 2002
Statut
Membre
Dernière intervention
21 janvier 2008
-
Pour w98, on peut aussi utiliser:

Shell "rundll32 user,ExitWindows"
zoubi57
Messages postés
8
Date d'inscription
jeudi 16 mai 2002
Statut
Membre
Dernière intervention
17 novembre 2015
-
Sauf si on utilise le clone SHUTDOWN.EXE de XP qui lui coupe l'alimentation . C'est un freeware telecharchable :
http://www.budja.com/shutdown/shutdown.exe

Merci Andrej au diable Bill.
Proutie66
Messages postés
141
Date d'inscription
samedi 19 octobre 2002
Statut
Membre
Dernière intervention
14 avril 2008
-
ouep darksage je sais tx ^^
Mais chez cette technique me fait un bug :
ca eteint bien xp mais le pc reste allumé avec le message :
"VOus pouvez eteindre votre pc en toute securite"
comme ds l'ancien tps
c pour ca que je préfère:

AppActivate ("Program Manager") 'Ouvre la fenêtre d'arrêt de l'ordinateur

SendKeys "%{F4}" & "{TAB}" & "{ENTER}"
cs_DarkSage
Messages postés
17
Date d'inscription
dimanche 6 janvier 2002
Statut
Membre
Dernière intervention
14 août 2004
-
Voui, j'avoue que c jolie tout plein ton code.. mais bon
Pour éteindre un PC sous XP, y a bcp plus simple
C le prog shutdown.exe (a utiliser donc avec shell() ou autre...)

Voici sa syntaxe :

Utilisation : SHUTDOWN [-i | -l | -s | -r | -a] [-f] [-m \nom_ordinateur] [-t xx] [-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émarrer/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 (maximum 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)


Pour Windows 98, faut utiliser un API :

Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long

public type arret_pc
delog = 0
eteindre = 1
reboot = 2
forcer = 3
end type

Public Sub ExitWindows(arret as arret_pc)
Call ExitWindowsEx(arret_pc, 0)
End Sub


Voilà
:: DarkSage ::

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.