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.
Espero que te sirva amigo ;)
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 !
ya hice eso sigue sin aparecer lo que responde el servidor en el text3..salu2.
bueno les paso todo el sourvce del programa y ya ustedes me dicen como hago para ver la respuesta del servidor:
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