獲取使用的GData .NET分析API 2.4

Question

在過去的條目中寄存賬戶的特定簡檔我想出如何獲取度量某一協議ID數據： Exception thrown when using GData .NET Analytics API

現在我想找回了一定個人資料ID與我在Google Analytics帳戶列表中註冊的域名相匹配，這很容易，但在Google上次升級到Management/Core Reporting API 3.0之後，舊2.3 Feed已關閉，AccountsFeed相關代碼無法工作如預期。

Answer 1

使用建議張貼在這裏：http://code.google.com/p/gdata-issues/issues/detail?can=2&start=0&num=100&q=&colspec=API%20ID%20Type%20Status%20Priority%20Stars%20Summary&groupby=&sort=&id=2955，我想出了這個代碼工作來完成我需要：

Imports Google 
Imports Google.Analytics 
Imports Google.GData.Analytics 
Imports System.Collections.Generic 
Imports System.Collections 

Public Function GetProfileId(ByVal DomainText As String) As String 

Dim Ids As String = String.Empty 
Dim service As GData.Analytics.AnalyticsService = New GData.Analytics.AnalyticsService("MyAnalyticsService") 
service.setUserCredentials(username, pass) 

//Dim factory As GData.Client.GDataGAuthRequestFactory = CType(service.RequestFactory, GData.Client.GDataGAuthRequestFactory) 
//factory.AccountType = "GOOGLE" 
//factory.UseSSL = True 
//service.RequestFactory = factory  

Dim aF As DataFeed = service.Query(New DataQuery("https://www.googleapis.com/analytics/v2.4/management/accounts")) 
Dim webPropsUrl As String = "" 
For Each o As GData.Client.AtomEntry In aF.Entries 
    //webproperties 
     If o.Title.Text.Contains(DomainText) Then 
      webPropsUrl = o.Links.Item(1).HRef.Content 
      Exit For 
     End If 
Next 

Dim wpF As DataFeed = service.Query(New DataQuery(webPropsUrl)) 
Dim profileFeedUrl As String = "" 
For Each entry As DataEntry In wpF.Entries 
    //profiles 
    profileFeedUrl = entry.Links.Item(2).HRef.Content 
    Exit For 
Next 

Dim prF As DataFeed = service.Query(New DataQuery(profileFeedUrl)) 
Dim profileUrl As String = "" 
For Each profd As DataEntry In prF.Entries 
    profileUrl = profd.Links.Item(0).HRef.Content 
    Exit For 
Next 

Dim profileId As String = "" 
profileId = profileUrl.Split("/")(profileUrl.Split("/").Length - 1) 

Return profileId 

End Function