PILOTER INTERNET EXPLORER (OU UN WEBBROWSER) [RÉPONSE FORUM]

Commentaire de Renfield le 25/08/2004 12:29:10 administrateur CS

Je ne sais rien de FireFox....

mais IE donne accès a pas mal d'objets qui permettent une certaine automatisation....(Comme le permettent Word ou Excel, également)

Commentaire de Sirocooo le 26/08/2004 08:48:22

Moi aussi j'utilise FireFox et je ne veux plus entendre parler de IE...

Ton code est propre, ya rien à dire... Il faudrait trouver la solution pour piloter un autre navigateur...

9/10

Commentaire de polemos le 29/09/2004 15:47:13

Bonjour,

Pourrais-tu expliquer ton code. J'ai essayé de le transcrire en VBA via Excel sans succès...

C'est le passage de la saisie dans un userform vers IE qui me bloque semble-til...

Cordialement
Polemos

Commentaire de Renfield le 24/01/2005 15:54:14 administrateur CS

oui, via les API, et en utilisant au besoin SPy++

tu utilises FindWindow pour obtenir le handle des controles qui t'interessent, et avec des SendMessage ou autres API, tu peux piloter les actions de ton application...

Commentaire de Renfield le 24/01/2005 22:10:30 administrateur CS

Sendmessage.... je dirai sur MSDN, tu trouveras toutes la doc' nécessaire...

reste a assembler le tout...

le tout est que tu soit un peu familier avec l'architecture de Windows

juste a te dire que pour agir sur un controle, il faut son Handle (hWnd) , que l'on peut récuperer via FindWindow et FindWindowEx

j'ai pas d'exemple, là, sous la main, dsl

mais le net est là, et tu devrais pouvoir y trouver ton bonheur

Commentaire de andrebernard le 22/04/2005 14:34:39

Merci pour ce code genial
Par contre j'ai un probleme, comment fait on si le bouton est un gif et donc n'a pas de "name"

exemple

<td height="15" align="right" valign="middle"><input type="image" src="/img/bt_ok_carre.gif" width="19" height="13" border="0"></td>

Si quelqu'un pouvait m'aider
merci d'avance

Commentaire de sirex007 le 20/05/2005 11:41:58

Bonjour,

Je voudrais savoir comment faire pour manipuler par le code un InternetExplorer existant.

Je m'explique, dans votre code vous déclarer : dim IE as new InternetExplorer
ensuite vous lui affecter une adresse etc etc..

Moi ce que je veux en faite, c'est affecter à cette même variable IE, l'internet explorer qui est déjà ouvert sur mon poste...

Je ne dispose pas d'aide avec l'outil que j'utilise, et je voudrais savoir si quelqu'un à déjà fait cela.

Cordialement.

Commentaire de CDAlstom le 10/11/2005 11:06:11

Bonjour, puisqu'il s'agit ici de "piloter" IE, comment faire pour enregister une page...? Avec un tru du genre "IE.save"...?!?

Merci d'avance!

Commentaire de CDAlstom le 10/11/2005 11:55:49

C du javascript ou quoi?

Commentaire de Renfield le 10/11/2005 12:39:16 administrateur CS

c'est une fonction du Document :

Set Doc = IE.document
Doc.execCommand ......

Commentaire de Renfield le 15/11/2005 11:47:17 administrateur CS

tu as dans le code :

Private Sub IE_DocumentComplete(ByVal pDisp As Object, URL As Variant)      
Dim Doc As IHTMLDocument2
Set Doc = IE.document

Pour imprimer, tu as la commande Print :
Doc.execCommand "Print"

Commentaire de devforce1 le 15/11/2005 15:21:34

En fouillant j'ai trouvé cette commande qui prend l'imprimante par defaut !
      IE.ExecWB(OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER)

Encore merci pour ta source et tes reponses.

DevForce1-Julien

Commentaire de felin200069 le 12/03/2006 00:53:24

Salut

