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

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Trinux
Начинающий
Начинающий
 
Сообщения: 14
Зарегистрирован: 25.11.2003 (Вт) 14:38

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

Сообщение Trinux » 28.11.2003 (Пт) 6:26

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

Dagobert
Продвинутый пользователь
Продвинутый пользователь
 
Сообщения: 141
Зарегистрирован: 21.12.2002 (Сб) 6:48
Откуда: Russia

Сообщение Dagobert » 29.11.2003 (Сб) 6:47

Как я понял данные передаются в запросе т.е.
ццц.там.где/файл.расш?пар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
Начинающий
Начинающий
 
Сообщения: 14
Зарегистрирован: 25.11.2003 (Вт) 14:38

Сообщение Trinux » 29.11.2003 (Сб) 14:23

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


Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: AhrefsBot и гости: 9

    TopList