学步园

      昨天晚上在看msdn开发精选时发现了一篇文章《Windows Mobile 中的web service

应用》发现可以用到我们的网站上实现google的搜索，今天做了一个简单的例子实现了该功能，

具体方式如下：

      首先，我们要先注册一个google的Account，我的Account是“pqrz99QFHJxQPvZrbs8wjloTHtSRtLM”

       然后在项目中添加web引用，地址为“http://api.google.com/GoogleSearch.wsdl”

       添加引用后将引用改名为“Google”便于记忆

      然后代码如下：

                 Dim GoogleSearch As google.GoogleSearchService
        GoogleSearch = New google.GoogleSearchService

        Dim Result As google.GoogleSearchResult
        Result = GoogleSearch.doGoogleSearch("Lpqrz99QFHJxQPvZrbs8wjloTHtSRtLM",TextBox1.Text, 1, 10, False, "", False, "", "", "")

其中Textbox1.text为要搜索的内容，1为从第1条开始检索，10为检索的个数（最大为10），自动过滤来源相似或相同的结果，结果来自“”查询的子集，过滤成年内容，语言，输入编码，输出编码

最后通过stringbuilder输出显示

        For i = 0 To (Result.endIndex - Result.startIndex)
            myStrTable.Append("<TR>")
            myStrTable.Append("<TD>")
            myStrTable.Append("<a href=" & Result.resultElements(i).URL & ">" & Result.resultElements(i).title & "</a>")
            myStrTable.Append("</TD>")
            myStrTable.Append("</TR>")

        Next
        strTable = myStrTable.ToString