Naviguer dans une page WEB avec les elements interpretées Résolu

Question

Bonjour

J'ai un souci pour creer une appli qui est cencé remplir des champ d'une page web et clicker sur les bouton pour me faire gagner du temp

Cependant le site a change légèrement je redeveloppe donc pour que mon programme refonctionne mais je rencontre une difficulté:

Je doit clicker sur des élément qui ne figure pas dans le code source de la page; c'est a dire qui sont générée d'une autre facon (JAVAscript).
Et je ne trouve pas la solution

Renfield · Accepted Answer

Jouant dans un simple WebBrowser :


Private Sub Form_Load()
    WebBrowser1.Navigate "https://wwwapps.ups.com/pickup/schedule?loc=fr_FR&WT.svl=PNRO_L1"
End Sub

Private Sub Form_Resize()
    WebBrowser1.Move 0, 0, ScaleWidth, ScaleHeight
End Sub

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Dim oObj As Object
Dim oDoc As HTMLDocument
    If WebBrowser1.ReadyState = READYSTATE_COMPLETE Then
        Set oDoc = pDisp.Document
        Set oObj = oDoc.getElementById("addrMDCompanyId")
        oObj.Value = "company"
        Set oObj = oDoc.getElementById("addrMDPhoneId")
        oObj.Value = "0102030405"
        Set oObj = oDoc.getElementById("addressId")
        oObj.Value = "12 rue Leblanc"
        Set oObj = oDoc.getElementById("pd2Id")
        oObj.Value = "Paris"
        Set oObj = oDoc.getElementById("postalcode")
        oObj.Value = "75015"
        DoEvents
        oObj.FireEvent "onblur"
        
        Do
            DoEvents
        Loop While Nothing Is oDoc.getElementById("chkSrvDomId3'")

        Set oObj = oDoc.getElementById("chkSrvDomId3'")
        oObj.Checked = "checked"
        DoEvents
        oObj.FireEvent "onclick"
    End If
End Sub


gaffe à l'ID du checkbox, doivent avoir un souci de codage, c'est bien :

chkSrvDomId3'


Renfield - Admin CodeS-SourceS - MVP Visual Basic

Renfield · Answer

si javascript les genère ; au final c'est la meme chose: ils sont présents dans le code source...
rien de magique.


Renfield - Admin CodeS-SourceS - MVP Visual Basic

Genildf · Answer

justement il y a aucun trace dans le code source

mais avec l'outil web développer (firefox) je peut voir ce que je cherche dans le code généré

Renfield · Answer

aucun trace dans le code source

quel est le code que tu utilises ?
a quel moment le js ajoutes il les elements recherchés ?

Renfield - Admin CodeS-SourceS - MVP Visual Basic

Genildf · Answer

Je ne sait pas je suis pas vraiment développeur web

c'est des checkbox avec une fonction javasscipt qd tu clique dessus

et cette checkbox ne figure pas dans le code source de la page

Renfield · Answer

comment regarde tu le code source de la page ?

Renfield - Admin CodeS-SourceS - MVP Visual Basic

Genildf · Answer

Alors sur firefox avec afficher le code source mais dans ce cas la je voit pas les checkbox

ou avec webdevlopper en faisant voir le code generé et la je voit

Renfield · Answer

oublies ton naviguateur deux minutes.

le but est bien de piloter la page web depuis ton appli ?

est-ce que ce site web est visible par nous ?

Renfield - Admin CodeS-SourceS - MVP Visual Basic

Genildf · Answer

oui c'est le site pour planifier des enlevemnt UPS

ps voici le code generé


, [javascript:domesticServiceLinkClicked() UPS Standard]

Genildf · Answer

ton code a fonctionné?

Renfield · Answer

yep, ca me remplit le formulaire et me coche la case 'UPS NORMAL'


Renfield - Admin CodeS-SourceS - MVP Visual Basic

Renfield · Answer

NB. j'ai fais ça sous VB6, mais bon, le navigateur est le même ^^

Renfield - Admin CodeS-SourceS - MVP Visual Basic

Genildf · Answer

J'ai pas de do event en VBNET jv essayer de remplacer par un do until

