none
clic automatique RRS feed

  • Question

  • Bonjour,
    1-
    je veux créer un simple navigateur dans un simple winform qui accède automatiquement à une page web passé en paramètre au moment de l'ouverture de winform (page d'accueil).
    2-
    la page d'accueil que je veux accéder est précédé par une page d'annonce je veux que mon navigateur fait un clic automatique sur le bouton ("SKIP AD") pour passer à la page d'accueil  
    dimanche 11 novembre 2012 13:32

Réponses

  • Bonjour,

    Dans l'événement navigated du webWrowser, vous aurez la possibilité d'accéder sur le contenu html. grâce à webBrowser.Document. Voir un exemple d'accès aux éléments du document :

    http://msdn.microsoft.com/fr-fr/library/system.windows.forms.webbrowser.document%28v=vs.80%29.aspx

     

    Cordialement


    Merci de valider par "Proposer comme réponse" si celle-ci répond à votre demande !

    • Marqué comme réponse Aurel Bera vendredi 16 novembre 2012 09:42
    dimanche 11 novembre 2012 16:36
  • Bonjour,

    Suite à ma première réponse, je vous ai fait un exemple.

    Code :

    Private clicked As Boolean = False
    
        Private Sub WebBrowser1_DocumentCompleted(sender As System.Object, e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
            'Exemple basé sur google. Il faut regarder la valeur ID de votre élément à peupler
            If clicked = False Then
    
                Dim elem As HtmlElement = WebBrowser1.Document.GetElementById("lst-ib")
                If Not elem Is Nothing Then
                    'simulation de taper une recherche
                    elem.InnerText = "achat voiture pas cher"
                    'récupérer le bouton pour lancer la recherche. une fois trouvé, on clic.
                    Dim btn As HtmlElement = getElementByTagAndName("input", "btnK")
                    If Not btn Is Nothing Then
                        btn.InvokeMember("click")
                        clicked = True 'Evite de relancer la recherche. (boucle de recherche infinie)
                    End If
                End If
            End If
            
        End Sub
    
        Private Function getElementByTagAndName(tag As String, _name As String) As HtmlElement
            Dim finalElement As HtmlElement = Nothing
            For Each elem As HtmlElement In WebBrowser1.Document.GetElementsByTagName(tag)
                If elem.Name = _name Then
                    finalElement = elem
                    Exit For
                End If
            Next
            Return finalElement
        End Function
    
        Private Sub _btnManualClick_Click(sender As System.Object, e As System.EventArgs) Handles _btnManualClick.Click
            'récupérer le bouton pour lancer la recherche. une fois trouvé, on clic.
            Dim btn As HtmlElement = getElementByTagAndName("input", "btnK")
            If Not btn Is Nothing Then
                btn.InvokeMember("click")
                'clicked = True 'Evite de relancer la recherche
            End If
        End Sub

    Ensuite voici le projet :

    https://skydrive.live.com/redir?resid=11D26A7936907971!156&authkey=!AErK8TZx2V2_Wjw



    Merci de valider par "Proposer comme réponse" si celle-ci répond à votre demande !

    • Marqué comme réponse Aurel Bera vendredi 16 novembre 2012 09:42
    jeudi 15 novembre 2012 10:08

Toutes les réponses