15 Give Away Reward :)

Click Link To Get Reward :) / Klik Pautan Bagi Mendapatkan Hadiah :)
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Friday, November 15, 2013

Tutorial : Make Proxy Grabber mini (VIDEO)

Assalamualaikum / Hi ,

Hari ini nak kongsi tutorial buat Proxy grabber sendiri / Today I want to share how to make a proxy grabber yourself .



Ok jom mula / Let's start ,

Tutorial kali ini aku dah siapkan video yang aq buat sendiri / During this tutorial I have made a video of tutorial myself

Tonton di sini / Watch here :






Keperluan / Requirement :~
:~4 button box
- 1 button = " grabber "
- 2 button = " save "
- 3 button = " clear "
- 4 button = " close "
:~ 1 listbox

Kod / Code :
Grab Button Code :~
        Dim the_request As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create("http://proxy-ip-list.com")
        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,4}")
        Dim match As System.Text.RegularExpressions.MatchCollection = expression.Matches(code)
        For Each itemcode As System.Text.RegularExpressions.Match In match
            ListBox1.Items.Add(itemcode)
        Next

Save Button Code :~
           Dim sw 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)
            sw = New IO.StreamWriter(save.FileName)
            For it = 0 To ListBox1.Items.Count - 1
                sw.WriteLine(ListBox1.Items.Item(it))
            Next
            sw.Close()

Clear Button Code :~
        ListBox1.Items.Clear()

Close Button Code :~
        Me.Close()
Credit : Xd ( Muhammad Zaim )
Terima Kasih / Thank You

0 ulasan:

Post a Comment

Ads

HOT NEWS