подключение к прокси через Winsock

[Dromok]

Итак, нужно подключиться к прокси серверу, послать ему запрос (GET ...) и получить от него ответ.
Пишем код:

Код: Выделить всё


Private Sub Form_Load()
    Winsock1.RemoteHost = "localhost" 'адрес прокси-сервера
    Winsock1.RemotePort = 8080 'порт прокси сервера
End Sub

Private Sub Command1_Click()
    Winsock1.Connect 'подключаемся
    Winsock1.SendData "GET http://ya.ru/ HTTP/1.1" 'шлем запрос
End Sub

Private Sub tcpClient_DataArrival (ByVal bytesTotal As Long)
   Dim strData As String
   Winsock1.GetData strData 'получаем ответ
   Text1.Text = strData
End Sub


Но ответ от прокси не приходит... пробовал подключаться к разным проксям... результат нулевой...
Притом опять же с помощью Winsocks создал сервер. И этот сервер прекрасно обменивается данными с моим клиентом. А вот реальный прокси сервер не хочет общаться с моим клиентом :о(
В чем может быть проблема?

[GSerg]

Дожидаться состояния подключенности для начала мысли не возникало?
Накапливать пришедшие ответы в буфер - тоже нет?

И после этого, не возникало ли мыслей прочитать FAQ по формировке строки GET, вместо того чтобы задавать такой вопрос в основном разделе?

http://bbs.vbstreets.ru/viewtopic.php?t=23315