alibek писал(а):Первое. Не надо разделять пакеты. Сформируй в одну строку (разделитель - vbCrLf, конец заголовка и начало данных - двойной vbCrLf).
Зачем это?
alibek писал(а):Первое. Не надо разделять пакеты. Сформируй в одну строку (разделитель - vbCrLf, конец заголовка и начало данных - двойной vbCrLf).
Option Explicit
Private Sub Form_Load()
Winsock1.Connect "bbs.vbstreets.ru", 80
End Sub
Private Sub Winsock1_Close()
Debug.Print
Debug.Print "Connection closed."
End Sub
Private Sub Winsock1_Connect()
Winsock1.SendData "GET /viewtopic.php?t=18871&start=30 HTTP/1.1" & vbCrLf
Winsock1.SendData "Host: bbs.vbstreets.ru" & vbCrLf
Winsock1.SendData "Connection: Keep-Alive" & vbCrLf
Winsock1.SendData vbCrLf
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim s As String
Winsock1.GetData s
Debug.Print s;
End Sub
Сейчас этот форум просматривают: AhrefsBot, Majestic-12 [Bot] и гости: 39