hhhp2004
salut,
wns.Connect site, port
For a = 0 To 500000
DoEvents
Next a
If wns.State = sckConnected Then
wns.SendData "GET http://" & site & " HTTP/1.0" & vbCrLf & "Accept : text/html" & vbCrLf & vbCrLf
DoEvents
Do
wns.getdata donnees
doevents
toutsite=toutsite & donnees
Loop until wns.state <> 7
End If
jutilise ce code pour recevoir les donnees qun site menvoye. quand le site finit denvoyer, la connexion se ferme (dou le Loop until wns.state <> 7)
le probleme cest que la connexion se ferme et je nai pas tout les donnees envoyes par le site.
questce que ne va pas?
merci