Будет ли WinSock работать на машине, подключённой через прокси-сервер?

Вопрос: Будет ли WinSock работать на машине, подключённой через прокси-сервер? Примеры, которые я здесь нашёл у меня не работают. Может надо как-то указывать координаты прокси?

Будет, потому что я работал с ним через прокси, напиши в чем конкретно проблема, может поможем.

0

Конкретно проблема вот:
Создаём форму, на неё ставим Winsock1
Возьмём за основу пример о получении новостей с www.lenta.ru:

Private Sub Form_Load()

With Winsock1
.RemoteHost = 'www.lenta.ru'
.RemotePort = '8080'
.Connect
End With


End Sub

Private Sub Winsock1_Connect()

Dim strCommand As String
Dim strWebPage As String
'**********
strWebPage = 'http://lenta.ru:8080/r/EX/tabdelimited.html'

strCommand = 'GET ' & strWebPage & ' HTTP/1.0' & vbCrLf
strCommand = strCommand & 'Accept: */*' & vbCrLf
strCommand = strCommand & 'Accept: text/html' & vbCrLf
strCommand = strCommand & vbCrLf
Winsock1.SendData strCommand

End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)

Dim strData As String

Winsock1.GetData strData, vbString


End Sub

Private Sub Winsock1_Close()

Screen.MousePointer = vbDefault

Winsock1.Close

End Sub

Устанавливаем точку останова внутри
Private Sub Winsock1_Connect()
(показана звёздочками в тексте программы)
Запускаем. Видим пустую форму. Долго ждём, когда произойдёт коннект и сработает точка останова, но ничего не происходит, т.е. коннект, как я понял не устанавливается. И в логах прокси нечего нет.

Элементарно, Ватсон.

Просто поправь

With Winsock1
.RemoteHost = 'твой проксятник'
.RemotePort = 'порт твоего проксятника'
.Connect
End With

т.к. ты работаешь напрямую через винсок.

0