FindWindow+ internet explorerRésolu

Question

salut les amis .
je souhaite obtenir le handal de internet explorer pour voir si la page web est afficher en premier plan ou non.
j'utilise le code suivant:
Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
WinWnd = FindWindow(vbNullString, "Internet Explorer")
MsgBox WinWnd
le msg affiché est toujours 0
j'attend votre aide.
mercis à l'avance.

Duke49 · Accepted Answer

test ceci:


Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
WinWnd = FindWindow("IEFrame, vbNullString)
MsgBox WinWnd

ayarikhaoula · Answer

mercis Duke49.
problème résolu

ayarikhaoula · Answer

salut
es tu peux m'aider pour le cas de Firefox et document Word?
Mercis à l'avance.

Duke49 · Answer

Pour que tu puisse y arriver par tes propres moyens; soit tu programmes une routine pour capturer tous les process actifs OU plus facile...

Avec ton visual basic 6, ta un outil qui s'appel SPY++
Normalement situé dans le menu:
- Démarrer
- Microsoft Visual Studio 6.0
- Outils Microsoft Visual Studio 6.0

1) Lance ton firefox
2) Dans SPY++, clique sur le menu SEARCH puis FIND WINDOW
3) Tu verras un icone a droite de Finder Tool, clic gauche souris en restant appuyé
4) Déplace cette cible sur la barre de titre de ta page Firefox et relache le bouton
5) Dans SPY++, a droite du texte "CLASS" sera marqué: MozillaUIWindowClass

Donc, tu feras...

Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
WinWnd = FindWindow("MozillaUIWindowClass", vbNullString)

ayarikhaoula · Answer

mercis beaucoup.problème résolu.

FindWindow+ internet explorer

5 réponses

Votre réponse

Discussions similaires