Discussion :

[ayarikhaoulakoukou]

salut les amis.
je souhaite développer un bout de code qui me donne le hwnd de internet explorer.
pour ce faire j'utilise l'api:

Code :

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

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

et le code suivant:

Code :

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

1
2
WinWnd = FindWindow(vbNullString, "iexplore")
MsgBox WinWnd

le problème que le message affiche toujours 0
merci de m'aider

[Ehjoe]

Bonjour,

Voici ce que j'ai trouvé sur cette API :

Fonction FindWindow

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

Description :
Cette fonction permet de rechercher une fenêtre. Elle ne fonctionne que sur les fenêtres principales (pas les filles des MDI).
lpClassName est le nom de la classe qui identifie la fenêtre (rarement connu et donc souvent égal à une chaîne vide).
lpWindowName est le titre (complet) de la fenêtre.
La fonctionne retourne alors le handle de la fenêtre, en cas d'échec, elle renvoie 0.

Exemple d'utilisation :

' Exemple proposé par Ket Ans (ket_ans@hotmail.com)

Public Function GetTaskbarHWND() As Long
GetTaskbarHWND = FindWindow("shell_traywnd", "")
End Function

' On peut ensuite utiliser ce handle pour cacher ou
' afficher la barre des tâches

Public Sub HideTaskbar()
' Cacher la barre des tâches
Dim hWin As Long
hWin = GetTaskbarHWND()
SetWindowPos hWin, 0, 0, 0, 0, 0, &H80
End Sub

Public Sub ShowTaskbar()
' Afficher la barre des tâches
Dim hWin As Long
hWin = GetTaskbarHWND()
SetWindowPos hWin, 0, 0, 0, 0, 0, &H40
End Sub

Cordialement.

Joe.

[tomlev]

Le 2e paramètre est le titre de la fenêtre, pas le nom de l'exécutable. Comme le titre varie tout le temps, tu ne peux pas te baser là-dessus... Donc il faut utiliser le paramètre lpClassName, qui est "IEFrame" pour Internet Explorer, et mettre vbNullString pour le titre.