Lien dans le WebBrowser1

kelm_by Messages postés 296 Date d'inscription mardi 9 janvier 2007 Statut Membre Dernière intervention 21 novembre 2008 - 2 juil. 2007 à 01:11
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 - 2 juil. 2007 à 06:36
re svp je ne trouve aucun erreur maus ca bug merci

Private Sub WebBrowser1_DownloadComplete()
a = WebBrowser1.Document.links.length - 1
x = CInt(Int((a * Rnd()) + 1))
WebBrowser2.Navigate2 WebBrowser1.Document.links.Item(x)
End Sub

2 réponses

cs_MPi Messages postés 3877 Date d'inscription mardi 19 mars 2002 Statut Membre Dernière intervention 17 août 2018 22
2 juil. 2007 à 04:25
Ce ne serait pas plutôt
a = WebBrowser1.Document.links. Count - 1  ' et enlever le - 1 éventuellement (?)

Et pourquoi un CInt d'un Int ?
x = Int((a * Rnd()) + 1)      ' devrait suffire, non ?

MPi
0
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 74
2 juil. 2007 à 06:36
non, MPi, c'est bien .Length...

j'ai testé un peu, j'ai fait :

? WebBrowser1.Document.Links.length
15
? WebBrowser1.Document.links.item(6)
http://www.google.fr/intl/fr/options/
, ----
By Renfield

cela devrait donc fonctionner. Mis à part le fait que tu utilises pour une raison inconnue Navigate2 (qui a cette différence par rapport à .Navigate, que l'on peut lui donner un PIDL comme adresse, plutot qu'une URL => inutile donc, dans ton cas)...

As tu bien appelé au moins une fois dans ton code, la fonction Randomize, qui eviterait que tu retombes toujours et touours surle(s) même lien(s)  ?

ton code autour du rnd empeche d'avoir le lien #0... peut etre est-ce voulu...

En fait, la raison du non-fonctionnement est simplement que tu n'es pas dans le bon evenement...
utilises WebBrowser1_DocumentComplete

Renfield
Admin CodeS-SourceS- MVP Visual Basic
0
Rejoignez-nous