Surveillance des entrées au clavier [Résolu]
adrienphp
- Messages postés
- 34
- Date d'inscription
- dimanche 2 mars 2003
- Dernière intervention
- 31 juillet 2006
- Messages postés
- 34
- Date d'inscription
- dimanche 2 mars 2003
- Dernière intervention
- 31 juillet 2006
A voir également:
- Surveillance des entrées au clavier
- Animation dans un jpanel + surveillance de la souris et du clavier - Codes sources - Java (Jeux)
- Chapitre 2 : le déplacement avec clavier+création d'un système de score - Conseils pratiques - Visual Basic / VB.NET
- Changer la vitesse du clavier et le delai de repetition - Codes sources - Visual Basic / VB.NET (Système)
- Surveiller le presse papier - Codes sources - Visual Basic / VB.NET (Système)
- Comment envoyer une commande clavier??? - Codes sources - Visual Basic / VB.NET (Souris, Clavier, etc…)
6 réponses
Meilleure réponse
- Messages postés
- 34
- Date d'inscription
- dimanche 2 mars 2003
- Dernière intervention
- 31 juillet 2006
ok, je publierai, c'est vrai, j'ai qu'une source a mon actif, ca permettra de contribuer à ce site.
sinon, j'ai déjà trouver l'api qui va bien et j'ai déjà fait un petit bout de code !
<hr size="2" width="100%" />Option Explicit
'API pour tester l'état des touches du clavier d'apres les keycodes
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Sub tmrKCODE_Timer()
Dim b1 As Long, i As Long
' la petite procédure qui va bien !
For i = 0 To 255
b1 = GetAsyncKeyState(i)
If b1 < 0 Then
lblKCSS = CStr(i) 'si 44, -> touche ImpEcranSys
Text1.Text = Text1.Text & "-" & lblKCSS
Exit For
End If
Next i
End Sub
<hr size="2" width="100%" />Débutant en Delphi - Intermédiaire en Php4/MySQL et VB6
sinon, j'ai déjà trouver l'api qui va bien et j'ai déjà fait un petit bout de code !
<hr size="2" width="100%" />Option Explicit
'API pour tester l'état des touches du clavier d'apres les keycodes
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Sub tmrKCODE_Timer()
Dim b1 As Long, i As Long
' la petite procédure qui va bien !
For i = 0 To 255
b1 = GetAsyncKeyState(i)
If b1 < 0 Then
lblKCSS = CStr(i) 'si 44, -> touche ImpEcranSys
Text1.Text = Text1.Text & "-" & lblKCSS
Exit For
End If
Next i
End Sub
<hr size="2" width="100%" />Débutant en Delphi - Intermédiaire en Php4/MySQL et VB6
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
a aidé 97 internautes ce mois-ci
- Messages postés
- 15838
- Date d'inscription
- jeudi 8 août 2002
- Dernière intervention
- 4 mars 2013
- Messages postés
- 34
- Date d'inscription
- dimanche 2 mars 2003
- Dernière intervention
- 31 juillet 2006
Oui, je sais bien ! Mais ce programme me sert uniquement personellement. En fait, je fais des tutoriels et lorsque je veux avoir une copie d'ecran, j'en ai marre de faire ImpEcranSys, puis ouvrir un logiciel d'image, puis redimensionner et enregistrer en jpeg ou png ! Je voudrais gagner du temps (et de l'argent ! lol) et comme pour moi la programmation doit permettre de résoudre nos problèmes informatiques, je ne serais satisfait que lorsque j'aurais trouvé la solution. Sinon, merci, j'avais pas penser à faire une recherche sur les keyloggers !
<hr size="2" width="100%" />Débutant en Delphi - Intermédiaire en Php4/MySQL et VB6
<hr size="2" width="100%" />Débutant en Delphi - Intermédiaire en Php4/MySQL et VB6
- Messages postés
- 15838
- Date d'inscription
- jeudi 8 août 2002
- Dernière intervention
- 4 mars 2013
Tiens d'ailleurs, une fois que tu auras fait ton programme, tu pourras l'envoyer sur le site ? Car ca m'interesserai aussi pas mal ce genre de petit programme lorsque je fais la doc de mes logiciels ! C'est vrai que ca serai bien plus pratique que devoir à chaque fois ouvrir gimp pour la moindre capture !
- Messages postés
- 288
- Date d'inscription
- mercredi 4 mai 2005
- Dernière intervention
- 26 janvier 2012
- Messages postés
- 34
- Date d'inscription
- dimanche 2 mars 2003
- Dernière intervention
- 31 juillet 2006
Voila le zip de la source pour ce que ca intéresse. Sinon, pour TrafMaxime, je vais regarder ton log mais rien de mieux que d'utiliser un petit programme fait maison !!!!!
http://www.vbfrance.com/code.aspx?ID=38870
<hr size="2" width="100%" />Débutant en Delphi - Intermédiaire en Php4/MySQL et VB6
http://www.vbfrance.com/code.aspx?ID=38870
<hr size="2" width="100%" />Débutant en Delphi - Intermédiaire en Php4/MySQL et VB6
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.