Avec ce code j'arrive a ecrire dans la page de www.ebay.fr en haut a droite dans "nouvelle recherche" du texte mais je n'arrive pas a valider avec le bouton "rechercher" car il n'as pas de nom.

Merci de m'aider.

Commentaire de felin200069 le 14/03/2006 00:07:03

Peux tu me dire comment faire ce submit car c'est la premiere fois que je dois l'utiliser.
Merci

Commentaire de jejelechasseur le 24/03/2006 09:52:52

Bonjour,
Je vois que l'on peut piloter IE à partir du code vb,
mais est-il possible de faire l'inverse ?
Je m'explique :
Je voudrais capter, dans mon programme vb, le clic sur un bouton, par exemple, de ma page web.
Est ce possible et comment ? (avec source à l'appui si c'est possible)

Merci

Commentaire de fufu84 le 17/04/2006 15:30:18

Super ce code!
J'ai cherché ca pendant pas mal de temps....

Cependant, j'ai un petit problème.
Lorsque je l'execute, il bugg là:
Btn_Search.Enabled = True
Txt_Search.Enabled = True

Par ailleurs, j'essaye de trouver les boutons, mais je n'arrive pas (lorsque je cherche dans la source).
bref, avez-vous une solution?

Commentaire de fufu84 le 18/04/2006 12:47:06

Ah! désolé, je viens de comprendre... la source affichée sur cette page ne correspond pas à celle qu'il y a sur tes fichier?
Car j'utilise VB5... donc évidemment, y'a un pitit problème ;)

M'enfin merci pour l'indication, ca m'évitera d'y passer 3 heures^^

Commentaire de Renfield le 19/05/2006 09:50:09 administrateur CS

je crois pas que l'on puisse...
au pire, on sais intercepter les clicks sur les liens...
on peux alors annuler l'apparition de la fenetre (en renvoyant False), et s'occuper nous même du téléchargement du fichier

Commentaire de Renfield le 19/05/2006 10:25:35 administrateur CS

cette boite de dialogue arrive toute seule ? ou suite a un click quelque part ?
si tu as le code HTML, tu dois pouvoir en extraire les infos nécessaires au téléchargement 'manuel' du fichier (sans passer par la boite de dialogue)

Commentaire de Renfield le 19/05/2006 10:44:58 administrateur CS

télécharge directement Expport.php en un fichier Excel, en ce cas ^^

(en utilisant, par exemple URLDownloadToFile)

Commentaire de Renfield le 15/06/2006 18:34:04 administrateur CS

tu as la collection Links qui est accessible...

Commentaire de laurent_vp le 31/07/2006 16:10:27

Bonjour à tous !
J'utilise un contrôle WebBrowser (intégré au framework .NET 2.0) et je rencontre un problème lors de l'impression d'une page HTML. J'ai essayé ta méthode citée plus haut, Renfield, mais le résultat est toujours le même, rien ne se passe quelque soit la méthode :
   - méthode Print du WebBrowser
   - méthode ExecCommand "Print" de WebBrowser.Document
   - méthode ExecCommand "Print" de l'interface IHTMLDocument2
Quelqu'un aurait rencontré ce pb ou aurait une solution en .NET ?
Merci d'avance,

Commentaire de Renfield le 20/09/2006 12:00:53 administrateur CS

manipuler les Frame n'est pas impossible, mais requiert l'implémentation d'interfaces particulières, etc...

tu peux peut-être utiliser directement l'URL de la frame en question, comme URL de départ.

Commentaire de Renfield le 20/09/2006 12:35:28 administrateur CS

au pire, tu dois pouvoir manipuler la collection Document.Frames( ...)

Commentaire de AngeliusMefyrx le 19/12/2006 18:49:43

Bonjour,
Voici du code que peut-être certaines personne vont trouver intéressantes suite à quelques questions que j'ai vu rapidement.... mais faudra l'adapter à votre code

Public Monliens As String
Public IE As Object

Public Const vUrl = "whatever"
Public Const vTargetFrame = "main"
Public Const vPosteData = ""
Public Const vHeaders = ""
Public Const vFlags = ""

