Validation dans page Html

Bonjour à tous

Je suis en train de faire un logiciel qui va me permettre de saisir
dans une page Html des champs, puis de valider cette page afin
d'obtenir les résultats.

J'ai un problème pour valider ma saisie, puisque le bouton ne possede
pas de nom sur la page.
Comment puis-je faire pour valider.

Voici mon code:
--------------------------------------------------------------------------

-------------------------------------
Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As
Variant)

'***********************************
'PENSE A ::
'Rempacer Artist, Album, Song par des variables de memes
noms attachés aux contenu des textBox
'***********************************

If URL = "http://www.gracenote.com/music/" Then

WebBrowser1.Document.getElementsByName("qartist").Item(0).Value > "Artist"
WebBrowser1.Document.getElementsByName("qdisc").Item(0).Value > "Album"
WebBrowser1.Document.getElementsByName("qtrack").Item(0).Value > "Song"

'marche pas

Click

'Fais tout planter
'SendKeys "{ENTER}"

'marche pas
'WebBrowser1.SendKeys "{ENTER}"


End If

End Sub

Salut,

Essaye qqch comme Document.Forms(0).Submit()

Cf :

--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
http://apisvb.europe.webmatrixhosting.net/

Shewy du 80 !! <not> a écrit :

> Bonjour à tous
>
> Je suis en train de faire un logiciel qui va me permettre de saisir
> dans une page Html des champs, puis de valider cette page afin
> d'obtenir les résultats.
>
> J'ai un problème pour valider ma saisie, puisque le bouton ne possede
> pas de nom sur la page.
> Comment puis-je faire pour valider.
>
> Voici mon code:

--------------------------------------------------------------------------
--
> -------------------------------------
> Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As
> Variant)
>
> '***********************************
> 'PENSE A ::
> 'Rempacer Artist, Album, Song par des variables de memes
> noms attachés aux contenu des textBox
> '***********************************
>
> If URL = "http://www.gracenote.com/music/" Then
>
> WebBrowser1.Document.getElementsByName("qartist").Item(0).Value > > "Artist"
> WebBrowser1.Document.getElementsByName("qdisc").Item(0).Value > > "Album"
> WebBrowser1.Document.getElementsByName("qtrack").Item(0).Value > > "Song"
>
> 'marche pas
>

> Click
>
> 'Fais tout planter
> 'SendKeys "{ENTER}"
>
> 'marche pas
> 'WebBrowser1.SendKeys "{ENTER}"
>
>
> End If
>
> End Sub