[supreme] ELITE PROXY SCRAPER SOURCE CODE

[shycrackzz 59]

[align=center]PLEASE LEAVE A LIKE IF YOU APPRECIATE MY WORK

 

LEECHERS ARE BAD AND GET BANNED[/align]

 

 

 

DOWNLOAD: 

 

[align=center][hide]   

Imports System.Text.RegularExpressions

Public Class Form1


   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Dim the_request As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create("http://www.cybersyndrome.net/pla.html")
       Dim the_response As System.Net.HttpWebResponse = the_request.GetResponse
       Dim stream_reader As System.IO.StreamReader = New System.IO.StreamReader(the_response.GetResponseStream())
       Dim code As String = stream_reader.ReadToEnd
       Dim expression 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 mtac As MatchCollection = expression.Matches(code)
       For Each itemcode As Match In mtac
           ListBox1.Items.Add(itemcode)
       Next
   End Sub

   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

   End Sub

   Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
       Dim the_request As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create("http://www.cybersyndrome.net/pld.html")
       Dim the_response As System.Net.HttpWebResponse = the_request.GetResponse
       Dim stream_reader As System.IO.StreamReader = New System.IO.StreamReader(the_response.GetResponseStream())
       Dim code As String = stream_reader.ReadToEnd
       Dim expression 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 mtac As MatchCollection = expression.Matches(code)
       For Each itemcode As Match In mtac
           ListBox1.Items.Add(itemcode)
       Next
   End Sub

   Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
       If ListBox1.Items.Count = (0) Then
           MessageBox.Show("Please Scrape Proxies First.", "ALERT!", MessageBoxButtons.OK, MessageBoxIcon.Error)
       Else

           Dim S_W As IO.StreamWriter

           Dim itms() As String = {ListBox1.Items.ToString}

           Dim save As New SaveFileDialog
           Dim it As Integer
           save.FileName = "Grabbed Proxies"
           save.Filter = "Grabbed Proxies (*.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 If
   End Sub

   Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
       ListBox1.Items.Clear()
   End Sub

   Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged

   End Sub

   Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
       MessageBox.Show("Made by XtraBuzz")
   End Sub

   

End Class

    [/hide][/align]

[Duquebb 2]

gracias amigo

---

gracias amigo

[briannk 1]

thanks you bro good job

[reyzax66 1]

thanks man, thats awesome share

[PCBHQ 0]

thanks you...goodpost

---

thanks you good post

---

thanks man, thats awesome share

[loneking37 1]

Look good thanks man +Like

[SheTookTheKids 1]

[align=center]PLEASE LEAVE A LIKE IF YOU APPRECIATE MY WORK

 

LEECHERS ARE BAD AND GET BANNED[/align]

 

 

 

DOWNLOAD: 

 

 

 

Thanks for this source man! liked

[pardo13 8]

thanks you bro good job

[Porygon 0]

Thanks man !

[N3verBack 2]

liked , hope work fine

[ibuu 4]

thanks man <3

[DominoRainbow 0]

PLEASE LEAVE A LIKE IF YOU APPRECIATE MY WORK

 

LEECHERS ARE BAD AND GET BANNED

 

DOWNLOAD:

[hinixutayo 0]

i will thank after

[mostafaplwl 1]

[align=center]PLEASE LEAVE A LIKE IF YOU APPRECIATE MY WORK

 

LEECHERS ARE BAD AND GET BANNED[/align]

 

 

 

DOWNLOAD: 

 

 

 

niiiiiiiiiiiiiiiiice

gooooooooooooood

[gangLewis 0]

[align=center]PLEASE LEAVE A LIKE IF YOU APPRECIATE MY WORK

 

LEECHERS ARE BAD AND GET BANNED[/align]

 

 

 

DOWNLOAD: 

 

 

 

thank u for sharing

[X-Forcess 0]

[align=center]PLEASE LEAVE A LIKE IF YOU APPRECIATE MY WORK

 

LEECHERS ARE BAD AND GET BANNED[/align]

 

 

 

DOWNLOAD: 

 

 

 

good work men a

[miwawic 0]

this is a txt format or ?

[MyConfiq 4]

Cool think brother keep it up :)

[estrotrolled 0]

[align=center]POR FAVOR DEJE UN  GUSTO  SI APRECIE A MIS LECHANTES DE TRABAJO

 

ESTÁN  MALOS  Y CONSEGUIDOS  BANNED[/align]

 

 

 

DESCARGAR: 

 

 

 

abra q probar xd

[samfox98 2]

Thanks this helps

[hazmaticaura 3]

tyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyy

[RPGMAKER XACE 1]

asdsadsadsadsadas

[badboythe 2]

great work brother

[martin2015 0]

[align=center]PLEASE LEAVE A LIKE IF YOU APPRECIATE MY WORK

 

LEECHERS ARE BAD AND GET BANNED[/align]

 

 

 

DOWNLOAD: 

 

 

 

Hahahaha..., you're fucking bro.  Don't try it :D

[MyConfiq 4]

Cool thing on here :D