Dim AllIE As Object
Dim VerifURL As String
Dim i As Integer

Set AllIE = CreateObject("Shell.Application")
If Monliens = "" Then
    Call MsgBox("msg d,erreur", vbCritical, "titre")
    Exit Sub
End If

For i = 0 To AllIE.windows.Count - 1
    If InStr(1, Monliens , AllIE.windows(i).locationurl, vbTextCompare) <> 0 Then
        If Not AllIE.windows(i).busy Then
            Set IE = AllIE.windows(i)
            i = AllIE.windows.Count - 1
        Else
            Reponse = MsgBox("Le liens " & Monliens & " est présentement utilisé, voullez vous attendre que celui çi soit disponible", vbYesNo, "Connection utilisé")
            If Reponse = 6 Then
                While AllIE.windows(i).busy
                    DoEvents
                Wend
                IE = AllIE.windows(i)
                i = AllIE.windows.Count - 1
            End If
        End If
    End If
Next i

If IE Is Nothing Then
    Reponse = MsgBox("Aucun liens (" & Monliens  & "),Voullez-vous ouvrir le Portail?", vbYesNo)
    If Reponse = 6 Then
        Set IE = CreateObject("InternetExplorer.Application")
        Call IE.navigate(Monliens , vFlags, vTargetFrame, vpostdata, vHeaders)
        While IE.busy
            DoEvents
        Wend
    Else
        Call MsgBox("Désolé, aucune fenêtre Internet Explorer disponible", vbOKOnly)
        Exit Sub
    End If

IE.Document.frames.NAME.frames.NAME.Document.NAME.BOITE.Value = "whatever"

J'avais une question par contre, évidement si l'object désirer n'exite pas, cela me donne une erreur, comment puis-je gérer cette erreur....
Exemple, la dernière ligne indique que je veux mettre une valeur dans une boite, sauf que si un des frames n'est pas présent, je peux vouloir lui dire de faire un navigate, dans le cas contraire ne pas faire le navigate pour rien, puisque cela prends quelques secondes inutilement....

Merci

Commentaire de AngeliusMefyrx le 19/12/2006 20:05:05

Finalement, pourcontourner le problème, je vais me répondre à moi même

If InStr(1, IE.Document.frames.main.Location, "Le liens dans mon frame") = 0 Then
Call MsgBox("C'est le bon liens")
End If

Commentaire de trackpi le 03/01/2007 11:43:36

Je précise mes inquiétudes : quand la iframe appartient à un autre domaine que la page principale, j'ai l'impression que IE refuse clairement d'en montrer le contenu ... Par exemple si on fait set obj = ie.document.frames.item(0) et qu'on essaye de regarder ce que obj a dans le ventre en mettant un espion dessus, on obtient que du "accès refusé" ...

Commentaire de Renfield le 04/01/2007 06:57:13 administrateur CS

y'a un moyen, de passer outre l'affichage frame par frame, qui est là pour sécuriser, et limiter les scripts inter domaines.

un collègue MVP VB l'avait réalisé, je sais plus sur quel site, il s'agit de haute voltige, d'instanciation d'interface, avec TLB et tout le toutim, pour en gros "montrer patte blanche".

faisable, donc, mais pas aisément ^^

Commentaire de Renfield le 12/03/2007 19:03:46 administrateur CS

le plus simple ici est de faire MonFormulaire.Submit

par exemple :
...Forms(1).Submit

++

Commentaire de Renfield le 28/05/2007 16:25:42 administrateur CS

étrange, je viens de :

- faire un nouveau projet
- copier le code présenté ici, et l'ai collé dans le code de la nouvelle Form
- copier/coller le textbox et le bouton
- ajouter dans les references de mon nouveau projet:
   - Microsoft HTML Object Library
   - Microsoft Internet Controls

et ça fonctionne nikel...

Commentaire de aKheNathOn le 11/07/2007 13:40:26

Je ne comprends pas pourquoi j'ai un vieu bug du genre :
Class does not support automation or does not support expected interface.

