Discussion :

[MrThorr]

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]

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]

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]

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)

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]

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]

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...