显示的GoogleAnalytics（分析）使用网络

谷歌提供了一个集interactingwith的GDATA启用服务客户端库，在多种编程语言。使用theselibraries，可以构建GDATA请求，发送给服务，andreceive反应。
下面是一个可以访问的服务列表:博客日历日历资源代号搜寻往来购物为内容的API文件清单电子邮件审核电子邮件设置Google Analytics（分析）谷歌企业应用套件置备谷歌健康Google网站管理员工具笔记本Picasa网络相册电子表格YouTube的对于本教程的目的，我们将访问，GoogleAnalytics使用。NET客户端库，这是可以从
。安装的Google Data API的安装
我们需要做的第一件事是安装谷歌DataAPI。下载上面提到的。NET客户端库和安装使用thestandard设置。
（如果更改安装目录的位置，这pleasemake注意，因为它需要找到DLL的。）创建一个新网站启动Visual Web Developer中，创建一个新的网站namedgoogle_analytics。右键单击在解决方案资源管理器andselect"添加引用的网站上吗？？你安装了Google数据apiearlier浏览的位置。默认位置是C:\ Program Files文件\谷歌。双击"谷歌数据API，SDK的？？文件夹。双击"的Redist？？文件夹。在此文件夹是一个dll的，你可以在yourproject希望从谷歌访问不同的服务时使用的清单。有2个dll我们访问googleanalytics感兴趣，这些都是Google.Data.Analytics和Google.Data.Client。反超，并且将这些引用添加到您的网站。访问分析
现在开始的相当一部分实际上检索分析datafrom的Google Analytics（分析）。
添加一个Web用户控件名为"wuc_google_analyitcs？网站？？
我们必须首先添加一个引用到我们的Google.Data.Client.dll Google.Data.Analytics.ddll所以在代码隐藏文件的顶部添加:进口Google.GData.Analytics进口Google.GData.Client
现在，为了重用从各种形式withinyour网站的控制，我们将创建一些属性，让我们设置的用户名，密码，配置文件ID StartDate和endate的。
因此，添加下面的代码的wuc_google_analytics.ascx.vb

#Region "Properties"



    Privatestr_Username As String

    Private str_Password As String

    Privatestr_ProfileID As String

    Privatedte_EndDate As DateTime

    Privatedte_StartDate As DateTime

    Private Const UrlAs String = "https://www.google.com/analytics/feeds/data"

    Public PropertyUsername As String

        Get

            Returnstr_Username

        End Get

        Set(value AsString)

           str_Username = value

        End Set

    End Property

    Public PropertyPassword As String

        Get

            Returnstr_Password

        End Get

        Set(value AsString)

           str_Password = value

        End Set

    End Property

    Public PropertyProfileID As String

        Get

            Returnstr_ProfileID

        End Get

        Set(value AsString)

            str_ProfileID= value

        End Set

    End Property

    Public PropertyStartDate As DateTime

        Get

            Returndte_StartDate

        End Get

        Set(value AsDateTime)

           dte_StartDate = value

        End Set

    End Property

    Public PropertyEndDate As DateTime

        Get

            Returndte_EndDate

        End Get

        Set(value AsDateTime)

           dte_EndDate = value

        End Set

    End Property

    Private Service AsAnalyticsService = New AnalyticsService("GoogleAnalytics")

    Private Conststr_Url As String = "https://www.google.com/analytics/feeds/data"

#End Region

Dim Visits As DataFeed = Service.Query(dq_Query)



            For Each ie As DataEntry In Visits.Entries

                Response.Write("Date: " & Replace(ie.Title.Text, "ga:date=", "") & " Visits: " & ie.Metrics(0).Value & "<br/>")

            Next