J'ai pourtant bien mis en référence les deux librairies (XP SP 1 / SP 2 + IE7 et IE6)

Commentaire de aKheNathOn le 11/07/2007 14:01:05

WAAOOOUU !

Ton zip nikel, mon copier/coller dead.

Merci - ton exemple c'est exactement ce que je recherchais !!!
Enfin une victoire de canard.

Merci pour ton aide :)

PS : Je te confirme IE 6 / IE 7 c'est pas possible, g plusieurs pc de test

Commentaire de Renfield le 26/07/2007 21:11:53 administrateur CS

j'utiliserai plutot l'API OLELoadPicture

Commentaire de Renfield le 26/07/2007 23:58:54 administrateur CS

euh...
Merci ^^

cette API (exemples un peu partout sur le Net) permet de charger des images en spécifiant une URL).

EBArtSoft a post une source qui permet même de patcher la fonction LoadPicture de VB pour qu'elle puisse utiliser les URL...(très fort, non ?)

Commentaire de Renfield le 27/07/2007 01:03:55 administrateur CS

Dll d'API, c'est pas un ActiveX

'Code by Shige
Private Type TGUID
    Data1 As Long
    Data2 As Integer
    Data3 As Integer
    Data4(0 To 7) As Byte
End Type
Private Declare Function OleLoadPicturePath Lib "oleaut32.dll" (ByVal szURLorPath As Long, ByVal punkCaller As Long, ByVal dwReserved As Long, ByVal clrReserved As OLE_COLOR, ByRef riid As TGUID, ByRef ppvRet As IPicture) As Long
Public Function LoadPicture(ByVal strFileName As String) As Picture
Dim IID  As TGUID
    With IID
        .Data1 = &H7BF80980
        .Data2 = &HBF32
        .Data3 = &H101A
        .Data4(0) = &H8B
        .Data4(1) = &HBB
        .Data4(2) = &H0
        .Data4(3) = &HAA
        .Data4(4) = &H0
        .Data4(5) = &H30
        .Data4(6) = &HC
        .Data4(7) = &HAB
    End With
On Error GoTo ERR_LINE
    OleLoadPicturePath StrPtr(strFileName), 0&, 0&, 0&, IID, LoadPicture
    Exit Function
ERR_LINE:
    Set LoadPicture = VB.LoadPicture(strFileName)
End Function
Private Sub Form_Load()
    Set Me.Picture = LoadPicture("http://www.allapi.net/images/allapi_logo.gif")
End Sub

Commentaire de 6h le 08/08/2007 21:14:57

J'ai le même problème que plus haut, à savoir que le bouton  n'a pas de nom.

Je tente de faire Doc.Forms(1).submit pour tenter de valider le formulaire quand même ? Ca ne marche pas. Je suis assez débutant faut dire mais si tu pouvais m'aider, ce me serait très précieux :)

Commentaire de thibaud28 le 12/08/2007 11:12:01

Ca fait une heure que je tourne en rond en essayant d'enviyer un formulaire qui n'a pas de nom et qui contient un bouton submit sans nom lui aussi !
J'utilise : IE.Document.Forms(1).Submit
Mais toujours la même erreur :
"Run time error (91) :
Objet Variable or With Block not set"
Quelqu'un aurait-il la solution? merci d'avance

Commentaire de thibaud28 le 14/08/2007 18:51:36

Merci pour la réponse mais voila la nouvelle erreur :
j'utilise "IE.document.Forms(0).submit"
et il me retourne :
RunTime error '438':
Object doesn't support this property or method.


Que dois-je faire?

Commentaire de popol70 le 08/11/2007 17:32:39

là, moi je dis chapeau...je cherchais ça depuis un moment
je vais tester de suite au taf et à la maison
j'aurais surement des questions...

Commentaire de Renfield le 25/12/2007 22:10:31 administrateur CS

Je suppose que tu dois pouvoir récuperer une instance de ce lien (objet link de la collection links)
et de faire oLink.Click

a tester...

Commentaire de jjmaster le 18/01/2010 16:59:27

