VB 2010! Webbrowser & Proxy

[Benjihz]

Hey,
Ich hab nen Webbrowser und eine Proxyliste, jetzt will ich den Webbrowser mit einem Proxy verbinden, also das er dann ne andere IP hat, wenn ich mit ihm surfe. Das is der standart Webbrowser aus VB 10 Express..

MFG

[3Angle]

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

Benutzung :

 RefreshIESettings("[PROXY ADDRESS HERE]")

Quelle : = 10 Sekunden Google

Ein anderes Beispiel :