[Slluxx]

[ Visual Basic 2010 ]
Win 7 x64


Hallo

Ich beschäftige mich grade neu mit Visual Basic und ich komme beim Downloadstring nicht weiter ..

google hab ich auch schon benutzt !


Ich habe einen 7Zip Ordner mit dateien erstellt und auf RS hochgeladen.
downloadadresse kopiert und eingefügt.

In JEDEM video was ich gesehen funktionierte das.
nur bei mir nicht..

Alles was passiert ist, es erstellt sich eine datei, die so heißt wie meine, aber fehlerhaft ist.

[ Buttons funktionieren. nur der download nicht ]


Mein Code :

Imports System.Net
Public Class Form1
    Public WithEvents downloader As WebClient
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        TextBox3.Visible = False
        downloader = New WebClient
        downloader.DownloadFileAsync(New Uri(TextBox1.Text), TextBox2.Text)

    End Sub

    Private Sub downloader_DownloadFileCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs) Handles downloader.DownloadFileCompleted
        TextBox3.Visible = True
    End Sub

    Private Sub downloader_DownloadProgressChanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles downloader.DownloadProgressChanged
        ProgressBar1.Value = e.ProgressPercentage
    End Sub

    Private Sub FolderBrowserDialog1_HelpRequest(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FolderBrowserDialog1.HelpRequest
        
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        FolderBrowserDialog1.ShowDialog()
        TextBox2.Text = FolderBrowserDialog1.SelectedPath & "\Minecraft.zip"
    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        TextBox1.Text = "http://rs273l32.rapidshare.com/cgi-bin/rsapi.cgi?sub=download&fileid=287800906&filename=Minecraft.zip&dlauth=BC9AF59D7E71616444D6EFB6D1DD1AD5C18705A76BCDA2E5380896F1CC8BD88FCD45353D2DB9A7346E47EEE12A6F249AA477E318C7530FD274634174363BC686CAAEA30BFD4D17639116602FB41F61A5F2986A98A45BA88500F7AD452486533CF59669CF74933C7D0D629ECF28249CCF"
    End Sub

    Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox3.TextChanged

    End Sub
End Class

ich hoffe das mir schnell geholfen wird ..


MfG
Slluxx