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