Quisiera saber como con el control Winsock puedo ver la respuesta del servidor..

[ZaPa]

Hola, quisiera saber como recibir la respuesta del servidor al TExt3... el codigo del programa es este:


Winsock1.SendData ("GET /" & Text2.Text & " HTTP/1.1" & vbCrLf & "Host:" & Text1.Text & vbCrLf & vbCrLf)


Lo que hace es hacer peticiones al servidor, quisiera saber si esta bien echa esa etiketa GET, y también quisiera saber con que codigo puedo ver lo que responde el servidor..salu2.

[- n0sEcReT -]

Espero que te sirva amigo 

Código [Seleccionar] Expandir

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim strData As String
Winsock1.GetData strData
DoEvents
Me.Text3.Text = Me.Text3.Text & strData
End Sub

Salu2 !

[ZaPa]

ya hice eso sigue sin aparecer lo que responde el servidor en el text3..salu2.

[ZaPa]

bueno les paso todo el sourvce del programa y ya ustedes me dicen como hago para ver la respuesta del servidor:

Código [Seleccionar] Expandir

Private Sub Command1_Click()
Winsock1.Connect Text1.Text, 80
End Sub

Private Sub Command2_Click()
Winsock1.Close
End Sub

Private Sub Form_Load()

End Sub

Private Sub Winsock1_Connect()
For i = 1 To Text3.Text
Winsock1.SendData ("GET /" & Text2.Text & " HTTP/1.1" & vbCrLf & "Host:" & Text1.Text & vbCrLf & vbCrLf)
Label4.Caption = Label4.Caption + 1
Next
End Sub


Private Sub Winsock1_SendComplete()
Label4.Caption = Label4.Caption + 1
Winsock1.Close
Winsock1.Connect Text1.Text, 80
End Sub