Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS

CodeS-SourceS est hébergé par Frontier.fr

Cliquez ici pour mettre ce site au démarrage de votre navigateur

AccueilCodesTutorielsForumsEmploiLivresGuide achatConnexion

begin process at 2009 07 06 16:55:05

SILVERLIGHT 3 : COMMUNICATION ET MULTICAST par KooKiz

[PERSO] DéCOUVERTES ESTIVALES : LINUX (PART I) par FREMYCOMPANY

[REFACTORING] RESHARPER POUR VISUAL STUDIO 2010 (PREVIEW) par tja

[REFACTORING] ANALYSER VOS EXCEPTIONS AVEC RESHARPER EXCEPTIONAL par tja

SHAREPOINT 2007 : PATTERNS & PRACTICES SHAREPOINT GUIDANCE par phil

RE : OUVRIR UNE FENETRE INTERNET EXPLORER SOUS VB.NET par DeWaRs

RE : ERREUR : éLéMENTS DUPLIQUéS NON PRIS EN CHARGE PAR LE PARAMèTRES "RESOURCES" par cboulas

RE : LIRE, MODIFIER ET CRéE UN FICHIER XML SOUS VB.NET 2008 - LE RETOUR par megamario

COMMANDBARS par aljan

RE : TRIS SUR CONTRôLE LISTVIEW EN VISUAL BASIC6 ? par Sator

+ de logiciels à télécharger

1 465 354 membres
395 nouveaux aujourd'hui
15 048 membres club

Trouver une ressource

Trouvez une ressource parmi 40 095 codes, 1 303 276 messages d'aide etc...

Recherche: dans [ Dernières recherches ]

Filtre:Tous les codes.NET uniquementExclure .NET

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

HOOK CLAVIER, KEYDOWN, KEYUP, API, SIMPLE, TOUCHE, INTERRUPTION, TACHE DE FOND, SPY, ESPION

Information sur la source

Catégorie :API Niveau : Expert Date de création : 05/06/2005 Vu / téléchargé: 10 026 / 2 420

Auteur : salazar

Ecrire un message privé

Note :

8,50 / 10

Commentaire sur cette source (10)

Ajouter un commentaire et/ou une note

Description

Ce code est très simple et permet de détecter dès qu'une touche clavier est enfoncée ou levée.

Il détecte également les touches combinées (shift + ...). Il n'affiche pas la lettre de la touche enfoncée (car je n'en ai pas besoin).

Il peut etre lancé en tache de fond, sans avoir le focus.

Il pourra vous servir de base pour etre évolué. Si vous l'améliorez, vos sources m'interrèssent ;o)

Fichier Zip

Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

(Eric) Hook ,tat touches
- Form1.frm 695 octets
- HookEtatKeys.bas 2 036 octets
- Project1.vbp 731 octets
- Project1.vbw 91 octets

Télécharger le zip

Sources du même auteur

PLUGGIN MEEDIO : GÉNÉRER UNE PLAYLIST ET LANCER BSPLAYER

COMMANDER, PILOTER BSPLAYER PAR L'API SENDMESSAGE, LE SKINNE...

PILOTER, COMMANDER WINAMP, API, SENDMESSAGE, WM_USER

ICON DANS SYSTRAY, MENU TRÈS SIMPLE, 1 API, 1 CLASS, XP, 9 E...

OVERLAY, FORM AU PREMIER PLAN, SETWINDOWPOS, TOUJOURS VISIBL...

Toutes les sources de salazar

Sources de la même categorie

IP_PUBLIQUE_INTERNETGETCONNECTEDSTATE par marco62118

TOUTES LES RÉSOLUTIONS D'ÉCRAN ET TAILLE MAXI DE LA FORM AUD... par marco62118

UTILISER L'API DE GOOGLE (CALENDRIER) par Any_Problem_Have_Solution

WIFI MANAGÉ (WLANAPI) EN VB.NET par fadelovesky

GÉNÉRER UN DOCUMENT RTF EN VBA/VB AMÉLIORÉ par Triboutmatthieu

Toutes les sources de la catégorie API

Commentaires et avis

Commentaire de franckydeluka le 06/06/2005 10:17:17

Super tes API
source précise, claire, simple
merci
10/10

Commentaire de Jielde le 07/06/2005 00:25:15

C'est simpa mais à tendance à faire planter VB lorsque l'on veux modifié le code après éxécution.

Commentaire de salazar le 07/06/2005 09:48:39

******************************************************************************************
* Principe de fonctionnement du HOOKING : Pour ne pas planter VB
******************************************************************************************

On détourne l'instruction qui véhicule les messages Windows, lorsque le clavier est concerné : WH_KEYBOARD_LL. On exécute notre procédure HookEtatKeyProc, puis on redonne la main à Windows pour qu'il continue à traiter les messages.

Avant de quitter l'appli, il faut sortir normalement par le bouton Fermer de l'appli, qui permet de désinstaller notre précédure, sinon -> plantage

Pour arreter l'appli, ne pas cliquer sur le bouton Stop de VB, sinon -> plantage

Ne pas mettre de point d'arret dans la procédure HookEtatKeyProc, sinon -> plantage. Utiliser le debug.print

En cours de fonctionnement, éviter de modifier le code dans la procédure HookEtatKeyProc, sinon risque de plantage.

Commentaire de krtr le 21/02/2006 19:49:17

Salut, et merci pour ce code.

J'aurai souhaiter savoir comment connaitre la touche enfoncé, car j'aimerai faire un programme qui tourne en tache de fond (sous un autre programme en cours d'utilisation dans mon cas) et qui emmet un son 5 secondes apres l'appui sur une touche précise.

Je vous remercie d'avance.

Commentaire de salazar le 21/02/2006 23:00:22

Fait un debug print sur la fonction de hoock et note la valeur de ta touche. Cette valeur est ensuite traitée lors du Case...
Ce prog fait déjà ce que tu souhaites, masi avec une combinaison précise de touche (pour l'exemple).

Bon courage ;o)

Commentaire de krtr le 22/02/2006 11:54:47

Merci pour ta reponse, mais je vien de tester et c'est toujours le meme code qui apparait avec differentes touches, alors si vous pouviez m'aiguiller un peu sur la variable contenant le code de la touche ce serait sympa. A mon avis je ne dois pas faire ce qu'il faut mais bon...

Merci encore.

Commentaire de ntm113 le 19/07/2006 00:58:32

Bonne idée ce code, mais la fonction HookEtatKeyProc est gérée de façon très approximative.

L'argument lParam se récupère ByRef et son type est KBDLLHOOKSTRUCT dont voici la définition :

Type KBDLLHOOKSTRUCT
    vkCode As Long
    scanCode As Long
    flags As Long
    time As Long
    dwExtraInfo As Long
End Type

Le code de la touche concernée se trouve dans lParam.vkCode, donc pour tester s'il s'agit de la touche "S" il faut faire :
If lParam.vkCode = asc("S")...
   ou bien
If lParam.vkCode = vbKeyS...

Commentaire de zifnig le 12/09/2006 14:12:09

Salut,

Je cherche à faire un soft qui permettrait de remplacer une touche tapée au clavier par une autre avant qu'elle soit transmise à l'application active. Y a-t-il une solution en VB?

Commentaire de Rico 95 le 14/03/2007 20:24:32

Salut,

Ce code me paraît très intéressant...

Par contre j'ai du mal à comprendre quels sont les arguments que je doit utiliser en entrer pour faire tourner cette fonction

Merci d'avance

Rico