Итак, суть вопроса такова: Необходимо получить ответ от proxy-сервера.
Пишем код:
- Код: Выделить всё
Private Sub Form_Load()
Winsock1.Protocol = sckTCPProtocol 'выбираем протокол
Winsock1.Connect "localhost", 3129 'конектимся к локальному прокси
While Not Winsock1.State = 7 'ждем подключения
DoEvents
Wend
'шлем запрос на прокси ТАКОЙ ЗАПРОС ШЛЕТ ЭКСПЛОРЕР! ТАК ЧТО НЕ КИДАЙТЕСЬ СРАЗУ ГНИЛЫМИ ПОМИДОРАМИ!
Winsock1.SendData "GET http://ya.ru/ HTTP/1.1" & vbCrLf
Winsock1.SendData "Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/x-shockwave-flash, application/vnd.ms-excel, application/vnd.ms-powerpoint, application/msword, */*" & vbCrLf
Winsock1.SendData "Accept-Language: ru" & vbCrLf
Winsock1.SendData "Accept-Encoding: gzip , deflate" & vbCrLf
Winsock1.SendData "User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1)" & vbCrLf
Winsock1.SendData "Host: ya.ru" & vbCrLf
Winsock1.SendData "Proxy-Connection: Keep-Alive" & vbCrLf
End Sub
Я в курсе как принимать ответ через DataArrival. И тем более знаю как накапливать пришедшие ответы в буфере. И я прочитал фак по формированию GET.
Суть не в этом. Если подключаться напрямую к серверу в обход прокси сервера "Winsock1.Connect "ya.ru", 80", то ответ приходит отлично. Но если пытаться подрубиться к прокси, то ответа от прокси не приходит, более того ПРОКСИ В ЛОГЕ НЕ ПОКАЗЫВАЕТ ЧТО К НЕМУ ПОДКЛЮЧАЛИСЬ. Я пробовал подключаться к разным проксям. Везде одно и тоже.
В чем проблема? Кто-нибудь работал с прокси серверами?
