请问如何用webbrowser控件，通过代理服务器上网。

Question

没有办法了！
我也正在找！

Answer 1

对，兄弟我 也正在找不知道你现在找到没，找到了就贴出来大家分享一下

Answer 2

'frmBrowser.frmPrivate Sub CoolBar1_HeightChanged(ByVal NewHeight As Single)
    '
    WebBrowser1.Height = Me.ScaleHeight - CoolBar1.Height - StatusBar1.Height
    WebBrowser1.Width = Me.ScaleWidth
    '
End SubPrivate Sub Form_Resize()
    '
    On Error Resume Next
    '
    WebBrowser1.Height = Me.ScaleHeight - CoolBar1.Height - StatusBar1.Height - 20
    WebBrowser1.Width = Me.ScaleWidth
    '
End SubPrivate Sub mnuBack_Click()
    On Error Resume Next
    WebBrowser1.GoBack
End SubPrivate Sub mnuClose_Click()
    Unload Me
End SubPrivate Sub mnuForward_Click()
    On Error Resume Next
    WebBrowser1.GoForward
End SubPrivate Sub mnuHomePage_Click()
    WebBrowser1.GoHome
End SubPrivate Sub mnuOpen_Click()
    WebBrowser1.ExecWB OLECMDID_OPEN, 0, Null, Null
End SubPrivate Sub mnuProxy_Click()
    frmProxyTest.Show vbModal
End SubPrivate Sub mnuRefresh_Click()
    WebBrowser1.Refresh
End SubPrivate Sub mnuStop_Click()
    WebBrowser1.Stop
End SubPrivate Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
    '
    Select Case Button.Index
        Case 1
            WebBrowser1.GoBack
        Case 2
            WebBrowser1.GoForward
        Case 3
            WebBrowser1.Stop
        Case 4
            WebBrowser1.Refresh
        Case 5
            WebBrowser1.GoHome
        Case 7
            frmProxyTest.Show vbModal
    End Select
    '
End SubPrivate Sub txtURL_KeyPress(KeyAscii As Integer)
    '
    If KeyAscii = 13 Then
        WebBrowser1.Navigate txtURL.Text
    End If
    '
End SubPrivate Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
    txtURL.Text = URL
End Sub
Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)
    StatusBar1.Panels(1).Text = Text
End SubPrivate Sub WebBrowser1_TitleChange(ByVal Text As String)
    Me.Caption = Text
End Sub