Sub Class_Globals
    Private mreq As ServletRequest        'ignore
    Private mresp As ServletResponse    'ignore
    Private oauth2 As GoogleOAuth2
    
End Sub
Public Sub Initialize
    
    oauth2.Initialize(Me, "oauth2", Main.ClientId, "https://www.googleapis.com/auth/dialogflow", _
        Main.ClientSecret, Main.DataFolder)
End Sub
Sub Handle(req As ServletRequest, resp As ServletResponse)
    
    
    oauth2.GetAccessToken
    Wait For OAuth2_AccessTokenAvailable (Success As Boolean, Token As String)
    If Success = True Then
        Log(Token)
    Else
    
        Return
    
    End If
End Sub