Oturum Aç Kayıt Ol


Reklam Vermek İçin by Cryptr.Org Ads.®
Facebook Paylaş


Goruntuleme Modu Normal Mod | Çizgisel Görünüm
Simple Proxy Grabber [Source]
 
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5


Silvester Çevrimdışı
King Coder

Üye no: 1014
Yorumları: 169
Konu Sayısı:
Ülke
Kayıt Tarihi: 04-06-2011
7
Yorum: #1
Simple Proxy Grabber [Source]
Reklam Vermek İçin by Cryptr.Org Ads.®
Here's A Simple Proxy Grabber Made With Http Web Request & Regex.
Design:
1) Add 4 Buttons
Button 1 ----> Grab Anon Proxies
Button 2 ----> Grab Non-Anon Proxies
Button 3 ----> Save Proxies
Button 4 ----> Clear Proxies

Add The Following Namespaces:

Kod:
Imports System.Text.RegularExpressions
Imports System.Text
Click Button 1 & Add:


Kod:
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

Click Button 2 & Add:


Kod:
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
Click Button 3 & Add:


Kod:
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

Click Button 4 & Add:



Kod:
ListBox1.Items.Clear()


 
If u saw me. Cut your Head. / I'm Turkish Coders  root@b4tu.org
17-09-2014, Saat: 12:51
Quote this message in a replyWWW Find all posts by this userAra Like This MessageBeğen Quote this message in a replyAlıntı Yap




Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  C# XNA - Racing Game Source code Silvester 12 2,619 20-03-2017, Saat: 01:26
Son Yorum: I Am Hacker
  Ddos Attack + Proxy Güçlü Saldırı 2017 lastax90 2 1,467 13-01-2017, Saat: 08:48
Son Yorum: JimmyFrancueS
  [SOURCE] CorrM Worm 0.2.1 Full [.NET & AutoIt] [8/39] Silvester 10 1,744 23-11-2016, Saat: 09:54
Son Yorum: THA
10 James's Crypter 2.0 [FULL SOURCE+STUBS] [PB]+[SRC] Judgement 23 4,658 27-11-2015, Saat: 01:58
Son Yorum: esx
  [VB.NET] MD5 String Crypt Source Silvester 0 716 27-12-2013, Saat: 08:01
Son Yorum: Silvester
  [VB.NET] Save , Load , Search , Clear Source Silvester 0 613 27-12-2013, Saat: 07:58
Son Yorum: Silvester
Award_star_gold_1 Çeker Giderim v1.0 [ Reverse Ip Tool ] - Source Leaked By Ap0x Ap0x 2 1,302 15-09-2013, Saat: 09:22
Son Yorum: haCkheal #
10 Kaspersky 2008 Source Code ! pisLickene 2 1,267 11-12-2012, Saat: 10:56
Son Yorum: bypinault

Hızlı Menü:


Konuyu Okuyanlar: 1 Ziyaretçi
Reklam Vermek İçin by Cryptr.Org Ads.®


NAVİGASYON Tasarım By Ap0x
Copyright © Cryptr.Org 2009 - 2020 All Right Illegal Reserved
Yandex.Metrica
DMCA.com Protection Status