Как подключить winform к Интернету через прокси-сервер

57
4

Я пишу настольное приложение на С# и .Net 2.0, которое потребляет веб-службы, и я предусматриваю случай, когда приложение находится за прокси-сервером, например пример в этом вопросе.


Это отличная идея и установит мой app.config таким же образом, но сейчас я хочу протестировать соединение, указав имя пользователя и пароль. Прокси-сервер, который у меня есть, просто предназначен для тестирования и на самом деле не мешает подключению к Интернету.


Я понял, что такие приложения, как Netbeans или Visual Studio — привести несколько примеров; серьезно относитесь к этому прокси-серверу, предоставляя полный раздел в своих вариантах или формах предпочтений, и я хочу сделать то же самое. Я также читаю, что реализация соединения через socks4 или socks5 является довольно жесткой. Так можете ли вы поделиться своими знаниями об этом?


Спасибо за чтение.

спросил(а) 2020-04-04T00:17:45+03:00 6 месяцев, 2 недели назад
1
Решение
70

Подключение к веб-службе через прокси-сервер
http://www.codeproject.com/KB/webservices/web_service_by_proxy.aspx


Пример кода:

' Search button: do a search, display number of results 
Private Sub btnSearch_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles btnSearch.Click

' Create a Google Search object
Dim s As New Google.GoogleSearchService

Try

' google params
Dim strLicenceseKey As String = "google license key" ' google license key
Dim strSearchTerm As String = "Bruno Capuano" ' google license key

' proxy settings
Dim cr As New System.Net.NetworkCredential("user", "pwd", "MyDomain")
Dim pr As New System.Net.WebProxy("127.0.1.2", 80)

pr.Credentials = cr
s.Proxy = pr

' google search
Dim r As Google.GoogleSearchResult = s.doGoogleSearch(strLicenceseKey, _
strSearchTerm, 0, 10, True, "", False, "", "", "")
' Extract the estimated number of results for the search and display it
Dim estResults As Integer = r.estimatedTotalResultsCount

MsgBox(CStr(estResults))

Catch ex As System.Web.Services.Protocols.SoapException

MsgBox(ex.Message)

End Try

End Sub

ответил(а) 2020-04-04T00:33:36.643607+03:00 6 месяцев, 2 недели назад
Ваш ответ
Введите минимум 50 символов
Чтобы , пожалуйста,
Выберите тему жалобы:

Другая проблема