Мы продолжаем получать ошибку ниже всякий раз, когда мы пытаемся получить доступ к API, чтобы получить текущие номера пользователей.Я попробовал несколько вещей, но не могу докопаться до сути.Может ли кто-нибудь пролить свет на то, что не так?
Я должен отметить, что, таким образом, он прекрасно работает на моем локальном ПК, но не работает на сервере.
Вот ошибка:
Ошибка ConnectToAnalytics: Система.Security.Cryptography.CryptographicException: указан неверный тип поставщика.в System.Security.Cryptography.Utils.CreateProvHandle (параметры CspParameters, логическое значение randomKeyContainer) в System.Security.Cryptography.Utils.GetKeyPairHelper (параметры CspAlgorithmType keyType, CspParameters, SafeHand и SafeKleHleKleWeyHeyKeySec,.Cryptography.RSACryptoServiceProvider.GetKeyPair () в System.Security.Cryptography.RSACryptoServiceProvider..ctor (Int32 dwKeySize, CspParameters, логическое значение useDefaultKeySize) в System.Sec.OAuth2.ServiceAccountCredential.Initializer.FromCertificate (сертификат X509Certificate2) в C: \ Users \ mdril \ Documents \ GitHub \ google-api-dotnet-client \ Src \ GoogleApis.Auth.DotNet4 \ OAuth2 \ ServiceAccountCredential.cs:ConnectToAnalytics ()
Эта ошибка выдается, когда я запускаю код:
Public Shared Function GetRealtimeUsers() As String
Try
'realtime on site
Dim gsService As AnalyticsService = Core.ConnectToAnalytics
Dim RequestRealtime As DataResource.RealtimeResource.GetRequest = gsService.Data.Realtime.[Get]([String].Format("ga:{0}", "xxxxx"), "rt:activeUsers")
Dim feed As RealtimeData = RequestRealtime.Execute()
Return Int(feed.Rows(0)(0)).ToString()
Catch ex As Exception
Return "QUOTA USED"
End Try
Ошибка здесь: RequestRealtime.Execute()
Для справки - вот скрипт подключения:
Public Shared Function ConnectToAnalytics() As AnalyticsService
Try
Dim scopes As String() = New String() {AnalyticsService.Scope.Analytics, AnalyticsService.Scope.AnalyticsEdit, AnalyticsService.Scope.AnalyticsManageUsers, AnalyticsService.Scope.AnalyticsReadonly}
Dim keyFilePath = HttpContext.Current.Server.MapPath("\xxx.p12")
Dim serviceAccountEmail = "xxx"
Dim certificate = New X509Certificate2(keyFilePath, "xxxx", X509KeyStorageFlags.Exportable)
Dim credential = New ServiceAccountCredential(New ServiceAccountCredential.Initializer(serviceAccountEmail) With {.Scopes = scopes}.FromCertificate(certificate))
Return New AnalyticsService(New BaseClientService.Initializer() With {.HttpClientInitializer = credential, .ApplicationName = "Client for xxx"})
Catch ex As Exception
Core.SendAdminStatusReport("ConnectToAnalytics error: " & ex.ToString)
Throw ex
End Try
End Function