I gonna release my ProxyGrabber, is coded on VB.NET and is not obfuscated, u can take the source if you want.
![[Image: 2c5082f422ac3b51cc3a47a2f38514cb.png]](https://i.gyazo.com/2c5082f422ac3b51cc3a47a2f38514cb.png)
VirusTotal Link
Detects 1/56
Qihoo-360 HEUR/QVM03.0.0000.Malware.Gen <--- Fake Positive
Download Link
Code
Spoiler (Click to View)
VirusTotal Link
Detects 1/56
Qihoo-360 HEUR/QVM03.0.0000.Malware.Gen <--- Fake Positive
Download Link
<--- Dont be a leecher! Replys and rep are welcome! --->
Code
Spoiler (Click to View)
Code
Imports System.IO
Imports System.Net
Imports System.Text
Imports System.Text.RegularExpressions
Public Class Form1
Private Sub VsButton1_Click(sender As Object, e As EventArgs) Handles VsButton1.Click
Dim request As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create("http://www.cybersyndrome.net/pla.html")
Dim response As System.Net.HttpWebResponse = request.GetResponse
Dim reader As System.IO.StreamReader = New System.IO.StreamReader(response.GetResponseStream)
Dim readcode As String = reader.ReadToEnd
Dim checker As New System.Text.RegularExpressions.Regex("[0-9].{1,3}.[0-9]{1,3}.[0-9]{1,3}.[0-9]{1,3}:[0-9]{1,5}")
Dim right As MatchCollection = checker.Matches(readcode)
For Each itemcode As Match In right
ListBox1.Items.Add(itemcode)
Next
Dim request2 As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create("http://proxy-ip-list.com/")
Dim response2 As System.Net.HttpWebResponse = request2.GetResponse
Dim reader2 As System.IO.StreamReader = New System.IO.StreamReader(response2.GetResponseStream)
Dim readcode2 As String = reader2.ReadToEnd
Dim checker2 As New System.Text.RegularExpressions.Regex("[0-9].{1,3}.[0-9]{1,3}.[0-9]{1,3}.[0-9]{1,3}:[0-9]{1,5}")
Dim right2 As MatchCollection = checker2.Matches(readcode2)
For Each itemcode2 As Match In right2
ListBox1.Items.Add(itemcode2)
Next
Dim request3 As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create("http://www.samair.ru/proxy/")
Dim response3 As System.Net.HttpWebResponse = request3.GetResponse
Dim reader3 As System.IO.StreamReader = New System.IO.StreamReader(response3.GetResponseStream)
Dim readcode3 As String = reader3.ReadToEnd
Dim checker3 As New System.Text.RegularExpressions.Regex("[0-9].{1,3}.[0-9]{1,3}.[0-9]{1,3}.[0-9]{1,3}:[0-9]{1,5}")
Dim right3 As MatchCollection = checker3.Matches(readcode3)
For Each itemcode3 As Match In right3
ListBox1.Items.Add(itemcode3)
Next
Dim request4 As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create("http://free-proxy-list.net/anonymous-proxy.html")
Dim response4 As System.Net.HttpWebResponse = request4.GetResponse
Dim reader4 As System.IO.StreamReader = New System.IO.StreamReader(response4.GetResponseStream)
Dim readcode4 As String = reader4.ReadToEnd
Dim checker4 As New System.Text.RegularExpressions.Regex("[0-9].{1,3}.[0-9]{1,3}.[0-9]{1,3}.[0-9]{1,3}:[0-9]{1,5}")
Dim right4 As MatchCollection = checker4.Matches(readcode4)
For Each itemcode4 As Match In right4
ListBox1.Items.Add(itemcode4)
Next
Dim request5 As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create("http://www.xroxy.com/proxylist.js")
Dim response5 As System.Net.HttpWebResponse = request5.GetResponse
Dim reader5 As System.IO.StreamReader = New System.IO.StreamReader(response5.GetResponseStream)
Dim readcode5 As String = reader5.ReadToEnd
Dim checker5 As New System.Text.RegularExpressions.Regex("[0-9].{1,3}.[0-9]{1,3}.[0-9]{1,3}.[0-9]{1,3}:[0-9]{1,5}")
Dim right5 As MatchCollection = checker5.Matches(readcode5)
For Each itemcode5 As Match In right5
ListBox1.Items.Add(itemcode5)
Next
Dim request6 As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create("http://proxyserverlist-24.blogspot.com/feeds/posts/default")
Dim response6 As System.Net.HttpWebResponse = request6.GetResponse
Dim reader6 As System.IO.StreamReader = New System.IO.StreamReader(response6.GetResponseStream)
Dim readcode6 As String = reader6.ReadToEnd
Dim checker6 As New System.Text.RegularExpressions.Regex("[0-9].{1,3}.[0-9]{1,3}.[0-9]{1,3}.[0-9]{1,3}:[0-9]{1,5}")
Dim right6 As MatchCollection = checker6.Matches(readcode6)
For Each itemcode6 As Match In right6
ListBox1.Items.Add(itemcode6)
Next
Dim request7 As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create("http://www.nntime.com/")
Dim response7 As System.Net.HttpWebResponse = request7.GetResponse
Dim reader7 As System.IO.StreamReader = New System.IO.StreamReader(response7.GetResponseStream)
Dim readcode7 As String = reader7.ReadToEnd
Dim checker7 As New System.Text.RegularExpressions.Regex("[0-9].{1,3}.[0-9]{1,3}.[0-9]{1,3}.[0-9]{1,3}:[0-9]{1,5}")
Dim right7 As MatchCollection = checker7.Matches(readcode7)
For Each itemcode7 As Match In right7
ListBox1.Items.Add(itemcode7)
Next
Dim request8 As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create("http://proxy-list.org/spanish/index.php")
Dim response8 As System.Net.HttpWebResponse = request8.GetResponse
Dim reader8 As System.IO.StreamReader = New System.IO.StreamReader(response8.GetResponseStream)
Dim readcode8 As String = reader8.ReadToEnd
Dim checker8 As New System.Text.RegularExpressions.Regex("[0-9].{1,3}.[0-9]{1,3}.[0-9]{1,3}.[0-9]{1,3}:[0-9]{1,5}")
Dim right8 As MatchCollection = checker8.Matches(readcode8)
For Each itemcode8 As Match In right8
ListBox1.Items.Add(itemcode8)
Next
Dim request9 As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create("http://irc-proxies24.blogspot.com/feeds/posts/default")
Dim response9 As System.Net.HttpWebResponse = request9.GetResponse
Dim reader9 As System.IO.StreamReader = New System.IO.StreamReader(response9.GetResponseStream)
Dim readcode9 As String = reader9.ReadToEnd
Dim checker9 As New System.Text.RegularExpressions.Regex("[0-9].{1,3}.[0-9]{1,3}.[0-9]{1,3}.[0-9]{1,3}:[0-9]{1,5}")
Dim right9 As MatchCollection = checker9.Matches(readcode9)
For Each itemcode9 As Match In right9
ListBox1.Items.Add(itemcode9)
Next
Dim request10 As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create("http://sslproxies24.blogspot.com/feeds/posts/default")
Dim response10 As System.Net.HttpWebResponse = request10.GetResponse
Dim reader10 As System.IO.StreamReader = New System.IO.StreamReader(response10.GetResponseStream)
Dim readcode10 As String = reader10.ReadToEnd
Dim checker10 As New System.Text.RegularExpressions.Regex("[0-9].{1,3}.[0-9]{1,3}.[0-9]{1,3}.[0-9]{1,3}:[0-9]{1,5}")
Dim right10 As MatchCollection = checker10.Matches(readcode10)
For Each itemcode10 As Match In right10
ListBox1.Items.Add(itemcode10)
Next
Dim cantidaditems As Integer = ListBox1.Items.Count
Label1.Text = cantidaditems
End Sub
Private Sub VsButton2_Click(sender As Object, e As EventArgs) Handles VsButton2.Click
Dim S_W As IO.StreamWriter
Dim itms() As String = {ListBox1.Items.ToString}
Dim save As New SaveFileDialog
Dim it As Integer
save.Filter = "ProxyGrab(*.txt)|*.txt|All Files (*.*)|*.*"
save.CheckPathExists = True
save.ShowDialog(Me)
S_W = New IO.StreamWriter(save.FileName)
For it = 0 To ListBox1.Items.Count - 1
S_W.WriteLine(ListBox1.Items.Item(it))
Next
S_W.Close()
End Sub
Private Sub VsButton3_Click(sender As Object, e As EventArgs) Handles VsButton3.Click
ListBox1.Items.Clear()
Label1.Text = "0"
End Sub
End Class
![[Image: 4QN3wHj.jpg]](https://imgur.com/4QN3wHj.jpg)
