Imports System.Collections.Generic Imports System.IO Imports System.Threading Imports Google.Apis.Services Imports Google.Apis.Auth.OAuth2 Imports Google.Apis.Util.Store Imports Google.Apis.Drive.v2 Module Program Sub Main() Dim Secrets = New ClientSecrets() Secrets.ClientId = "?????????????30qj3ac.apps.googleusercontent.com" Secrets.ClientSecret = "???????9ZFwnQBjBouF3Q_6Ja" Dim scope = New List(Of String) scope.Add(DriveService.Scope.Drive) Dim t As Task(Of UserCredential) = _ GoogleWebAuthorizationBroker.AuthorizeAsync(Secrets, scope, _ "USER", CancellationToken.None) Dim credential = t.Result() end Sub end Module
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)