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

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

2 голосов
/ 28 мая 2009

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

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

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

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

1 Ответ

2 голосов
/ 31 мая 2009

Подключение к веб-службе через прокси-сервер
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
...