cherche à atteindre un lien avec webbrowser URGENT SVP !Résolu

Question

bonjour, Voilà j'ai un lien qui est dans une balise comme ci-dessous mais je ne sais pas comment automatiser le clique dessus avec webbrowser: Tous cela fait déjà quelques jours que je bloque la dessus svp aider moi merci d'avance

attaquevertical · Accepted Answer

ouai mais j'en ai deux. Bon voila le code final et fonctionnel pour moi :
 
 Dim Elems As HtmlElementCollection
                Dim WebOC As WebBrowser = nom.WebBrowser1

                Elems = WebOC.Document.GetElementsByTagName("span")

                For Each elem As HtmlElement In Elems
                    Dim NameStr As String
                    NameStr = elem.InnerText

                    On Error Resume Next ' autorise la ligne suivant l'erreur à etre exécutée
                    If ((NameStr IsNot Nothing) And (NameStr.Length <> 0)) Then
                        Err.Clear()
                        On Error GoTo 0   ' désactive la récupération d'erreur (annule le "On Error Resume Next" 

                        On Error Resume Next ' autorise la ligne suivant l'erreur à etre exécutée
                        If NameStr = "Tous" Then
                            Err.Clear()
                            On Error GoTo 0   ' désactive la récupération d'erreur (annule le "On Error Resume Next"
                            elem.InvokeMember("click")

                        End If
                        Err.Clear()
                        On Error GoTo 0   ' désactive la récupération d'erreur (annule le "On Error Resume Next" 
                        'MaskedTextBox1.Text = NameStr
                        ' Dim ContentStr As String = elem.GetAttribute("content")
                        ' MessageBox.Show("Document: " & ContentStr)
                        '  End If
                    End If
                    Err.Clear()
                    On Error GoTo 0   ' désactive la récupération d'erreur (annule le "On Error Resume Next" 
                Next

Renfield · Answer

itères sur la collection obtenue via :
getElementsByTagName("span")

une fois le bon élément trouvé, tu pourras faire :

monObjectSPAN.Click

ou 

monObjectSPAN.FireEvent("onclick")

attaquevertical · Answer

le problème est que j'ai plusieurs span sur ma page alors comment être sur de prendre le bon ??? Exemple je veux cliquer sur le premier : Tous Aucun

attaquevertical · Answer

pardon j'aurais du mieux expliquer dés je début mais je n'ai pas vu tout de suite les autres boutons dans la code

Renfield · Answer

pour ça que je parle bien d'itérer sur une collection d'objets, a la recherche du bon.... (celui dont le texte est 'Tous', par exemple)

attaquevertical · Answer

alors je devrais écrire comme ci-dessous pour trouver le bon directement:

getElementsByTagName("Tous")

ou d'abord rechercher toute la collection span et après tester :

getElementsByTagName("span")

if monObjectSPAN.text.equals("Tous") then 

...

Renfield · Answer

getElementsByTagName("Tous")
ben non... le nom de la balise est bien span

la seconde logique est a appliquer....

attaquevertical · Answer

ok je vais tester tout ca se soir et je te tiens au courant merci

attaquevertical · Answer

voilà mon code 

      Dim oElm As Object
        For Each oElm In Me.WebBrowser1.Document.GetElementById("span")
    
            If oElm.text = "Tous" Then
                 oElm.Click()
            End If
        Next oElm

il me sort cette erreur : 

MissingMemberException

Le membre public 'text' du type 'HtmlElement' est introuvable.

Renfield · Answer

oui, la propriété text  n'existe pas

j'ai validé la logique, la doc t'aurai dit que c'est la propriété innerText qu'il faut consulter.

autre chose, une fois ton bouton trouvé et cliqué, tu peux quitter la boucle 
=> Exit For

Renfield · Answer

tu hésites pas avec la recuperation d'erreur !

no panic !

une fois le innerText récupéré, c'est un bête String, pas de gants particulierrs a prendre, donc.

Cherche à atteindre un lien avec webbrowser URGENT SVP !

11 réponses

Votre réponse

Discussions similaires