Thread: Google search does not return more than 60 results :(

Please help my Google search results shown in a list box are two few I want a thousand links to be shown but at maximum they show 30
Please help thanks.

My code is below, I have two input boxes one for searched keywords and one for the number of results I enter although I enter 1000 etc or 400 I still only get maximum 30 results.

Imports Google.API
Imports Google.API.Search

Public Class GoogleResults

Dim amountToSearchFor As Integer '/// here you specify the amount of results to limit the search to.

Private Sub Go_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Go.Click

If KeywordSearch.Text.Length > 0 And Not SearchNumber.Text = "" Then
amountToSearchFor = SearchNumber.Text
SearchResultsList.Items.Clear()
Dim cl As New GwebSearchClient("http://www.google.co.uk/")


Dim rtnList As IList(Of IWebResult) = cl.Search(KeywordSearch.Text, amountToSearchFor)

For Each itm As IWebResult In rtnList
SearchResultsList.Items.Add(itm.Url) '/// itm.Title gives the title of the page it's found, itm.Content describes the content
Next
Else
MsgBox("Enter keywords to search and Number of Results")

End If


End Sub

Thank you

Google search does not return more than 60 results


Can someone please fix it. I would like 100 results to be returned
My code is below...

Imports Google.API
Imports Google.API.Search

Public Class Form1
Dim amountToSearchFor As Integer

Private Sub Go_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Go.Click
If KeywordSearch.Text.Length > 0 And Not SearchNumber.Text = "" Then
amountToSearchFor = 100
SearchResultsList.Items.Clear()
Dim cl As New GwebSearchClient("http://www.google.co.uk/")


Dim rtnList As IList(Of IWebResult) = cl.Search(KeywordSearch.Text, amountToSearchFor)

For Each itm As IWebResult In rtnList
SearchResultsList.Items.Add(itm.Url) '/// itm.Title gives the title of the page it's found, itm.Content describes the content
Next
Else
MsgBox("Enter keywords to search and Number of Results")

End If
End Sub
End Class