WebBrowserコントロールでProxyを通すには? (ID:102521)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

VB.net 2008でブラウザもどきを作成しております。
インターネットオプションの設定に依存せずにproxyの設定を行いたいので
UrlMkSetSessionOptionを使用しているのですが、直接接続になってしまいます。

どなたか御教示ください。

Public Declare Sub UrlMkSetSessionOption Lib "urlmon.dll" _
                                            (ByVal dwOption As Integer, ByVal pBuffer As INTERNET_PROXY_INFO, _
                                             ByVal dwBufferLength As Integer, _
                                             ByVal dwReserved As Integer)

Public Enum InternetOpenType
        INTERNET_OPEN_TYPE_PRECONFIG = 0
        INTERNET_OPEN_TYPE_DIRECT = 1
        INTERNET_OPEN_TYPE_PROXY = 3
        INTERNET_OPEN_TYPE_PRECONFIG_WITH_NO_AUTOPROXY = 4
    End Enum

Public Structure INTERNET_PROXY_INFO
        Public InternetOpenType As InternetOpenType
        Public proxy As String
        Public proxyBypass As String
    End Structure

Public Sub InternetOptionProxy(ByVal nOpenType As InternetOpenType, ByVal proxy As String, ByVal proxyBypass As String)
        Const INTERNET_OPTION_PROXY As Integer = 38
        Dim ipi As INTERNET_PROXY_INFO

ipi.InternetOpenType = nOpenType
        ipi.proxy = proxy
        ipi.proxyBypass = proxyBypass

Call UrlMkSetSessionOption(INTERNET_OPTION_PROXY, ipi, Marshal.SizeOf(ipi), 0)
    End Sub

Private Sub wbsDisplay_Navigating(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserNavigatingEventArgs) Handles wbsDisplay.Navigating
        Call InternetOptionProxy(InternetOpenType.INTERNET_OPEN_TYPE_PROXY, "localhost:8080", "")
    End Sub

←解決時は質問者本人がここをチェックしてください。

戻る