.NET [ProxyGrab] Grab a ton of proxies.

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