Handle word probléme avec FindWindow

Résolu

cs_sylvain230 Messages postés 67 Date d'inscription mardi 5 décembre 2000 Statut Membre Dernière intervention 5 juillet 2010 - 24 avril 2008 à 09:03
cs_sylvain230 Messages postés 67 Date d'inscription mardi 5 décembre 2000 Statut Membre Dernière intervention 5 juillet 2010 - 28 avril 2008 à 10:03

Bonjour je suis débutant en vb.net et je n'arrive pas à avoir le handle de Word pour effectuer un hook.

Je fais Word_hwnd = FindWindow(vbNullString, "Microsoft Word")

Ce n'est pas le bonne syntaxe ?

merci d'avance :)

Répondre Posez votre question

A voir également:

Findwindowa
Findwindow vba - Meilleures réponses
Findwindow vb.net - Meilleures réponses
Form Handle & FindWindow ✓ - Forum VB.NET
Findwindow vba - Forum Visual Basic
FindWindow ✓ - Forum Delphi / Pascal
Vbs findwindow - Forum Visual Basic
Les paramètres de la fonction FindWindow - Forum C

42 réponses

1 2 3

Réponse 1 / 42

Meilleure réponse

Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 71
26 avril 2008 à 03:52

http://msdn2.microsoft.com/en-us/library/ms683181(VS.85).aspx

on y voit:
DWORD WINAPI GetCurrentProcessorNumber(void);

donc:
Function GetCurrentProcessorNumber() As Long

ensuite:
Library Use Kernel32.lib.

donc:
Declare Function GetCurrentProcessorNumber Lib "Kernel32" () As Long

gaffe, par contre:
Requirements
Client Requires Windows Vista.
Server Requires Windows Server 2008 or Windows Server 2003.

(a tout hasard, voici aussi:
Private Declare Function GetCurrentProcessId Lib "kernel32.dll" () As Integer

)

Réponse 2 / 42

Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 71
24 avril 2008 à 09:34

faut donner les nom exact de la fenêtre...
par exemple:

Word_hwnd = FindWindow(vbNullString, "Document1 - Microsoft Word")

possible aussi (mais pas top :
Word_hwnd = FindWindow("OpusApp", vbnullstring)

(Word 2003)

Réponse 3 / 42

cs_sylvain230 Messages postés 67 Date d'inscription mardi 5 décembre 2000 Statut Membre Dernière intervention 5 juillet 2010
24 avril 2008 à 09:51

Dans mon cas j'ai ca :

    Public Function InstallHook() As Boolean
        Dim Word_hwnd As Long
        Try
            If _mouseHook = IntPtr.Zero Then
                _mouseProc = New CallBack(AddressOf MouseHookProc)
                Word_hwnd = FindWindow(vbNullString, "SEB.doc [mode de compatiblité] - Microsoft Word")
                'Word_hwnd = FindWindow("Microsoft Word", vbNullString)
                _mouseHook = SetWindowsHookExW(WH_MOUSE_LL, _mouseProc, Word_hwnd, 0)
                Dim name As String = GetWndText(Word_hwnd)

                MsgBox(name)
            End If
            Return _mouseHook <> IntPtr.Zero
        Catch ex As Exception
            MsgBox(ex.Message & vbCrLf & ex.StackTrace)
        End Try
    End Function

J'ai essayé plusieurs possibilités mais je n'ai pas trouvé.
Je travaille avec Word 2007

Réponse 4 / 42

Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 71
24 avril 2008 à 09:53

tes déclarations d'API me semblent erronées...

déjà que je vois un :
Dim Word_hwnd As Long
au lieu d'un
Dim Word_hwnd As Integer

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 42

cs_sylvain230 Messages postés 67 Date d'inscription mardi 5 décembre 2000 Statut Membre Dernière intervention 5 juillet 2010
24 avril 2008 à 10:05

J'ai changé le Word_hwnd en Integer mais le probléme c'est que Word_hwnd me renvoit 0.
On trouve pas mal de forum ou y mettent IntPtr et ou ca marche mais c'est pas mon cas.

    Private Declare Function FindWindowByClass Lib "user32" _
    Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As Long) As Integer
    Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Integer

Ces déclarations sont peut être fausses ?

Réponse 6 / 42

Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 71
24 avril 2008 à 10:13

