Estou enfrentando um problema ao tentar buscar dados da GoogleAnalytics API em uma parte do código que está funcionando bem há alguns dias.

Para isso estou referenciando as seguintes DLL's:

Google.GData.Analytics.dll
Google.GData.Client.dll
Google.GData.Extensions.dll

E estou usando o seguinte código:

Dim visits As String = String.Empty
Dim username As String = "[email protected]"
Dim pass As String = "mypassword"

Const dataFeedUrl As String = "https://www.google.com/analytics/feeds/data"
Dim query As AccountQuery = New AccountQuery()
Dim service As AnalyticsService = New AnalyticsService("MyWebAnalyticsService")
service.setUserCredentials(username, pass)
Dim accountFeed As AccountFeed = service.Query(query) ''----------> Exception thrown in this line: GDataRequestException Execution of request failed: https://www.google.com/analytics/feeds/accounts/default

Eu pensei que tinha a ver com um bloqueio para a conta que eu estava usando, mas não foi o caso, porque eu verifiquei o registro do site para outra conta de análise e ainda não está funcionando.

Este código tem funcionado perfeitamente como eu disse, mas de repente parou de fazê-lo ontem.

Você poderia por favor me ajudar a descobrir o que está errado? Talvez o modo como as credenciais do usuário estejam definidas tenha sido alterado e eu esteja perdendo alguma coisa.

Muito obrigado pela sua ajuda.

'----Atualizar---- Consegui fazê-lo funcionar e agora posso consultar as visitas para um domínio desejado. O código é o seguinte:

Dim visits As String = String.Empty
Dim username As String = "[email protected]" 
Dim pass As String = "mypassword"

'Siga as instruções nahttps://developers.google.com/analytics/resources/articles/gdata-migration-guide (Crie um projeto no Console de APIs do Google) para gerar sua chave "Depois de configurá-lo como parte da cadeia de consulta para solicitar nosso serviço GA

Dim gkey As String = "key=yourkeystring"

'Definir o novo URI para recuperar os dados de feed e anexá-lo à chave gerada

Dim dataFeedUrl As String = "https://www.google.com/analytics/feeds/data?" & gkey   

'Crie e autentique em nossa instância de serviço

Dim service As AnalyticsService = New AnalyticsService("MyAnaliticsService")
service.setUserCredentials(username, pass)  

'Use o id do perfil para a conta que você deseja obter essas visitas, você pode encontrá-lo
'logging em sua conta de análise, selecione o domínio desejado em sua lista (link azul) clique no botão do administrador e na guia perfis encontrar o perfil
'subguia de configuração, ali mesmo você vai encontrar o ID do perfil, neste caso, os oito caracteres id longa 12345678

Dim query1 As DataQuery = New DataQuery(dataFeedUrl)
With query1            
    .Ids = "ga:12345678" 
    .Metrics = "ga:visits"
    .Sort = "ga:visits"
    .GAStartDate = DateTime.Now.AddMonths(-1).AddDays(-2).ToString("yyyy-MM-dd")
    .GAEndDate = DateTime.Now.ToString("yyyy-MM-dd")
    .StartIndex = 1
End With

'Use o feed de dados gerado com base na consulta anterior para obter as visitas

Dim dataFeedVisits As DataFeed = service.Query(query1)

For Each entry As DataEntry In dataFeedVisits.Entries
    Dim st As String = entry.Title.Text
    Dim ss As String = entry.Metrics(0).Value
    visits = ss
Next