Код для программы, работающей ИЗ инета:
' На форме: CommandButton - Name="Command1"
'Winsock - Name = "ws"
Private Sub Command1_Click()
ws.Connect "1.2.3.4", 3128 ' IP и порт прокси
End Sub
Private Sub ws_Connect()
' DATA_TO_SEND - Переменная с данными для пересылки
ws.SendData "POST
http://5.6.7.8:456/ HTTP/1.0" + vbCrLf
' 5.6.7.8 - IP компа ЗА проксей, 456 - Порт компа ЗА проксей.
ws.SendData "HOST: 5.6.7.8:456" + vbCrLf
ws.SendData "Content-length: " + CStr(DATA_TO_SEND)+vbCrLf+vbCrLf
ws.SendData DATA_TO_SEND + vbCrLf
End Sub
Private Sub ws_SendComplete()
ws.Close
End Sub
Код для проги ЗА проксей (т.е. в интрасети):
' На форме: CommandButton - Name="Command1"
'Winsock - Name = "ws"
'Имя формы = "Form1"
dim dt as string ' Здесь будут принятые данные
Private Sub Form_Load()
ws.LocalPort = 456 ' Понятно зачем
ws.Listen
End Sub
Private Sub ws_ConnectionRequest(requestID as long)
ws.Accept requestID
end sub
Private Sub ws_DataArrival(bytesTotal as long)
dim s as string
ws.GetData s
dt =dt + s
End Sub
Private Sub ws_Close()
n = InStr(dt, vbCrLf+vbCrLf)+2
if n=2 then Exit Sub ' Ошибка - данные не те
dt = mid(dt, n) ' Режем
' Теперь в dt находятся нужные данные
Просто встрой эти 2 кода в форму (чуть-чуть изменив).
P.S. Признаю, есть неточности, но работать точно должно
P.P.S. Если прокси нужны авторизация, то добавь соответствушее поле "Proxy-Authorization"