VB 2010! Webbrowser & Proxy

04/28/2013 16:28 Benjihz#1
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
04/28/2013 16:34 3Angle#2
Code:
 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 :
Code:
 RefreshIESettings("[PROXY ADDRESS HERE]")
Quelle : [Only registered and activated users can see links. Click Here To Register...] = 10 Sekunden Google

Ein anderes Beispiel : [Only registered and activated users can see links. Click Here To Register...]