Winsock1 me renvoie une erreurRésolu

Question

Bonjour, je n'arrive pas à me connecter sur un serveur Web avec Winsock1. Voici le code que j'utilise : Winsock1.RemoteHost = "www.vbfrance.com" Winsock1.RemotePort = 80 Winsock1.Connect Dim CommandeHTTP As String Dim URLPageWeb As String URLPageWeb = "http://www.vbfrance.com/" CommandeHTTP = "GET " & URLPageWeb & " HTTP/1.0" & vbCrLf & "Accept: */*" & vbCrLf & "Accept: text/html" & vbCrLf & vbCrLf Winsock1.SendData CommandeHTTP '==> Ici l'erreur Dim HTTPDonnees As String Winsock1.GetData HTTPDonnees, vbString Text1.Text = HTTPDonnees Je reçois une erreur d'exécution 40006 me disant "Etat de connexion ou protocole érroné pour la transaction". Le débogage me renvoie à la ligne indiquée plus haut. merci de m'aider

Gobillot · Accepted Answer

il manque le Winsock1.Connect

le SendData doit &#234;tre fait dans l'&#233;v&#234;nement  Winsock1_Connect

le GetDtata doit &#234;tre fait dans Winsock1_DataArrival

et ta CommandeHTTP a des erreurs.

bref tout est &#224; revoir ...


Daniel

katsankat · Answer

D&#233;j&#224;, ne pas tester les applications r&#233;seau sur www.vbfrance.com. C'est le minimum syndical.

Prends la page de ton FAI ou une page perso si tu en as une.



Pour le reste Daniel est correct.

Inutile de sp&#233;cifier le protocole et le nom de domaine dans la variable URLPageWeb puisque seule l' URI doit y figurer.

Par contre il faut indiquer le "Host:" au serveur, pour le cas o&#249; le serveur h&#233;berge des h&#244;tes virtuels.

Et, pas la peine de d&#233;finir 2 fois le "Accept:" &#231;a embrouille le serveur et ce n'est pas obligatoire.

Sinon &#231;a a l' air bon tu es sur la bonne voie.

Winsock1 me renvoie une erreur

2 réponses

Discussions similaires