Refresh token em vb net

Private Function DoAuthentication(ByRef rStrToken As String, ByRef rParameters As OAuth2Parameters) As Boolean
    Dim credential As UserCredential
    Dim Secrets = New ClientSecrets() With {
        .ClientId = m_strClientID,
        .ClientSecret = m_strClientSecret
    }
    'm_Scopes.Add(CalendarService.Scope.Calendar)
    m_Scopes.Add("https://www.googleapis.com/auth/calendar https://www.google.com/m8/feeds/ https://mail.google.com/")

    Try
        credential = GoogleWebAuthorizationBroker.AuthorizeAsync(Secrets, m_Scopes,
                                                                 "user", CancellationToken.None,
                                                                 New FileDataStore("PublicTalkSoftware.Calendar.Application")).Result()

        ' Create the calendar service using an initializer instance
        Dim initializer As New BaseClientService.Initializer() With {
            .HttpClientInitializer = credential,
            .ApplicationName = "~~~~~~~~~~"
        }
        m_Service = New CalendarService(initializer)

        rStrToken = credential.Token.AccessToken.ToString()
        rParameters.AccessToken = credential.Token.AccessToken
        rParameters.RefreshToken = credential.Token.RefreshToken
    Catch ex As Exception
        ' We encountered some kind of problem, perhaps they have not yet authenticated?
        Return False
    End Try

    Return True
End Function

Source: stackoverflow.com

Similar codes

0 vote247 views1 answer
Vbnet hex to binary
VBA
0 vote250 views1 answer
System.Runtime.InteropServices.COMException: 'Call was rejected by callee. (Exception from HRESULT: 0x80010001
VBA
0 vote239 views1 answer
Vba variable number of arguments
VBA
1 vote232 views1 answer
Excel vba first row in range
VBA
0 vote251 views1 answer
Excel vba round to whole number
VBA
0 vote231 views2 answers
Excel vba close without saving
VBA
0 vote256 views1 answer
Excel vba send HTTP POST to server
VBA
0 vote267 views1 answer
Sort dictionary by key vba
VBA
0 vote273 views1 answer
Visual basic cmd
VBA
0 vote246 views1 answer
VB Error Code BC30201
VBA