webbrowser

bonjour,
j'aimerais savoir comment faire pour simuler un clic sur un webbrowser petite explication :
sur le site internet de google.fr il y à le lien http://www.google.fr/intl/fr/ads/ j'aimerais que mon programme detecte sa et clic sur le lien en gros l'exe doit regarder si dans le webbrowser il y à bien le lien vers http://www.google.fr/intl/fr/ads/ et si oui alors cool sa clic

pour faire simple j'aimerais savoir comment émuler un clic vers un lien
merci !


123

je me rappele que j'avias voulu faire la meme chose;
si c une page connue  tu peut emuler l'appuis sur une touche assez facilement(je me rappelle plus comment mais cherche)
donc emule le nombre suffisant de tab pour arriver sur le lien puis emule entrer
désolé g pas plus simple...

Bah moi je ferais :

Private

Sub WebBrowser1_Navigated(ByVal sender AsObject, ByVal e As System.Windows.Forms.WebBrowserNavigatedEventArgs) Handles WebBrowser1.Navigated
   Dim adresseLien AsString = "http://www.google.fr/intl/fr/ads/"

   If WebBrowser1.Document.Links.Count > 0 Then
      For i = 0 To WebBrowser1.Document.Links.Count - 1
         If WebBrowser1.Document.Links.Item(i).GetAttribute("href") = adresseLien Then
            WebBrowser1.Navigate(adresseLien)
         End If
      Next
   EndIf

End Sub

Voilà

Antho 2005

Arf, j'avais pas vu que t'étais en vb6  ...

Alors tu peux faire une bidouille comme :

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)

adresseLien = "http://www.google.fr/intl/fr/ads/"

Source = Inet1.OpenURL(WebBrowser1.LocationURL)
result = InStr(Source, "href=""" + adresseLien + """")
If result > 0 Then
WebBrowser1.Navigate adresseLien
End If

End Sub

Ça devrait aller comme ça

Antho2005

J'ai oublié de préciser qu'il faut rajouter un Inet sur la form ...

Antho2005