Webbrowser

Signaler
Messages postés
181
Date d'inscription
vendredi 3 janvier 2003
Statut
Membre
Dernière intervention
9 avril 2010
-
Messages postés
150
Date d'inscription
samedi 8 avril 2006
Statut
Membre
Dernière intervention
1 mai 2012
-
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

4 réponses

Messages postés
8
Date d'inscription
jeudi 19 avril 2007
Statut
Membre
Dernière intervention
8 septembre 2007

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...
Messages postés
150
Date d'inscription
samedi 8 avril 2006
Statut
Membre
Dernière intervention
1 mai 2012
2
Bah moi je ferais :

Private

Sub WebBrowser1_Navigated(
ByVal sender
As
Object,
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
Messages postés
150
Date d'inscription
samedi 8 avril 2006
Statut
Membre
Dernière intervention
1 mai 2012
2
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
Messages postés
150
Date d'inscription
samedi 8 avril 2006
Statut
Membre
Dernière intervention
1 mai 2012
2
J'ai oublié de préciser qu'il faut rajouter un Inet sur la form ...

Antho2005