Dim Root As String = "https://sites.google.com/site/downloadmyexe/info/"
Const App As String = "GestorePSW"
Dim URL As String = Root & NomeFile
Dim Cliente As DocumentsService = New DocumentsService(App)
Dim authFactory As GDataGAuthRequestFactory = Cliente.RequestFactory
Dim dwFile As DocumentsRequest, Impostazioni As RequestSettings, Documento As New Document
Dim eDocumenti As Collections.Generic.IEnumerable(Of Document), Feed As Feed(Of Document)
Dim File As StreamWriter
authFactory.KeepAlive = False
authFactory.ProtocolMajor = 3
authFactory.AccountType = "GOOGLE"
Cliente.setUserCredentials("Nome", "PSW")
Cliente.Credentials.AccountType = authFactory.AccountType
'Loggato
'Scarico il file
Impostazioni = New RequestSettings(App, authFactory.CaptchaToken)
dwFile = New DocumentsRequest(Impostazioni)
'Seleziono il documento
Feed = dwFile.GetDocuments
eDocumenti = Feed.Entries
For Each Documento In eDocumenti
If Documento Is Nothing Then MessageBox.Show("Errore") : End
If Documento.Title.ToLower = Path.GetFileNameWithoutExtension(NomeFile).ToLower Then
Exit For
End If
Next
'Download
File = New StreamWriter(dwFile.Download(Documento, Tipo))
File.Flush()
Return File.ToString()
Commenta...