[VB] Cliquer sur un bouton dans une page Web qui n'a pas de nom

Marsh Posté le 19-08-2004 à 10:07:41

Voila mon probleme:
J'ai une page web générée php avec une partie avec une case et un bouton
Voila le morceau:

Code :

<form method="post" action="repartir.php">
<center>
<table border="0" cellspacing="0" cellpadding="0" class="styleText">
<tr valign="bottom"><td rowspan="2" width="90" align="left" valign="center">valeur: </td><td>en dessous</td></tr>
<tr><td><input type='text' name='thetxtbox' maxlength='3' size='3' value='3'> %</td></tr></table>
<br /><br />
<input type="submit" value="Répartir">
</center>
</form>

J'ai donc fait le code suivant:

Code :

Sub test()
'crée un objet internet Explorer
Set IE = New InternetExplorer
'le rend visible
IE.Visible = True
'ouvre une page...
IE.Navigate "adressedelapage.php"
Do While IE.ReadyState <> 4 'attend que la page soit chargée
DoEvents
Loop
IE.Document.all.Item("thetxtbox" ).Value = "100" 'textbox...
IE.Document.all("button" ).click 'clique...
End Sub

Mais evidement ca marche pas car le bouton n'a pas de nom, et je ne peux pas l'appeler "button"...
Ma question est donc de savoir comment cliquer dessus, ou bien comment liste les noms des objets dans une page web pour pouvoir ensuite l'appeler ?

Merci

Marsh Posté le 19-08-2004 à 10:07:41

Marsh Posté le 19-08-2004 à 10:51:20

C'est bon je l'ai resolu, comme ce n'etait pas un bouton, mais un formulaire, il fallait utiliser la methode submit du form, mais sur le bon element d'ou le code:

Code :

For Each objElement In IE.Document.Forms(0).Elements
If (LCase(objElement.Type) = "submit" ) Then
objElement.Click
Exit For
End If
Next

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed

Name *

Email *

URL

Message *