17-12-18, 06:35 PM
السلام عليكم احبابي في الله
ممكن مساعدة في التعديل على هذا الكود
اريد اظهار كل النتائج عند البحث و ليس فقط اول 10 نتائج
ممكن مساعدة في التعديل على هذا الكود
اريد اظهار كل النتائج عند البحث و ليس فقط اول 10 نتائج
كود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Using X As New Net.WebClient
X.Encoding = Encoding.UTF8
AddHandler X.DownloadDataCompleted, AddressOf search
X.DownloadDataAsync(New Uri("https://www.bing.com/search?q=site:pastebin.com+" & TextBox1.Text))
End Using
End Sub
Private Sub search(sender As Object, e As DownloadDataCompletedEventArgs)
Dim RS As String = (New UTF8Encoding).GetString(e.Result)
Dim M As MatchCollection = Regex.Matches(RS, "(https:\/\/pastebin.com\/\w+)")
Label1.Text = "founded Links : " & M.Count
For i = 0 To M.Count - 1
ListBox1.Items.Add(M(i).Value & vbNewLine)
Next
End Sub