clics liens a suivre

Version imprimable

Bonjour,
Je développe un programme en vb net et je n'arrive a trouver un fonction pour que mon programme clic sur un lien attende 30sec et clic sur le lien suivant ?

ex :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
<td width="485" align="center" class="class2" style="FONT-FAMILY: Verdana; FONT-SIZE: 11px; BACKGROUND-COLOR: #ffffff; border:solid 1px #999999; border-top:none;"><span style="margin-left: 3px; text-decoration:none; color: #787878;">
		<a href=visiter.php?publicite=4 target=_blank style="text-decoration:none; color: #FB9233;"><img src="http://www.avenir-affiliation.fr/tagincentive.php?type=image&pseudo=vodemki&service=clicforce&id=1" width="468" height="60" border="0" alt"Gagnez de l'argent en cliquant sur cette publicité" /></a> 								  
		</span></td>
		<td align="center" width="10%" style="FONT-FAMILY: Verdana;FONT-SIZE: 13px; BACKGROUND-COLOR: #ffffff; border:solid 1px #999999; border-left:none; border-top:none;"><span style="margin-left: 3px;">
		23506</span></td>
		</tr>
															
		<tr> 
		<td width="485" align="center" class="class2" style="FONT-FAMILY: Verdana; FONT-SIZE: 11px; BACKGROUND-COLOR: #ffffff; border:solid 1px #999999; border-top:none;"><span style="margin-left: 3px; text-decoration:none; color: #787878;">

		<a href=visiter.php?publicite=6 target=_blank style="text-decoration:none; color: #FB9233;"><img src="http://www.avenir-affiliation.fr/tagincentive.php?type=image& pseudo=vodemki& service=clicforce& id=3" width="468" height="60" border="0" alt"Gagnez de l'argent en cliquant sur cette publicité" /></a> 								  
		</span></td>
		<td align="center" width="10%" style="FONT-FAMILY: Verdana;FONT-SIZE: 13px; BACKGROUND-COLOR: #ffffff; border:solid 1px #999999; border-left:none; border-top:none;"><span style="margin-left: 3px;">
		22888</span></td>
		</tr>
															
		<tr> 
		<td width="485" align="center" class="class2" style="FONT-FAMILY: Verdana; FONT-SIZE: 11px; BACKGROUND-COLOR: #ffffff; border:solid 1px #999999; border-top:none;"><span style="margin-left: 3px; text-decoration:none; color: #787878;">
		<a href=visiter.php?publicite=7 target=_blank style="text-decoration:none; color: #FB9233;"><img src="http://www.avenir-affiliation.fr/tagincentive.php?type=image& pseudo=vodemki& service=clicforce& id=4" width="468" height="60" border="0" alt"Gagnez de l'argent en cliquant sur cette publicité" /></a> 								  
		</span></td>

je voudrais que mon programme ici clic sur chaque lien commencent par :
"href=visiter.php?publicite="

un genre de webdocumment.All("href=visiter.php?publicite=").clic pour le premier puis il les fait tous dans l'ordre

Voilà

merci pour votre aide

thomas

22/02/2010, 15h59
alex_vino
Alors tu fait soit un System.Thread.Sleep() ou mieux un Timer pour tes 30 secondes.

pour cliquer :
Code:

1 2 Dim doc As HtmlDocument = tonWebBrowser.Document doc.GetElementById("yourHrefName").InvokeMember("click")
Ca marche pour un bouton, ça doit être quelque chose du genre pour ton lien ;)

Ou sinon tu charge toutes les 15 secondes ton lien 1 puis ton lien 2 et ainsi de suite.
22/02/2010, 19h47
thomas1014

Bonjour,
Merci pour votre réponse mais il me faudrais quelque chose d'automatique pour les liens j'aimerai qu'il les reconnaissent automatiquement sans avoir a tous les taper 1 par 1.
y aurai-til un moyen ?

merci

thomas
23/02/2010, 08h23
alex_vino

Oui, donne des Name a tes balises <a /> et après tu peux récupérer ces balises grace à ce nom puis faire les actions que tu veux avec.

Ou sinon si ta pas tous les Name, tu dois pouvoir te dépatouiller assez facilement avec un For Each
23/02/2010, 11h30
thomas1014

Bonjour,
C'est une page Html(page web) enffaite donc je ne peut pas rajouter de name au balise(je ne peut pas la modifier), ou alors je ne voie pas comment faire.

Et pour le For each pourai- je avoir un exemple ?svp

Merci

thomas
23/02/2010, 15h13
alex_vino
Affiche la source de ta page Web et regarde si les <a /> portent des attributs Name.

Exemple For Each qui affiche tous les libellés de tes boutons de ton formulaire :
Code:

1 2 3 For Each btn As Button In Me.Controls MessageBox.Show(btn.Text) Next