Salut à tous j'ai un petite problème au niveau d'un requête HTTP pour une connexion voici ma requête : ``` WebBrowser1.Document.GetElementById("login_player").SetAttribute("value", TextBox1.Text) WebBrowser1.Document.GetElementById("login_passwd").SetAttribute("value", TextBox2.Text) Dim allelements As HtmlElementCollection = WebBrowser1.Document.All For Each webpageelement As HtmlElement In allelements If webpageelement.GetAttribute("value") = "LOGIN" Then webpageelement.InvokeMember("click") End If Next ```Enfaite sa ne veux pas cliquer sur le bouton login voici le site : [http://kingsage.fr/](http://kingsage.fr/)Donc si vous pouviez m'aider merci.Cordialement mrfrag

C'est normal dans le "value" de ce submit il n'y a pas de "LOGIN" c'est ""Il va falloir que tu compte le nombre d'input jusqu'a celui ci pour tous les parcourir jusqu'au nombre que tu as trouvé et là tu fais InvokeMember("click")

Ce n'est pas du HTTP web request que tu fais la raphael, mais du "webbrowser".Le HTTP web request est complétement diffèrent et plus dur aussi mais plus efficace.Sinon Munkellz a donné la réponse.

Ah ba chez pas on m'avez dit que c’était une web request ... mais merci de vos réponse :)

Es que ta un bout de code ? :D ji arrive pas ...

Résolue voici le code : ``` WebBrowser1.Document.GetElementById("login_player").SetAttribute("value", TextBox1.Text) WebBrowser1.Document.GetElementById("login_passwd").SetAttribute("value", TextBox2.Text) Dim allelements As HtmlElementCollection = WebBrowser1.Document.All For Each webpageelement As HtmlElement In allelements If webpageelement.GetAttribute("type") = "submit" Then webpageelement.InvokeMember("click") End If Next ```

J'aimerais savoir si pour parvenir a ceci je dois impérativement ajouté une WebBrowser dans ma form ou dois-je simplement ajouté une variable de type WebBrowser ? Merci de votre réponce ;)

Je pense que si tu instancies un objet de type webbrowser cela devrait marcher.Mais là à part faire le test toi même (ça prend 1 minute) je ne vois pas trop ce que tu veux de plus ^^.

Merci @Gerarff ;)Je test et je te dis quoi ;)

J'ai tester en instancians un objet de type webbrowser mais sa ne marche pas .. Dim s As New WebBrowser Dim z As New WebBrowser Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click s.Navigate("http://translate.google.fr/#fr/en/f") If TextBox3.Text "" Then z.Document.GetElementById("source").SetAttribute("value", TextBox3.Text) End If End SubEnd Class

Alors il s'avère que c'est un élément graphique ^^.Utilise des webrequest ce sera mieux.

Ce site est optimisé pour être consulté depuis un navigateur moderne dans lequel JavaScript est activé.

WebRequest

Wordeur

Bonsoir , un nouveau problème est parvenue (pas lors de l'envoie de traduction mais le problème et pour la recevoir quand le code s’exécute une erreur apparais)

Dim Recup As String = WebBrowser1.Document.GetElementById("result-box").InnerHtml

MsgBox(Recup)

</spoiler>

L'IDE site : La référence d'objet n'est pas définie à une instance d'un objet.

Du coup je ne comprend vraiment pas ... Merci de votre réponse

Cordialement Wordeur

Wordeur

« Page précédente