如何强制Web浏览器控件记住代理凭据设置?

时间:2012-08-01 09:34:11

标签: c# vb.net winforms proxy webbrowser-control

我正在使用.net网络浏览器控件通过带有凭据的代理在新窗口中打开网址。我使用此代码:

Public Function AppendHeader(ByRef OriginalHeader As String, ByVal Addition As String) As Boolean
    If OriginalHeader <> "" Then
        OriginalHeader = OriginalHeader + vbNewLine
    End If
    OriginalHeader = OriginalHeader + Addition
    OriginalHeader.Trim(vbNewLine.ToCharArray)
End Function

Public Function Base64Enc(ByRef s As String) As String
    Base64Enc = Convert.ToBase64String(System.Text.ASCIIEncoding.ASCII.GetBytes(s))
End Function

Public Sub Navigate()
    Dim webBrowser As WebBrowser = New WebBrowser()
    Dim headers As String = ""
    AppendHeader(headers, "Proxy-Authorization: Basic " & Base64Enc("user:pass"))
    'AppendHeader(headers, "Authorization: Basic " & Base64Enc("user:pass"))
    webBrowser.Navigate("http://stackoverflow.com", Guid.NewGuid().ToString(), Nothing, headers)
End Sub

此代码有助于首次隐藏Windows安全窗口,但如果加载网页向其他网址发送请求,则此窗口会一次又一次显示(您可以在下面的屏幕截图中看到它)。

screenshot

那么我该怎么做才能解决这个问题呢? (我使用winforms和vb.net,但C#也适用)

1 个答案:

答案 0 :(得分:1)

尝试一下我无法测试它:)

Private Sub webBrowser_Navigating(ByVal sender As Object, ByVal e As WebBrowserNavigatingEventArgs)

    Dim credentials As New System.Net.NetworkCredential("user", "pwd", "MyDomain") 
    Dim proxy As New System.Net.WebProxy("127.0.1.2", 80) 
    If proxy Is Nothing Then
        e.Cancel = True
    End If

End Sub