Renfield · Answer

Application.DoEvents


Renfield - Admin CodeS-SourceS - MVP Visual Basic

Genildf · Answer

je bloque au oDoc = pDisp.Document

Le code a marche que une seule fois en le mettant a ma saus mais apres il bloque au do event

Renfield · Answer

tu peux remplacer par WebBrowser1.Document...

faut lire entre les lignes^^

Renfield - Admin CodeS-SourceS - MVP Visual Basic

Genildf · Answer

Bien sur c'est ce que j'ai fait lol

mon WEbroswer s'appel IEexterne mais eme en remplacant ca plante jv essayer de me debuguer

Genildf · Answer

En fait ca marche mais c'est tres lent ya un bon moment ou je peut rien faire (a croire que IE6 plante) 

tu as testé avec lequel toi?

Renfield · Answer

IE8


Renfield - Admin CodeS-SourceS - MVP Visual Basic

Genildf · Answer

IE6 et en plus j'ai pas droit de updater (PC controler par mon boulot)

Hmm comment je peut declarer un web broswer mais avec firefox?

Renfield · Answer

je ne pense pas que cela joues un rôle quelconque. piloter la chose ne ralentit rien, ce sera aussi rapide que de le faire à la main, dans IE6

t'as pas le droit d'updater IE6 mais du as installé FireFox ?
tu joues a ta guise avec les règles ^^

Renfield - Admin CodeS-SourceS - MVP Visual Basic

Genildf · Answer

non mais pour faire simple notre itranet est compatible que avec IE6 donc j'ai pas le droit d'y toucher sinon je peut plus travailler

par contre rien ne m'empeche d'installer des freeware comme firefox

Genildf · Answer

helem = IEexterne.Document.getElementById("domSrvButtonId")
            helem.click()

            Dim oObj As Object
            Dim oDoc As HtmlDocument
            Do
                Application.DoEvents()
            Loop While Nothing Is IEexterne.Document.GetElementById("chkSrvDomId3'")

            oObj = IEexterne.Document.GetElementById("chkSrvDomId3'")
            oObj.Checked = "checked"
            Application.DoEvents()
            oObj.FireEvent("onclick")

Voici mon code c'est pour ainsi dire le même que le tien ,sauf que je doit stresser IE pour que ca réagisse comme le  réduire

Genildf · Answer

Je voit pas pourquoi ya un probleme

j'ai ca pour la fenêtre d'exécution :

Une exception de première chance de type 'System.NullReferenceException' s'est produite dans Microsoft.VisualBasic.dll

Renfield · Answer

bon, ok, je m'y colle....

je code pas en .Net mais je vais porter mon code, au moins pour voir 

Renfield - Admin CodeS-SourceS - MVP Visual Basic

Renfield · Answer

Pas de souci particulier...

Public Class Form1
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        WebBrowser1.Navigate("https://wwwapps.ups.com/pickup/schedule?loc=fr_FR&WT.svl=PNRO_L1")
    End Sub

    Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
        Dim oObj As HtmlElement
        Dim oDoc As HtmlDocument
        If WebBrowser1.ReadyState = 4 Then
            oDoc = WebBrowser1.Document
            oObj = oDoc.GetElementById("addrMDCompanyId")
            oObj.DomElement.Value = "company"
            oObj = oDoc.GetElementById("addrMDPhoneId")
            oObj.DomElement.Value = "0102030405"
            oObj = oDoc.GetElementById("addressId")
            oObj.DomElement.Value = "12 rue Leblanc"
            oObj = oDoc.GetElementById("pd2Id")
            oObj.DomElement.Value = "Paris"
            oObj = oDoc.GetElementById("postalcode")
            oObj.DomElement.Value = "75015"
            Application.DoEvents()
            oObj.DomElement.FireEvent("onblur")

            Do
                Application.DoEvents()
            Loop While Nothing Is oDoc.GetElementById("chkSrvDomId3'")

            oObj = oDoc.GetElementById("chkSrvDomId3'")
            oObj.DomElement.Checked = "checked"
            Application.DoEvents()
            oObj.DomElement.FireEvent("onclick")
        End If
    End Sub
End Class



