Cara Membuat Email Extractor di VB.NET

Langkah 1:

Perta

ma kita akan membuat proyek baru dengan:

1 Teks-kotak - URL

1 Tombol - Mulailah thread baru (yang akan dimulai script extractor)

1 Listbox - Mengandung email

Langkah 2:

Selanjutnya kita perlu Impor empat paket. Satu untuk menciptakan permintaan dan menerima respon dari dan ke halaman web, lain untuk membaca respon dan yang terakhir untuk membuat thread baru dan terakhir untuk Regex.

1.         Imports System.IO

2.         Imports System.Net

3.         Imports System.Text.RegularExpressions

4.         Imports System.Threading

Langkah 3:

Langkah berikutnya kita ingin menambahkan fungsi yang akan kita gunakan untuk mendapatkan teks antara semua tag HTML. Kami akan membelah sumber dengan spasi untuk mendapatkan semua kata-kata. Kemudian memeriksa setiap kata jika mengandung tanda-tanda yang tepat ("@", ".") Dan jika tidak mungkin berisi tag jadi kita perlu untuk menghapusnya.

1.      Private Function GetBetweenAll(ByVal Source As String, ByVal Str1 As String, ByVal Str2 As String) As String()

2.          Dim Results, T As New List(Of String)

3.          T.AddRange(Regex.Split(Source, Str1))

4.          T.RemoveAt(0)

5.          For Each I As String In T

6.              Results.Add(Regex.Split(I, Str2)(0))

7.          Next

8.          Return Results.ToArray

9.      End Function

Langkah 4:

Dalam tombol satu kali klik acara kita akan membuat thread baru yang akan memulai fungsi bernama "ekstrak".

1.      Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

2.          Dim trd As thread = New thread(AddressOf extract)

3.          trd.isbackground = True

4.          trd.start()

5.      End Sub

Langkah 5:

Sekarang mari kita periksa URL dalam textbox1 untuk melihat apakah itu sah, jika mari kita membuat permintaan, menerima respon dan membacanya untuk mendapatkan sumber halaman web.

1.      Private Function extract()

2.          If (TextBox1.Text.StartsWith("http://") Or TextBox1.Text.StartsWith("https://")) Then

3.              Dim r As HttpWebRequest = HttpWebRequest.Create(TextBox1.Text)

4.              r.KeepAlive = True

5.              r.UserAgent = "Mozilla/5.0 (Windows NT 6.2; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/29.0.1547.2 Safari/537.36"

6.              Dim re As HttpWebResponse = r.GetResponse()

7.              Dim src As String = New StreamReader(re.GetResponseStream()).ReadToEnd()

8.          Else : MsgBox("That is not a valid link!")

9.          End If

10.        End Function

Setelah kita sudah mendapat sumber memungkinkan membaginya dengan spasi untuk mendapatkan masing-masing "kata" / tag dan memeriksa untuk melihat apakah masing-masing bisa menjadi email dengan mencari "@" dan "." tanda-tanda.

1.      Private Function extract()

2.          If (TextBox1.Text.StartsWith("http://") Or TextBox1.Text.StartsWith("https://")) Then

3.              Dim r As HttpWebRequest = HttpWebRequest.Create(TextBox1.Text)

4.              r.KeepAlive = True

5.              r.UserAgent = "Mozilla/5.0 (Windows NT 6.2; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/29.0.1547.2 Safari/537.36"

6.              Dim re As HttpWebResponse = r.GetResponse()

7.              Dim src As String = New StreamReader(re.GetResponseStream()).ReadToEnd()

8.              Dim words As String() = src.Split(" ")

9.              For Each word As String In words

10.                 If (word.Contains("@") And word.Contains(".")) Then

11.                 End If

12.             Next

13.         Else : MsgBox("That is not a valid link!")

14.         End If

15.     End Function

Untuk Selengkapnya. Download Source Codenya 

Download Disini

Jika File "Not Found" Please Komentar