Community discussion forum

Implementing The Google Web Service In VB.NET

• • Reply

  10 years ago

  by Developer Fusion Bot

  Developer Fusion Bot

  , United Kingdom

  Joined 3 years ago

  This thread is for discussions of Implementing The Google Web Service In VB.NET.

  Report abuse
• • Reply

  5 years ago

  by a_b_c_d@atlas.cz

  a_b_c_d@atlas.cz

  , United States

  Joined 5 years ago

  With a huge pleasure I've found this article. Thank you.

  Report abuse
• • Reply

  1 year ago

  by blackvine

  blackvine Global

  , South Africa

  Joined 1 year ago

   I tired this in Visual Basic 9.0 .net 3.5 the code is slightly modified details are given below,

  Public Class Google_Search
  

   ' for Google Search button

  
      Private Sub BtnSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSearch.Click
          Dim MyLicenseKey As String
          ' Declare variable for the Google search service
          Dim MyService As GoogleReference.GoogleSearchPort = New GoogleReference.GoogleSearchPortClient
          ' Declare variable for the Google Search Result
          Dim MyResult As GoogleReference.GoogleSearchResult
          ' Please Type your license key here
          MyLicenseKey = "tGCTJkYos3YItLYzI9Hg5quBRY8bGqiM"
          ' Execute Google search on the text enter and license key
          MyResult = MyService.doGoogleSearch(MyLicenseKey, _
          TxtSearch.Text, 0, 1, False, "", False, "", "", "")
          ' output the total Results found
          LblTotalFound.Text = "Total Found : " & _
          CStr(MyResult.estimatedTotalResultsCount)
      End Sub
  
  

  'For name search button
  

      Private Sub BtnCheckSpelling_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnCheckSpelling.Click
          Dim MyLicenseKey As String
          ' Declare variable for the Google search service
          Dim MyService As GoogleReference.GoogleSearchPort = New GoogleReference.GoogleSearchPortClient
          ' Declare variable for the Google Search Result
          Dim MyResult As String
          'Please type in your key here
          MyLicenseKey = "tGCTJkYos3YItLYzI9Hg5quBRY8bGqiM"
          ' Execute Google search on the text enter and license key
          MyResult = MyService.doSpellingSuggestion(MyLicenseKey, TxtCheckSpelling.Text)
          'Output Results
          LblCorrectSpelling.Text = "Did you mean: " & MyResult
      End Sub
  End Class
   

  Report abuse