Vb.Net Proxy Değiştirici Kodlama

[ravex]

Gerekenler
5 Adet Label
2 Adet Button
5 Tane Label Adlarını Şunları Yazıyoruz
Label 1:İp
Label 2: Port
Label3:Geçerli Proxy
Label4: 0.0.0.0.0:21
Label5:Url
Public Class Form1 bu kodun üstüne

Imports System.Runtime.InteropServices

Yazalım
Public Class Form1 Yazısının Altına

<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
Public Structure Struct_INTERNET_PROXY_INFO
Public dwAccessType As Integer
Public proxy As IntPtr
Public proxyBypass As IntPtr
End Structure
Private Sub UseProxy(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 = Marshal.StringToHGlobalAnsi(strProxy)
struct_IPI.proxyBypass = Marshal.StringToHGlobalAnsi("local")
Dim intptrStruct As IntPtr = Marshal.AllocCoTaskMem(Marshal.SizeOf(struct_IPI))
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

Button1'e ise

Label4.Text = (TextBox1.Text & ":" & TextBox2.Text)

Son Olarak Button2'nin üstüne

UseProxy(Label4.Text)
WebBrowser1.Navigate(TextBox3.Text)

Güncel Proxy List

38.201.223.250:31288
37.187.120.123:80
94.130.20.85:31288
82.114.241.138:8080
159.138.3.119:80
159.138.22.112:80
159.138.5.222:80
185.117.22.83:80
88.99.149.188:31288
185.80.130.17:8080

 

[Faveouls]

Hype (y)

 

[Shiva]

Good.