Как подключиться к серверу через Proxy...

[Trinux]

Помогите плиз, как я моку из VB послать запрос на Proxy сервер и получить ответ. т.е. мне нужно допустим ананимно заполнить Get форму, как я могу это сделать средствами VB?

[Dagobert]

Как я понял данные передаются в запросе т.е.
ццц.там.где/файл.расш?пар1=знач1&пар2=знач2.
Если так, то могу предложить два варианта.
1. API:

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

Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long

При этом используется прокси сервер по умолчанию, а результат сохранится в файл.

2. Winsock.
Например:

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

Private Sub Form_Load()
    'Соединение с прокси

    Winsock1.Connect "IP.адрес.прокси.сервера", порт
    End Sub

Private Sub Form_Resize()
    Text1.Move 0, 0, ScaleWidth, ScaleHeight
    End Sub

Private Sub Winsock1_Connect()
    Dim sTemp As String
    Text1.SelText = "Connected to " & Winsock1.RemoteHostIP & vbCrLf & String$(16, "-") & vbCrLf
    ' Готовим запрос через прокси
    sTemp = "GET http://www25.brinkster.com/msvbasic/default.asp?p=gb HTTP/1.0" & vbCrLf
    sTemp = sTemp & "Host: www25.brinkster.com" & vbCrLf
    sTemp = sTemp & vbCrLf
    ' отправляем запрос
    Winsock1.SendData sTemp
    Text1.SelText = sTemp & vbCrLf & String$(16, "-") & vbCrLf
    End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
    Dim sTemp As String
    Winsock1.GetData sTemp, vbString
    Text1.SelText = sTemp
    End Sub

Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
    Text1.SelText = "-----------ERROR-----------" & vbCrLf & description & vbCrLf & String$(16, "-") & vbCrLf
    End Sub

Если будут проблемы с кодом, сообщи.

P.S. А что значит анонимно?

[Trinux]

Спасибо блин большое! Большое блин спасибо! (ну и.т.) Как опробую, сразу сообщу. Дело в том, что пишу робота, который бкдет самостоятельно страницы на наличие дыр изучать, и мне нужно, чтоб он делал это не от соего имени =). Чуть что - свяжусь!