testé, ca fonctionne...

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Integer

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim Word_Wnd As Integer
Word_Wnd = FindWindow(vbNullString, "Document1 - Microsoft Word")
If Word_Wnd <> 0 Then
MessageBox.Show("Handle retrouvé : " & Word_Wnd.ToString())
End If
End Sub

Réponse 7 / 42

cs_sylvain230 Messages postés 67 Date d'inscription mardi 5 décembre 2000 Statut Membre Dernière intervention 5 juillet 2010
24 avril 2008 à 10:35

En fait je vais expliquer mon probléme :
Je veux récupérer les évènements dans une page word avec du hook donc je fais

    Public Structure MSLLHOOKSTRUCT
        Public pt As Point
        Public mouseData As Integer
        Public flags As Integer
        Public time As Integer
        Public extra As IntPtr
    End Structure

    Private _mouseHook As IntPtr
    Private Const WH_MOUSE_LL As Integer = 14

Private Delegate Function CallBack(ByVal nCode As Integer, ByVal wParam As IntPtr, ByRef lParam As MSLLHOOKSTRUCT) As Integer

    <MarshalAs(UnmanagedType.FunctionPtr)> Private _mouseProc As CallBack

Public Function MouseHookProc(ByVal nCode As Integer, ByVal wParam As IntPtr, ByRef lParam As MSLLHOOKSTRUCT) As Int32

        Debug.Print("Message = {0}", wParam.ToInt32)

        Return CallNextHookEx(WH_MOUSE_LL, nCode, wParam, lParam)
    End Function

Public Function InstallHook() As Boolean

            If _mouseHook = IntPtr.Zero Then
                _mouseProc = New CallBack(AddressOf MouseHookProc)
                _mouseHook = SetWindowsHookExW(WH_MOUSE_LL, _mouseProc, GetModuleHandleW(IntPtr.Zero)
, 0)

            End If
            Return _mouseHook <> IntPtr.Zero
        Catch ex As Exception
            MsgBox(ex.Message & vbCrLf & ex.StackTrace)
        End Try
    End Function

Private Declare Function CallNextHookEx Lib "user32.dll" (ByVal
idHook As Int32, ByVal nCode As Int32, ByVal wParam As IntPtr, ByRef
lParam As MSLLHOOKSTRUCT) As Int32

Ca marche trés bien pour l'écran complet mais impossible de le faire fonctionner pour ma page Word
C'est pour ca que je veux récupérer le handle.
Je récupère bien une valeur non nulle mais ca n'a pas l'air de correspondre avec la fenêtre word ..

Réponse 8 / 42

Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 71
24 avril 2008 à 10:44

non nulle ? donc c'est que c'est OK....

tu obtiens le handle de la fenetre mère...
elle contient n fenetres, dont celle (_WWG) qui affiche le document...

ouvre Spy++ pour en apprendre davantage sur la structure hierrarchique des fenetres de Word

Réponse 9 / 42

Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 71
24 avril 2008 à 10:47

l'idée est de chopper quoi, via le hook ?

Réponse 10 / 42

cs_sylvain230 Messages postés 67 Date d'inscription mardi 5 décembre 2000 Statut Membre Dernière intervention 5 juillet 2010
24 avril 2008 à 10:51

Mais comment je peux apprendre des choses sur la structure hierrarchique des fenetres de Word avec Spy++
C'est peut être idiot comme question mais bon .. :S

Réponse 11 / 42

Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 71
24 avril 2008 à 10:53

ben lance Spy++, cible la fenetre word principale (celle dont tu recherche le handle)
tu regarde ses fenetres filles, tu espionne les messages
et tu regarde si tu cherches a "écouter" la bonne

Réponse 12 / 42

cs_sylvain230 Messages postés 67 Date d'inscription mardi 5 décembre 2000 Statut Membre Dernière intervention 5 juillet 2010
24 avril 2008 à 10:54

En fait je veux chopper le clic gauche de la souris via le hook
Et ensuite par exemple je veux cliquer sur un composant que j aurais rajouté via un module externe et voir ses propriétés

Réponse 13 / 42

cs_sylvain230 Messages postés 67 Date d'inscription mardi 5 décembre 2000 Statut Membre Dernière intervention 5 juillet 2010
24 avril 2008 à 11:37

Encore une question stupide :S je fais comment pour espionner les messages ?

Réponse 14 / 42

Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 71
24 avril 2008 à 11:53

Ctrl + F
tu cible la fenetre
tu choisis "Messages" dans la frame "Show"
et tu presses Ok

