Webbrowser
maxsecurite2
Messages postés
181
Date d'inscription
vendredi 3 janvier 2003
Statut
Membre
Dernière intervention
9 avril 2010
-
5 sept. 2007 à 17:48
cs_antho2005 Messages postés 150 Date d'inscription samedi 8 avril 2006 Statut Membre Dernière intervention 1 mai 2012 - 6 sept. 2007 à 18:13
cs_antho2005 Messages postés 150 Date d'inscription samedi 8 avril 2006 Statut Membre Dernière intervention 1 mai 2012 - 6 sept. 2007 à 18:13
4 réponses
dragoonp
Messages postés
8
Date d'inscription
jeudi 19 avril 2007
Statut
Membre
Dernière intervention
8 septembre 2007
6 sept. 2007 à 15:22
6 sept. 2007 à 15:22
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...
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...
cs_antho2005
Messages postés
150
Date d'inscription
samedi 8 avril 2006
Statut
Membre
Dernière intervention
1 mai 2012
3
6 sept. 2007 à 17:54
6 sept. 2007 à 17:54
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
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
cs_antho2005
Messages postés
150
Date d'inscription
samedi 8 avril 2006
Statut
Membre
Dernière intervention
1 mai 2012
3
6 sept. 2007 à 18:04
6 sept. 2007 à 18:04
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
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
cs_antho2005
Messages postés
150
Date d'inscription
samedi 8 avril 2006
Statut
Membre
Dernière intervention
1 mai 2012
3
6 sept. 2007 à 18:13
6 sept. 2007 à 18:13
J'ai oublié de préciser qu'il faut rajouter un Inet sur la form ...
Antho2005
Antho2005
