Нужно использовать прокси для WinHttpRequest

@RedBox · Регистрация: 08.10.2011

Author24 — интернет-сервис помощи студентам

Нужно использовать прокси для WinHttpRequest, делаю так:

Visual Basic

Dim http_req As New WinHttpRequest, results As String 
http_req.SetProxy HTTPREQUEST_PROXYSETTING_PROXY, "218.22.65.199:8909" 
http_req.Open "POST", "http://site.ru" 
http_req.SetRequestHeader "USER-AGENT", "User-Agent: Opera/9.80 (Windows NT 5.1; U; ru) Presto/2.9.168 Version/11.51" 
http_req.SetRequestHeader "Accept-Encoding", "gzip, deflate" 
http_req.SetRequestHeader "Referer", "http://site.ru" 
http_req.SetRequestHeader "Cache-Control", "no-cache" 
http_req.SetRequestHeader "Keep-Alive", "300" 
http_req.SetRequestHeader "Connection", "Keep-Alive" 
http_req.SetRequestHeader "Content-Type", "application/x-www-form-urlencoded" 
http_req.Send "" & PostValue & "" 
     If http_req.Status = 200 Then 
          results = http_req.GetAllResponseHeaders

Но соединение идёт через мой IP.. в фаерволе вижу что VB6 конектится сразу к "site.ru" а не к прокси.. Что не так ? как прокси работает тут. Искал в гугле и вот ничего по этому поводу не решило мою проблему, может я где ошибку сделал? Может есть ещё варианты проксифицировать мой POST запрос в WinHttp ?

p.s.
Дайте ещё темку если не затруднит, какую-нибудь про лучший на ваш взгляд метод отправки пост\гет запросов через прокси плиз)

@RedBox · 11.10.2011, 03:48 **[ТС]**

Ну неужели никто не знает про прокси ?

Что за ошибка такая:

Run-time error '-2147023783 (80070459)'
Символ Юникода не имеет сопоставления в конечной многобайтовой кодовой странице.

Появляется после нажатия на кнопку ->

Private Sub Command1_Click()
Dim http_req As New WinHttpRequest, results As String
http_req.Open "GET", "http://13-e.ru"
http_req.Send
If http_req.Status = 200 Then
results = http_req.ResponseText ' И сюда VB тычет
Text1.Text = results
End If
End Sub

Как исправить.. ? в гугле на это вообще всяко пробовал искать - пусто.. Может я что не так делаю. что-то на столько глупое что даже в гугле никогда не будет..? помогите

@RedBox 0 / 0 / 0 Регистрация: 08.10.2011 Сообщений: 38
	11.10.2011, 03:48 [ТС]	2
	Ну неужели никто не знает про прокси ? Что за ошибка такая: Run-time error '-2147023783 (80070459)' Символ Юникода не имеет сопоставления в конечной многобайтовой кодовой странице. Появляется после нажатия на кнопку -> Private Sub Command1_Click() Dim http_req As New WinHttpRequest, results As String http_req.Open "GET", "http://13-e.ru" http_req.Send If http_req.Status = 200 Then results = http_req.ResponseText ' И сюда VB тычет Text1.Text = results End If End Sub Как исправить.. ? в гугле на это вообще всяко пробовал искать - пусто.. Может я что не так делаю. что-то на столько глупое что даже в гугле никогда не будет..? помогите 0

Опции темы