Word hook sourisRésolu

Question

Salut

J'ai un problème assez "fun".
J'ai fait un hook de souris sur la fenêtre word. ca me donne ca 
        Public Function Hook(ByVal W As Microsoft.Office.Interop.Word.Application) As Boolean

            Try

                Dim hInstance As Integer
                Dim Word_hwnd As Integer
                Dim numID As Integer

                'dlgClavierCallBack = New HookClavierDelegate(AddressOf ClavierCallBack)
                dlgSourisCallBack = New HookSourisDelegate(AddressOf SourisCallBack)

                hInstance = Marshal.GetHINSTANCE([Assembly].GetExecutingAssembly.GetModules()(0)).ToInt32
                Word_hwnd = FindWindow(vbNullString, W.ActiveWindow.Caption & " - Microsoft Word")
                Dim NumThread As Integer = GetWindowThreadProcessId(Word_hwnd, numID)
                Debug.Print(Word_hwnd & "--" & numID & "--" & NumThread & "--" & GetCurrentProcessId)

                hHookSouris = SetWindowsHookExSouris(WH_MOUSE, dlgSourisCallBack, hInstance, NumThread) 'Dans word
                If (hHookSouris = 0) Then
                    MsgBox("Problème hook")
                    Exit Function

                End If
            Catch ex As Exception
                MsgBox(ex.Message & vbCrLf & ex.StackTrace)
            End Try

        End Function

Donc pas de problème le handle est le bon(vérifié avec Spy++), le thread aussi.

Donc la fenêtre Word est bien détectée. Maintenant, quand je passe la souris sur la fenêtre Word j'ai ca

"Microsoft Office Word a rencontré un problème et doit être fermé. Nous vous prions de nouex excuser pour le désagrement encouru." ... message classique.
Je n'ai pas d 'exception de levée, le fichier word se ferme mais pas l'appli et voila ...

Donc si vous avez des idées je suis prenneur c'est vraiment urgent là svp !!!
Word est sécurisé ? erreur ds le code ?

Private Function SourisCallBack(ByVal nCode As Integer, ByVal wParam As Integer, ByVal lParam As MOUSEHOOKSTRUCT) As Integer

            Try

            Catch ex As Exception
                MsgBox(ex.Message & vbCrLf & ex.StackTrace)
            End Try
        End Function

Le code de SourisCallBack si ca peut vous inspirer.
Merci d'avance

PCPT · Accepted Answer

salut,

euh... tes fonctions ne doivent rien retourner?
tu ne laisses pas passer le message? ni prends le suivant?

çà doit être dans cet ordre d'idées en tout cas....
++
<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp

Word hook souris

1 réponse

Votre réponse

Discussions similaires