polas anderson

polas anderson

  • NA
  • 3
  • 8.2k

Number of google results in numericupdown

Oct 12 2013 7:22 AM
I want to search the web pages by choosing keyword and from a numericupdown the same as in the picture shown.
Let's say i record number in numericupdown box 5 and that would give only 5 pages and then stop search results
in listbox and then back to page 0 OR 1 and of course check if there are no pages left. 


How do I do that ?


http://www.imagebam.com/image/e2acac281055627


I want to add to this code if who knows how to do that or to another what you can suggest ?



Dim wc As New WebClient
  Dim source As String = wc.DownloadString("http://www.google.com/search?num=100&q=" + TextBox1.Text)
  Dim m1 As MatchCollection = Regex.Matches(source, "http(s?)://([\w]+\.){0}([\w]+\.?)+", RegexOptions.Singleline Or RegexOptions.IgnoreCase Or RegexOptions.Compiled)
  For Each m As Match In m1
  If Not m.Value.Contains("google") Then
  Dim value As String = m.Groups(0).Value
  ListBox1.Items.Add(value & vbCrLf)
  Label1.Text = ListBox1.Items.Count
  End If
  Next