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
http://madia.world.coocan.jp/cgi-bin/VBBBS/wwwlng.cgi?print+201008/10080008.txt
の 2010/08/22 12:45:03 の投稿を参考に書き換えてみて下さい。