kelm_by
Messages postés296Date d'inscriptionmardi 9 janvier 2007StatutMembreDernière intervention21 novembre 2008
-
2 juil. 2007 à 01:11
Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 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
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