spastikman
Banido
Código:
Private Sub Command1_Click()
Winsock1.RemoteHost = "techzonept.com"
Winsock1.RemotePort = 80
Winsock1.Connect
Do While Winsock1.State <> sckConnected
DoEvents
Loop
End Sub
Private Sub Winsock1_Connect()
header = header + "GET /index.php HTTP/1.1" + vbCrLf
header = header + "Host: techzonept.com" + vbCrLf
header = header + vbCrLf + vbCrLf
Winsock1.SendData header
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Winsock1.GetData dump, vbString
MsgBox Len(dump)
MsgBox dump
Winsock1.Close
End Sub
Por necessidade, tive de aprender a dar uns toques em VB (blargh ).
O código que está acima serve para retornar o código html da página index.php aqui do forum.
O que acontece é que sempre que retorno dados pelo winsock1.getdata, o tamanho maximo da string criada é de 1452 bytes.
Ora se o index.php tem por exemplo 10 kbytes, a string vai ser truncada e eu preciso de receber o ficheiro completo
Alguem sabe como contornar isto ?