VB NET Download file da Google Site

    Dim Root As String = "https://sites.google.com/site/downloadmyexe/info/"

     Private Function DownloadFile(ByVal NomeFile As String) As String
        Dim Req As HttpWebRequest, MyStream As StreamWriter, Response As HttpWebResponse
        Dim URL As String = Root & NomeFile

        Req = HttpWebRequest.Create(URL)
        Req.Credentials = New NetworkCredential("eMailUtente", "Password eMail")
        Response = Req.GetResponse() 'Errore 403

        MyStream = New StreamWriter(Response.GetResponseStream)
        DownloadFile = MyStream.ToString()
        MyStream.Flush()

        'Fine

        'Chiudo tutto
        MyStream.Close()
        Response.Close()

        'Dispose
        MyStream.Dispose()

        'Nothing
        Req = Nothing
        MyStream = Nothing
        Response = Nothing
    End Function

        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()

 Il codice sorgente non è stato renderizzato qui
perchè non c'è sufficiente spazio.
Clicca qui per visualizzarlo in una nuova finestra