Détecter clic de souris hors form

**MrThorr** · 21/02/2009, 21h55

Bonjour,

Je suis en traind e faire une petite appli qui lance un chrono, et j'aimerais qu'elle enregistre un temps a chaque clic de souris.

Mais il faut que les clic de souris soient capturés méme quand l'application est réduite (le pc sert a autre choses en méme temps).

J'ai cherché sur le net, conclusion il faut passer par un hook souris, mais je ne trouve pas de source en vb.net... il y en as beacoup en C# mais rien pour moi

.

Avez vous une piste ?

Merci d'avence !

Cordialement

**tomlev** · 22/02/2009, 00h29

Je ne connais pas d'exemple en VB.NET, mais celui ci en C# est très bien :
http://www.codeproject.com/KB/system...ystemhook.aspx

Tu peux le convertir en VB.NET si tu veux, ou plus simplement, utiliser directement la DLL à partir de VB.NET... Les 2 DLL Kennedy.ManagedHooks.dll et SystemHookCore.dll sont nécessaires, mais c'est la 1e qu'il faut référencer dans ton projet VB.NET (l'autre est une DLL native, elle doit juste se trouver dans le même répertoire)

**MrThorr** · 22/02/2009, 01h15

Bonjour et merci de votre réponse !

Je commence le VB et j'avoue que je suis un peu perdu..

J'ai importé la dll dans le projet, je l'ai déclaré en faisant un

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Imports Kennedy.ManagedHooks

, mais impossible d'intensier l'objet

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

mouseHook = new MouseHook();

, l'erreur retournée est : mouseHook : déclaration inattendue.

Avez vous une idée?

Cordialement

**tomlev** · 22/02/2009, 02h05

Envoyé par MrThorr

J'ai importé la dll dans le projet, je l'ai déclaré en faisant un

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Imports Kennedy.ManagedHooks

Ca ne suffit pas, il faut ajouter une référence à la DLL dans le projet (clic droit sur le projet, ajouter une référence)

Envoyé par MrThorr

mais impossible d'intensier l'objet

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

mouseHook = new MouseHook();

l'erreur retournée est : mouseHook : déclaration inattendue.

Il n'y a pas de point-virgule en VB.NET...
Et il faut déclarer l'objet avant de pouvoir l'instancier. D'autre part, évite de donner à une variable le même nom que son type...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim hook As MouseHook
hook = New MouseHook()

Ou alors :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim hook As New MouseHook()

**MrThorr** · 22/02/2009, 02h14

Pardon, c'est une erreur, je n'ai pas mi de point virgule (mauvaise habitude du C

).

Voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Imports Kennedy.ManagedHooks

Public Class Form1
    Dim mouseHook As New MouseHook
   mouseHook = MouseHook()


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load


    End Sub

    Public Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        mouseHook.InstallHook()


    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        mouseHook.UninstallHook()
    End Sub


End Class

J'ai une erreur au mouseHook : Déclaration inattendue...

J'ai pourtant respecté la syntaxe non ??

**tomlev** · 22/02/2009, 02h22

On ne peut pas mettre d'instructions directement dans le corps de la classe, seulement des déclarations. En plus, la ligne en gras est inutile, puisque mouseHook est directement initialisé lors de sa déclaration...

**MrThorr** · 22/02/2009, 02h55

En enlevant cette ligne en gras sa va mieux

.

Maintenant, j'ai un ennui lors de la conversion du Handler en C# :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

mouseHook.MouseEvent += new Kennedy.ManagedHooks.MouseHook.MouseEventHandler(mouseHook_MouseEvent);

Une fois converti j'obtiens :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

AddHandler mouseHook.MouseEvent, AddressOf mouseHook_MouseEvent

sauf que le mouseHook_MouseEvent n'est pas déclaré, j'obtiens donc une erreur, de quel type je dois déclarer ceci ?

Piouff, merci en tout cas

**tomlev** · 22/02/2009, 03h02

mouseHook_MouseEvent est la méthode qui gère l'évènement MouseEvent (cf. sa définition sur la page Code Project)

Encore une fois, tu devrais nommer la variable autrement... En C#, c'est bien un nom de différent (à cause de la minuscule au début), mais VB ne différencie pas les majuscules/minuscules dans les noms de variable

**MrThorr** · 22/02/2009, 04h10

Je ne comprends pas... Je suis allé voir sur Code Project, mais je ne comprends toujours pas...

Merci du conseil, je renomme tout dessuite...

**tomlev** · 22/02/2009, 13h43

Envoyé par MrThorr

Je ne comprends pas... Je suis allé voir sur Code Project, mais je ne comprends toujours pas...

tu comprends pas quoi exactement ?

**MrThorr** · 22/02/2009, 13h59

Le problème avec mouseHook_MouseEvent.

Pourquoi après : AddHandler mouseHook.MouseEvent il faut faire un AddressOf ?

Je ne comprends pas la syntaxte, donc je n'arrive pa as voir ce qui ne va pas...

**tomlev** · 22/02/2009, 14h22

C'est la syntaxe pour ajouter un gestionnaire d'évènement :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

AddHandler évènement, AddressOf méthodeQuiGèreLEvènement

Il faut avoir déclaré la méthode méthodeQuiGèreLEvènement bien sûr

**MrThorr** · 22/02/2009, 14h45

Sur CodePorject, ils déclarent la méthode comme ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub hook_evenement(ByVal mEvent As MouseEvents, ByVal x As Integer, ByVal y As Integer)
        ' Action...
    End Sub

Mais quand j'ajoute le gestionnaire via :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

AddHandler hook.MouseEvent, AddressOf hook_evenement

, j'ai une erreur :

Erreur 2 La méthode 'Private Sub hook_MouseEvent(mEvent As Kennedy.ManagedHooks.MouseEvents, x As Integer, y As Integer)' n'a pas une signature compatible avec le délégué 'Delegate Sub MouseEventHandler(mEvent As Kennedy.ManagedHooks.MouseEvents, point As System.Drawing.Point)'. C:\Documents and Settings\Bruno\Mes documents\Visual Studio 2008\Projects\testHookSouris\testHookSouris\Form1.vb 20 47 testHookSouris

**tomlev** · 22/02/2009, 16h08

Ah ok, je vois le problème... En fait le mec a du modifier un peu sa librairie, mais il a pas mis à jour le code dans l'article.
Il faut déclarer le handler comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub hook_evenement(ByVal mEvent As MouseEvents, ByVal position As System.Drawing.Point)
        ' Action...
End Sub

**roster** · 22/02/2009, 16h09

Je débute également, mais visiblement il faut que tu passes un drawing.point comme second argument de ta procédure, un truc du genre:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Dim Point as New Drawing.Point(X, Y)
 
Private Sub hook_evenement(ByVal mEvent As MouseEvents, ByVal Point As Drawing.Point)
        ' Action...
    End Sub

EDIT: il y a plus rapide que moi visiblement...

**tomlev** · 22/02/2009, 16h10

Envoyé par tomlev

Ah ok, je vois le problème... En fait le mec a du modifier un peu sa librairie, mais il a pas mis à jour le code dans l'article.
Il faut déclarer le handler comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub hook_evenement(ByVal mEvent As MouseEvents, ByVal position As System.Drawing.Point)
        ' Action...
End Sub

Envoyé par roster

Je débute également, mais visiblement il faut que tu passes un drawing.point comme second argument de ta procédure, un truc du genre:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Dim Point as New Drawing.Point(X, Y)
 
Private Sub hook_evenement(ByVal mEvent As MouseEvents, ByVal Point As Drawing.Point)
        ' Action...
    End Sub

Quelle synchronization ... à 1 minute près

Par contre, inutile de déclarer un point en dehors de la méthode...

**MrThorr** · 22/02/2009, 16h57

Haha, maintenant, c'est bon...

J'ai un dernier problème..., je veut uniquement prendre en compte les clic sur le bouton du milieu, j'utilise donc des if :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
    Private Sub hook_MouseEvent(ByVal mEvent As MouseEvents, ByVal position As System.Drawing.Point)
        If mEvent.ToString = "519" Then
            MessageBox.Show("Bouton milieu enfoncé")
        End If
        If mEvent.ToString = "520" Then
            MessageBox.Show("Bouton milieu relâché")
        End If
    End Sub

J'ai mis les deux, mais pour la gestion d'un événement un seul suffit.

Dans la logique, lors d'un appui sur le bouton du milieu, je devrais avoir deux messages : un "Bouton milieu enfoncé" et un "Bouton milieu relâché", or la j'ai deux de chaque.

Le problème viens de moi (je n'ai pas compris un truc) ou il y as bien un souci au niveau de la librairie ?

**tomlev** · 22/02/2009, 17h08

t'es sûr que t'as pas ajouté le handler 2 fois ? Parce que je vois pas vraiment d'autre explication...

Sinon, c'est Quand même bizarre que l'Enum MouseEvents ne contienne pas de définition pour MiddleButtonUp et MiddleButtonDown :S
Faudrait envisager de les ajouter...

**MrThorr** · 22/02/2009, 17h17

J'avais effectivement mis 2 fois le handler...

Pour le MiddleButtonUp non, il n'y est pas, il y as clic droit et gauche enfoncé / relaché, scrool mais pas le bouton du millieu...

Dans le prog de CodeProject, lors de l'exécution, c'est pareil, c'est de la que j'ai récupéré les 519 et 520...

Je ferais un petit tuto sur l'utilisation des hook souris en vb.net, sa pourra surement servir a quelqu'un un jour...

En tout cas, merci sincèrement pour votre aide (très synchro ?

).

Codrialement