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