Il suffit de récupéré tout les liens de la page, en prendre un au pif, et simuler le clique
Dim Links As System.Windows.Forms.HtmlElementCollection
Links = TonWebBrowser.Document.Body.GetElementsByTagName("A")
Dim Rnd As New System.Random()
Links(Rnd.Next(0, Links.Count - 1)).InvokeMember("click"),
kelm_by
Messages postés296Date d'inscriptionmardi 9 janvier 2007StatutMembreDernière intervention21 novembre 2008 28 sept. 2007 à 23:48
j'ai essayer avec ca mais ca marche pas
Max = WebBrowser1.Document.Links.length - 1
i = Rnd(Max)
WebBrowser2.Navigate2 WebBrowser1.Document.Links.Item(i)
invalide procedure call or argument
Vous n’avez pas trouvé la réponse que vous recherchez ?