Réponse 15 / 42

cs_sylvain230 Messages postés 67 Date d'inscription mardi 5 décembre 2000 Statut Membre Dernière intervention 5 juillet 2010
24 avril 2008 à 12:03

Mais apparement ca => Word_hwnd = FindWindow("OpusApp", vbNullString) je crois que ca marche puisque ca me renvoit pas quelque chose de nul donc le problème peut venir du hook peut être ?
Je suis à court d'idées la :S

Réponse 16 / 42

Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 71
24 avril 2008 à 12:05

du hook ? oui, peut etre, a voir si ton code permet de faire du hook ciblé sur une fenetre (qui necessite normallement une dll externe)

Réponse 17 / 42

cs_sylvain230 Messages postés 67 Date d'inscription mardi 5 décembre 2000 Statut Membre Dernière intervention 5 juillet 2010
24 avril 2008 à 12:18

Ben voila le code mais je n'est pas compris cette histoire de dll externe
Mettre quoi dedans ou la créer, comment la créer ... a quoi elle peut me servir
Comment savoir si mon code permet de faire du hook cliblé sur une fenêtre ?
Je pense pas avoir tout compris sur le hook ...
Faut dire ce morceau de code je l'ai trouvé sur le net et ca marchait impec sans word
J'ai voulu le modifier pour mon code mais ca a pas donné grand chose lol :S

    Private Declare Function FindWindowByClass Lib "user32" _
    Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As Long) As Integer
    Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Integer

    Public Structure MSLLHOOKSTRUCT
        Public pt As Point
        Public mouseData As Integer
        Public flags As Integer
        Public time As Integer
        Public extra As Integer
    End Structure

    Private Sub Btn_Formulaire_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Btn_Formulaire.MouseMove

    Public Function InstallHook() As Boolean

            If _mouseHook = IntPtr.Zero Then
                _mouseProc = New CallBack(AddressOf MouseHookProc)
                _mouseHook = SetWindowsHookExW(WH_MOUSE_LL, _mouseProc, GetModuleHandleW(IntPtr.Zero, 0)

            End If
            Return _mouseHook <> IntPtr.Zero

    End Function

    Public Sub RemoveHook()
        If _mouseHook = IntPtr.Zero Then Return
        UnhookWindowsHookEx(_mouseHook)
        _mouseHook = IntPtr.Zero
    End Sub

Public Function MouseHookProc(ByVal nCode As Integer, ByVal wParam As IntPtr, ByRef lParam As MSLLHOOKSTRUCT) As Integer

        Debug.Print("Message = {0}", wParam.ToInt32)

        Return CallNextHookEx(WH_MOUSE_LL, nCode, wParam, lParam)
    End Function

Merci de regarder :)

Réponse 18 / 42

Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 71
24 avril 2008 à 12:24

http://msdn2.microsoft.com/en-us/library/ms644990.aspx

Réponse 19 / 42

cs_sylvain230 Messages postés 67 Date d'inscription mardi 5 décembre 2000 Statut Membre Dernière intervention 5 juillet 2010
24 avril 2008 à 14:01

Private Const WH_MOUSE_LL As Integer = 14
On peut mettre n'importe quelle autre valeur que 14 ?
Je vois pas comment ca fonctionne

Réponse 20 / 42

Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 71
24 avril 2008 à 14:34

la doc te l'indique...
on demande un hook d'un certain type (ici souris, bas niveau)
on pourrais demander le clavier, la creation de fenetres, etc....

Répondre Posez votre question

Votre réponse

Discussions similaires

Form Handle & FindWindow

olixelle - 24 sept. 2006 à 18:08
spandex - 3 déc. 2006 à 22:49

8 réponses

Récupérer tous les handles d'une application choisie dans une liste

cs_nitrique - 13 avril 2006 à 09:53
cirec - 18 avril 2006 à 15:00

12 réponses

FindWindow

cs_sim4444 - 23 mars 2005 à 00:12
sim4444 - 23 mars 2005 à 15:42

3 réponses

Rejoignez la communauté et devenez membre en quelques clics

Connectez-vous simplement avec ceux qui partagent vos intérêts
Suivez vos discussions facilement et obtenez plus de réponses
Mettez en avant votre expertise et aidez les autres membres
Profitez de nombreuses fonctionnalités supplémentaires en vous inscrivant

S'inscrire