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
Jika File "Not Found" Please Komentar
Update Contact :
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email : Fajarudinsidik@gmail.com
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email: Fajarudinsidik@gmail.com
atau Kirimkan Private messanger melalui email dengan klik tombol order dibawah ini :
