Proxies in your downloader[Source Code]

[io.kent]

Aceasta sursa proxy de a utiliza Proxy in downloader pentru a reduce interzicerea IP cum ar fi ca , prin utilizarea acestui, ave?i nevoie WebBrowser Button Public Class Form1 de incarcare Adaugati acest cod: - [Acest lucru va reseta IP curent in proxy]

Proxy shit
    Public Structure Struct_INTERNET_PROXY_INFO
    Public dwAccessType As Integer
    Public proxy As IntPtr
    Public proxyBypass As IntPtr
    End Structure
    <Runtime.InteropServices.DllImport("wininet.dll", SetLastError:=True)> _
    Private Shared Function InternetSetOption(ByVal hInternet As IntPtr, ByVal dwOption As Integer, ByVal lpBuffer As IntPtr, ByVal lpdwBufferLength As Integer) As Boolean
    End Function

    Private Sub Devilmaycry(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.InteropServ ?ices.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

Click the Button1 and Add this Code :-

[This will navigate the website using proxies]

("IP:PORT")
        webbrowser1.navigate("http://www.whatismyip.com")

Succes...

Edited June 17, 2013 by io.kent