io.kent Posted June 17, 2013 Report Share Posted June 17, 2013 (edited) 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 SubClick 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 Quote Link to comment Share on other sites More sharing options...