Renfield - Admin CodeS-SourceS - MVP Visual Basic

Genildf · Answer

Je pense avoir comprit pourquoi ca marche chez toi et pas chez moi

La page doit être différente car moi je suis loggué sur le site a ce moment la je fait des test et je te tien au courant merci de ton soutien en tout cas

Renfield · Answer

note bien que j'utilises 

oObj.DomElement.Value = "company"

et non simplement :

oObj.Value = "company"

Renfield - Admin CodeS-SourceS - MVP Visual Basic

Genildf · Answer

J'ai une invalid cast exception avec ton code 

ca plante a 

oDoc = WebBrowser1.Document

et du coup le reste du code n'est pas executé

Renfield · Answer

strange...  (j'ai joué sous vb2005)

Renfield - Admin CodeS-SourceS - MVP Visual Basic

Genildf · Answer

moi sous vbexpress

hmm oué c bizare

Genildf · Answer

Je declare mon WEB broswer comme ca

 Protected WithEvents WebBrowser1 As SHDocVw.InternetExplorer
          WebBrowser1 = New SHDocVw.InternetExplorer()

Et toi qu'utilise tu?

Genildf · Answer

Je croit avoir trouve on le déclaré pas de la meme facon je n'utilisait pas celui de la boite a outils

la ca marche mais je me prend une msgbox avec une erreur de script dans la page web je doit mettre puis pour continuer

Renfield · Answer

déclaré ? euh, j'ai posé le controle sur la form...

dans VB6, y'avais la propriété Silent pour sacker ce msg

Renfield - Admin CodeS-SourceS - MVP Visual Basic

Genildf · Answer

c ca
moi j'ai declare sans controle ^

avec ta methode c'est ok

Genildf · Answer

Salut j'ai de nouveau un souci (pas tres grave) Merci pour l'aide tout a l'heure par contre vu que j'ai change le composant je doit redevloppe une bonne partie du code " class="webdeveloper-display-form-details"> J'arrive a faire un choix sur cette combobox mais pas a lancer la fonction javascript qui suis des que t'a fait ton choix j'ai essayé fireevent("onkeyup") mais ca marche pas

Renfield · Answer

manque aussi le onfocus, me semble, non 

Renfield - Admin CodeS-SourceS - MVP Visual Basic

Genildf · Answer

helem.DomElement.FireEvent("onfocus")
 helem.DomElement.FireEvent("onblur")
helem.DomElement.FireEvent("onkeyup")

Comme ca?

Renfield · Answer

javascript nous dit :

si on relache une touche, alors, 

déclenche le blur, puis le focus

en gros, ca doit forcer un refresh.

a voir si on doit pas avoir un Application.Doevents après un FireEvent


Renfield - Admin CodeS-SourceS - MVP Visual Basic

Genildf · Answer

Je me retrouve bien avec le focus et tout mais la fonction qui rempli les champ en dessous automatiquement ne se lance pas

Genildf · Answer

helem = IEexterne.Document.GetElementById("adk")

                str2 = Split(IEexterne.DocumentText, centre)
                str2(0) = Mid(str2(0), Len(str2(0)) - 17, 16)
                If UBound(str2) <> 0 Then
                    helem.DomElement.value = str2(0)
                    Application.DoEvents()
                    helem.DomElement.FireEvent("onkeyup")
                    Application.DoEvents()

Renfield · Answer

que cherches tu as faire, au final ?


Renfield - Admin CodeS-SourceS - MVP Visual Basic

Genildf · Answer

Tu peut pas voir mais qd tu est logué sur le site

tu a acces a une combobox ou tu a une liste de noms

et une fois sélectionnée cette liste remplis les champ en dessous comme le nom l'adresse et tout ca

Le but du programme est de planifier un enlevement UPS automatiquement

Renfield · Answer

un onclick ou un onchange règle il la chose ?


Renfield - Admin CodeS-SourceS - MVP Visual Basic

Genildf · Answer

T'es un Dieu pour moi MDR

En effet le on change marche merci pour ton aide et desolé d'avoir fait le lourd ^^

Naviguer dans une page WEB avec les elements interpretées

45 réponses

Votre réponse

Discussions similaires