User Tag List

+ Trả lời chủ đề
Hiện kết quả từ 1 tới 2 của 2

Chủ đề: Using Visual Basic .NET to Access Google's Web Service

  1. #1
    nguyenthanhtungtinbk
    Guest

    Using Visual Basic .NET to Access Google's Web Service

    Lập một cái form như sau:

    Mã:
    Option Strict On
    
    Public Class Form1
        Inherits System.Windows.Forms.Form
    
    #Region " Windows Form Designer generated code "
    Trong này chứa (vì không thể post bài quá lớn nên chỉ post các object)
        Friend WithEvents label4 As System.Windows.Forms.Label
        Friend WithEvents label3 As System.Windows.Forms.Label
        Friend WithEvents label2 As System.Windows.Forms.Label
        Friend WithEvents lblLicense As System.Windows.Forms.Label
        Friend WithEvents txtLicenseKey As System.Windows.Forms.TextBox
        Friend WithEvents lblSpellResults As System.Windows.Forms.Label
        Friend WithEvents txtSpell As System.Windows.Forms.TextBox
        Friend WithEvents lblCacheResults As System.Windows.Forms.Label
        Friend WithEvents txtCachePage As System.Windows.Forms.TextBox
        Friend WithEvents lblSearchResults As System.Windows.Forms.Label
        Friend WithEvents txtSearchTerm As System.Windows.Forms.TextBox
        Friend WithEvents btnSearch As System.Windows.Forms.Button
        Friend WithEvents btnCache As System.Windows.Forms.Button
        Friend WithEvents btnSpell As System.Windows.Forms.Button
    #End Region
    
        ' Search button: do a search, display number of results 
        Private Sub btnSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSearch.Click
            ' Create a Google Search object
            Dim s As New Google.GoogleSearchService()
            Try
                ' Invoke the search method
                Dim r As Google.GoogleSearchResult = s.doGoogleSearch(txtLicenseKey.Text, txtSearchTerm.Text, 0, 1, False, "", False, "", "", "")
                ' Extract the estimated number of results for the search and display it
                Dim estResults As Integer = r.estimatedTotalResultsCount
                lblSearchResults.Text = CStr(estResults)
            Catch ex As System.Web.Services.Protocols.SoapException
                MsgBox(ex.Message)
            End Try
        End Sub
    
        ' Cache button: look up a URL in the Google cache, display size of page
        Private Sub btnCache_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCache.Click
            ' Create a Google Search object
            Dim s As New Google.GoogleSearchService()
            Try
                ' Invoke the doGetCachedPage method and get the cached bytes
                Dim bytes() As System.Byte = s.doGetCachedPage(txtLicenseKey.Text, txtCachePage.Text)
                ' Display the length of the cached page
                lblCacheResults.Text = CStr(bytes.Length)
            Catch ex As System.Web.Services.Protocols.SoapException
                MsgBox(ex.Message)
            End Try
        End Sub
    
        ' Spell button: ask Google for a suggested alternate spelling, display it
        Private Sub btnSpell_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSpell.Click
            ' Create a Google Search object
            Dim s As New Google.GoogleSearchService()
            Try
                ' Ask for spelling suggestion
                Dim suggestion As String = s.doSpellingSuggestion(txtLicenseKey.Text, txtSpell.Text)
                ' Display the suggestion, if any
                If suggestion Is Nothing Then
                    lblSpellResults.Text = "<no suggestion>"
                Else
                    lblSpellResults.Text = suggestion
                End If
            Catch ex As System.Web.Services.Protocols.SoapException
                MsgBox(ex.Message)
            End Try
        End Sub
    End Class
    How to Get the Kit and a License Key
    To access the Google Web APIs toolkit and to request a license key, go to http://www.google.com/apis/ and follow the steps. You can download the developer's kit and create your own Google account, which after some e-mail verification, provides you with a license that can be used for 1,000 free queries per day.

  2. #2
    hung_t1981
    Guest

    Mặc định

    tui chang hieu cai gi ca
    sao viêt chung chung nhu thế

+ Trả lời chủ đề

Thông tin chủ đề

Users Browsing this Thread

Hiện có 1 người đọc bài này. (0 thành viên và 1 khách)

Chủ đề tương tự

  1. New File Added: 2_OReilly Programming Visual Basic DotNET.pdf
    Gửi bởi Mr.vulh_bk trong mục Thế Giới Phần Mềm
    Trả lời: 0
    Bài cuối: 12-03-2007, 10:50 AM
  2. Hướng dẫn lập trình Visual Basic.NET
    Gửi bởi Mr.vulh_bk trong mục Tài liệu CNTT
    Trả lời: 8
    Bài cuối: 29-10-2006, 03:29 PM
  3. cho hoi ve lap trinh visual basic
    Gửi bởi ductri trong mục Chia sẻ kinh nghiệm
    Trả lời: 5
    Bài cuối: 22-08-2006, 06:46 PM
  4. Visual Basic - Phần cơ bản
    Gửi bởi bjet4 trong mục Lập Trình
    Trả lời: 13
    Bài cuối: 15-02-2006, 10:53 PM
  5. Microsoft chuẩn bị tiết lộ Visual Basic 9.0
    Gửi bởi sonnvl trong mục Lập Trình
    Trả lời: 0
    Bài cuối: 11-09-2005, 02:24 AM

Từ khóa (Tag) của chủ đề này

Quyền viết bài

  • Bạn không thể gửi chủ đề mới
  • Bạn không thể gửi trả lời
  • Bạn không thể gửi file đính kèm
  • Bạn không thể sửa bài viết của mình


About svBK.VN

    Bách Khoa Forum - Diễn đàn thảo luận chung của sinh viên ĐH Bách Khoa Hà Nội. Nơi giao lưu giữa sinh viên - cựu sinh viên - giảng viên của trường.

Follow us on

Twitter Facebook youtube