Discussion :

[edertef]

Bonjour,

ça fais plusieurs jours que je cherche mais sans grand résulats

J'explique mon probleme :
Je voudrais me connecter a un site ( avec la méthode POST ), puis "naviguer" dessus ( mais sans cliquer moi même )...
Je pense que ce n'est pas du tout clair ce que j'ai dit mais bon...

En bref, grace a System.net.Sockets, j'aimerais ouvrir une connexion, puis me logger sur le site. Et enfin afficher le code source...

Je tourne en rond, est-ce que quelqu'un aurai des explications a me fournir s'il vous plait ?


Je vous remercie d'avance !

Edertef

[Jérôme Lambert]

Tu as le composant WebBrowser pour les applications Windows. Il possède une propriété DocumentText qui représente le code source de la page lorsque la page est chargée. Et pour savoir quand la page est chargée, il suffit de traiter l'évènement DocumentCompleted de ton WebBrowser.

[edertef]

Ok merci, avec webbrowser ça marche impec !
je vais essayer de demander le moins possible mais ça va etre dur

[edertef]

Voila ça s'affiche impec, mais je tourne encore une fois en rond a cause d'un FORM !

La page se présente ainsi :

• un menu déroulant
• login
• password

Donc j'ai fais plein de tentatives mais ça ne modifie pas les cases

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 WebBrowser1.Document.Forms("login").InnerText("Test")
'ça me souligne tout en me disant qu'il faut utiliser la valeur renvoyée

donc je fais ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Dim osef As Windows.Forms.HtmlElement
osef = WebBrowser1.Document.Forms("login").InnerText("Test")
'là j'ai droit a "une valeur de type chars ne peut etre converti en Windows.Forms.HtmlElement blablabla

donc je fais enfin ça XD

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Dim osef As char
osef = WebBrowser1.Document.Forms("login").InnerText("Test")
'là ça compile mais ...

Ouai, là ça compile et s'execute mais quand je clique sur le bouton j'ai ça :



Même en mettant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim osef As New Char

ça ne fonctionne pas et remet la meme erreur !

Je suis sur que c'est un truc vraiment tout con, et ça fais maintenant plus de 3H que je suis dessus ^^


Si vous avez des pistes, codages ou autres choses, n'hésitez pas !

[Jérôme Lambert]

A mon avis, l'exception veut tout simplement dire que :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

WebBrowser1.Document.Forms("login")

te renvoie null


Mais par contre, je viens d'essayer de faire ce que tu dis. Ce n'est pas form que tu dois utiliser mais (par exemple) GetElementById qui te permet de récupérer un contrôle html par rapport à son name.

Prenons comme exemple la page http://www.developpez.com/ où nous allons écrire "test" dans la zone de recherche.

En sachant que le textbox de recherche a comme nom q, il suffit d'écrire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
webBrowser1.Document.ActiveElement.Focus()
Dim html As HtmlElement
html = webBrowser1.Document.GetElementById("q")
html.Focus()
html.InnerText = "test"

Et c'est tout

[Jérôme Lambert]

Et pour info, Forms (que tu as utilisé) permet juste de récupérer la liste des balises Forms présentes dans le code source.

http://msdn2.microsoft.com/en-us/lib...ent.forms.aspx