同时在不同的WebBrowsers上使用不同的代理

时间:2014-12-21 22:41:03

标签: vb.net visual-studio-2010 visual-studio proxy

作为标题我想知道是否有一种方法在各种WebBrowser上同时使用不同的代理。 起初我尝试插入5个WebBrowser并创建5个线程,并且每个执行此子(我在互联网上找到)来更改代理:

Public Structure Struct_INTERNET_PROXY_INFO
    Public dwAccessType As Integer
    Public proxy As IntPtr
    Public proxyBypass As IntPtr
End Structure

Private Declare Auto Function InternetSetOption Lib "wininet.dll" (ByVal hInternet As IntPtr, ByVal dwOption As Integer, ByVal lpBuffer As IntPtr, ByVal lpdwBufferLength As Integer) As Boolean

Private Sub RefreshIESettings(ByVal strProxy As String)
    Const INTERNET_OPTION_PROXY As Integer = 38
    Const INTERNET_OPEN_TYPE_PROXY As Integer = 3
    Dim s_IPI As Struct_INTERNET_PROXY_INFO
    s_IPI.dwAccessType = INTERNET_OPEN_TYPE_PROXY
    s_IPI.proxy = System.Runtime.InteropServices.Marshal.StringToHGlobalAnsi(strProxy)
    s_IPI.proxyBypass = System.Runtime.InteropServices.Marshal.StringToHGlobalAnsi("Global")
    Dim intptrStruct As IntPtr = System.Runtime.InteropServices.Marshal.AllocCoTaskMem(System.Runtime.InteropServices.Marshal.SizeOf(s_IPI))
    System.Runtime.InteropServices.Marshal.StructureToPtr(s_IPI, intptrStruct, True)
    InternetSetOption(IntPtr.Zero, INTERNET_OPTION_PROXY, intptrStruct, System.Runtime.InteropServices.Marshal.SizeOf(s_IPI))
End Sub

但是失败了,因为发现ip是相同的,或者在某些情况下是相同的,4 ip 1是不同的。

0 个答案:

没有答案