Merci beaucoup
Tres interessant

Commentaire de Renfield le 12/07/2010 18:47:14 administrateur CS

utilisable dans Excel, oui, tout a fait.

enfin... en repiquant le code via un editeur de texte

Commentaire de Renfield le 12/07/2010 20:21:54 administrateur CS

rien.
lil est a utiliser avec vb6

je peux ajouter un exemple excel si tu le souhaites
que cherches tu as faire dans ton classeur ?

Commentaire de Renfield le 12/07/2010 23:51:28 administrateur CS

mouarff...
on peux pas dire que t'es objectif, l'ami ^^

Commentaire de Renfield le 16/11/2010 01:32:48 administrateur CS

pour trouver les elements, recherche les <options> contenues

pour en selectionner une, je crois me souvenir qu'il m'a fallu modifier l'attribut selected de l'element <option> desire ...

Commentaire de Renfield le 16/11/2010 13:53:12 administrateur CS

Pas acces a la page HTML ?
comment cela ?

Commentaire de Renfield le 17/11/2010 08:56:36 administrateur CS

Comme je te l'ai dit, il suffit de modifier la propriété Selected du HTMLOptionElement de ton choix...


exemple :

<select id="planet" size="8">
<option>Mercure</option>
<option>Venus</option>
<option>Terre</option>
<option>Mars</option>
<option>Jupiter</option>
<option>Saturne</option>
<option>Uranus</option>
</select>


Private Sub Command1_Click()
    '# Nous allons selectionner la terre...
    SelectHTMLItem "planet", "Terre"
End Sub

Private Sub SelectHTMLItem(ByRef vsIDSelect As String, ByRef vsItem As String)
Dim oSelect As Object
Dim oOption As Object
    Set oSelect = WebBrowser1.Document.getElementById(vsIDSelect)
    If Not Nothing Is oSelect Then
        'If TypeOf oSelect Is HTMLSelectElement Then '# Possible d'utiliser ce test, ou le suivant
        If TypeName(oSelect) = "HTMLSelectElement" Then
            For Each oOption In oSelect.getElementsByTagName("option")
                If oOption.Text = vsItem Then
                    oOption.Selected = True
                    Exit For
                End If
            Next
        End If
    End If
End Sub

Commentaire de JuJuJoJo le 07/12/2010 11:41:20

Bonjour
S'il reste encore des gens à l'écoute

Je cherche, après avoir lancer la page qui m'intéresse, savoir si un ascenseur verticale est présent ou pas.
Est-ce possible ?

Commentaire de LEBRIOU le 08/12/2011 22:25:51

Bravo! c'est ce que je recherchais: les  exemples permettent de mieux comprendre.
Ou peut-on avoir une documentation sur ce type de commande?
merci

Commentaire de LEBRIOU le 09/12/2011 21:36:42

merci votre réponse rapide , mais je n'obtiens aucune aide pour cette référence même dans votre projet.
je découvre ce domaine de programmation qui correspond à un projet que je cherche à développer interagir sur une page HTML.
je cherche actuellement une aide pour ce type de commandes.l'explorateur d'objets en donne bien la liste
mais aucun détail ni sur  leur fonction ni sur la syntaxe.Actuellement c'est grâce à des exemples comme les votre et quelques tâtonnements que
j'arrive péniblement à réaliser ce que je cherche à faire: par exemple changer (ou lire) la valeur d'une zone de saisie
je n'ai rien trouvé d'exploitable sur le site de microsoft (mais j'ai peut être mal chercher)

En bidouillant, j'ai pu énumérer  et lire les options d'un listebox:
de la forme:    <option value="IRL" title="irlande">irlande</option>

Dim iDoc As IHTMLDocument2
For I = 0 To iDoc.All.tags("option").length - 1
                    Texte = iDoc.All.tags("option").Item(I).innerText
                    Cle = iDoc.All.tags("option").Item(I).Value
                    .......
next

mais j'ai l'impression de redécouvrir la roue...quelques pistes d'exemples ou d'aides seraient les bien venues...