一．介紹：

　　Web服務(wù)是微軟提出的基于互聯(lián)網(wǎng)的開發(fā)模型，一經(jīng)提出即收到了業(yè)界的廣泛推從。從目前的發(fā)展趨勢來看，Web服務(wù)將引領(lǐng)下一代互聯(lián)網(wǎng)的潮流。它是創(chuàng)建可互操作的分布式應(yīng)用程序的新平臺，是基于網(wǎng)絡(luò)的、分布式的模塊化組件。它執(zhí)行特定的任務(wù)，遵守具體的技術(shù)規(guī)范，這些規(guī)范使得Web服務(wù)能與其他兼容的組件進行互操作。

　　本文就向大家介紹如何運用VB.net來調(diào)用Google的Web服務(wù)，也就是如何在自己的應(yīng)用程序中添加訪問Google的服務(wù)的功能。文章中介紹的功能包括了Google提供的搜索功能、緩存功能以及拼寫檢查功能。我們運用的開發(fā)工具是VS.net中的VB.net。

　　二．開發(fā)步驟：

　　第一步，下載開發(fā)者工具箱（Developer's Kit）并申請一個許可證密鑰（License Key）。你可以到http://www.google.com/apis/去下載開發(fā)者工具箱，里面包含了有關(guān)Google的Web服務(wù)的詳細說明文檔，你可以通過參考該文檔開發(fā)出許多高級的應(yīng)用。在下載完畢后，你必須申請一個許可證密鑰，否則你無法訪問其Web服務(wù)。

　　第二步，新建一個VB.net項目。打開VS.net，新建一個項目，在項目類型中選擇"Visual Basic項目"，在模板中選擇"Windows應(yīng)用程序"，同時不妨命名為"GoogleWebService"。

　　第三步，添加Web引用。在"解決方案資源管理器"中選擇該項目，并在右鍵菜單中選擇"添加Web引用"，在彈出的對話框的地址欄中填上Web服務(wù)的描述的地址URL（http://api.google.com/GoogleSearch.wsdl），圖示如下：

圖1

　　在添加Web引用后，我們就可以像是在本機上一樣調(diào)用其中的各種方法（Method）來為我們的程序服務(wù)，我們還可以像是在編寫本機程序一樣運用智能感知等VS.net開發(fā)工具的功能。在Web引用被成功添加后，"解決方案資源管理器"中就多了相應(yīng)的Web服務(wù)引用了，圖示如下：

圖2

　　同時，因為我們創(chuàng)建的項目是一個Windows應(yīng)用程序，所以我們還得添加引用：System.Web.Services，這樣我們才可以實現(xiàn)對Web服務(wù)的調(diào)用功能的開發(fā)。

　　第四步，開發(fā)程序的主界面。你可以按照如下方式設(shè)計程序的主界面：

圖3

 

　第五步，編寫程序代碼。下面我們?yōu)槊總€按鈕的編寫其消息相應(yīng)函數(shù)。

　　對于第一個按鈕"開始搜索！"，它的消息響應(yīng)函數(shù)完成的功能如下：首先創(chuàng)建一個Google搜索的對象，然后根據(jù)你所輸入的許可證密鑰以及你要搜索的內(nèi)容調(diào)用doGoogleSearch函數(shù)。不過我們在程序中只運用了該函數(shù)的一種簡單的搜索功能，你可以試著使用不同的參數(shù)來完成更高級的搜索功能。最后從搜索的結(jié)果中分離出返回的結(jié)果數(shù)這一項并顯示在程序的窗體中。該函數(shù)的實現(xiàn)如下：

Private Sub btnSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSearch.Click ' 創(chuàng)建一個Google搜索對象 　Dim s As New Google.GoogleSearchService() 　Try 　' 調(diào)用搜索功能 　　Dim r As Google.GoogleSearchResult = s.doGoogleSearch(txtLicenseKey.Text, 　　txtSearchTerm.Text, 0, 1, False, "", False, "", "", "") 　　' 從搜索的結(jié)果中分離出返回的結(jié)果數(shù)這一項并顯示在程序的窗體中 　　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

　　對于"緩存查詢！"這個按鈕的消息響應(yīng)函數(shù)，其完成的功能是獲取緩存頁面的大小。它調(diào)用的方法為doGetCachedPage，通過該方法，程序可以獲得緩存頁面的字節(jié)數(shù)，然后根據(jù)該字節(jié)數(shù)顯示緩存頁面的大小。 其函數(shù)實現(xiàn)代碼如下：

Private Sub btnCache_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCache.Click ' 創(chuàng)建一個Google搜索對象 　Dim s As New Google.GoogleSearchService() 　Try 　　' 調(diào)用doGetCachedPage方法并獲取緩存字節(jié)數(shù) 　　Dim bytes() As System.Byte = s.doGetCachedPage(txtLicenseKey.Text, txtCachePage.Text) 　　' 顯示緩存頁面的大小 　　lblCacheResults.Text = CStr(bytes.Length) 　Catch ex As System.Web.Services.Protocols.SoapException 　　MsgBox(ex.Message) 　End Try End Sub

　　對于"拼寫檢查！"按鈕的消息響應(yīng)函數(shù)，它完成的功能則是對用戶的輸入進行拼寫檢查。使用過Google搜索功能的人都知道，如果你一不小心輸入錯誤的話，它會提示你正確的輸入，這是因為它調(diào)用了內(nèi)部的拼寫檢查功能。比如，我在Google中輸入"Comparision of Chinese culture and western culture"的話，Google會提示我是否要搜索"Comparison of Chinese culture and western culture"，一經(jīng)它的提醒我才發(fā)現(xiàn)我把"Comparison"給拼錯了。所以該按鈕的消息響應(yīng)函數(shù)調(diào)用了doSpellingSuggestion方法，調(diào)用之后如果獲得了相應(yīng)的拼寫建議，則往往是你發(fā)生了拼寫方面的錯誤了，并顯示在窗體的文本框控件中。其函數(shù)的代碼實現(xiàn)如下：

Private Sub btnSpell_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSpell.Click ' 創(chuàng)建一個Google搜索對象 　Dim s As New Google.GoogleSearchService() 　Try 　' 調(diào)用doSpellingSuggestion方法 　　Dim suggestion As String = s.doSpellingSuggestion(txtLicenseKey.Text, txtSpell.Text) 　　' 如果右拼寫建議的信息，則顯示之 　　If suggestion Is Nothing Then 　　　lblSpellResults.Text = "" 　　Else 　　　lblSpellResults.Text = suggestion 　　End If 　Catch ex As System.Web.Services.Protocols.SoapException 　　MsgBox(ex.Message) 　End Try End Sub

　　第六步：運行程序。程序的運行結(jié)果圖示如下：

圖4

　　三．小結(jié)：

　　本文介紹了如何運用VB.net來訪問Google的Web服務(wù)的方法，當(dāng)然你也可以用其他的語言，比如C#或是Java來開發(fā)此類應(yīng)用。通過添加Web服務(wù)的引用，開發(fā)者可以像是開發(fā)本機程序一樣的開發(fā)Web服務(wù)程序，所以說運用VS.net開發(fā)工具大大簡化了開發(fā)人員的工作。不過本程序只是一個簡單的示例程序，要是你要開發(fā)出更高級的應(yīng)用，不妨去參考開發(fā)者工具箱中的詳細說明文檔。通過它，我想你一定可以開發(fā)出很好的Google的Web服務(wù)的應(yīng)用。