Visual-Basic-Forum VB-Paradise.de

Quellcode

Fehler	1	Der Name "WebClient1" wurde nicht deklariert.	C:\Users\Cem\Documents\Visual Studio 2008\Projects\Cod 6 Launcher  V.1.0\Cod 6 Launcher  V.1.0\Form3.vb	30	20	Cod 6 Launcher  V.1.0
Fehler	2	Der Name "WebClient1" wurde nicht deklariert.	C:\Users\Cem\Documents\Visual Studio 2008\Projects\Cod 6 Launcher  V.1.0\Cod 6 Launcher  V.1.0\Form3.vb	39	21	Cod 6 Launcher  V.1.0
Fehler	3	Das Ereignis "DownloadProgressChanged" wurde nicht gefunden.	C:\Users\Cem\Documents\Visual Studio 2008\Projects\Cod 6 Launcher  V.1.0\Cod 6 Launcher  V.1.0\Form3.vb	49	153	Cod 6 Launcher  V.1.0

Visual Basic Quellcode

Imports System.Net
Imports System.IO

Public Class frmMain

WithEvents WebClient1 As New Net.WebClient ' Für das WebClient steuerelement mit Events z.b. DownloadProgressChanged... 

Dim ProgrammPfad As String = System.IO.Path.GetDirectoryName(Application.ExecutablePath)
Dim sLine As String ' Für die Zeilen der Textdatei
Dim oStream As IO.StreamReader  ' Zum auslesen der Textdatei
Dim gesendet As Integer ' Bytes die gesendet wurden
Dim gesammt As Integer ' Bytes gesammt der Datei

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    lblStatus.Text = "" ' Setzt den Status Text auf "" also nichts
    lblName.Text = "" ' Setzt den Name Text auf "" also nichts
    'lblName.Visible = False ' Macht das lblname Label unsichtbar weil es nur für den Code gebraucht wird.

    'bgwrkDownload.RunWorkerAsync() ' Backgroundworker starten der die Dateien in einem anderem Thread downloadet um einfrieren des Programms zu verhindern während des Downloads
End Sub

Private Sub cmdUpdate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdUpdate.Click
    bgwrkDownload.RunWorkerAsync() ' Backgroundworker starten der die Dateien in einem anderem Thread downloadet um einfrieren des Programms zu verhindern während des Downloads
End Sub

Private Sub bgwrkDownload_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bgwrkDownload.DoWork
    Try
        If My.Computer.FileSystem.FileExists(ProgrammPfad & "\update.txt") Then   ' Prüfen ob Datei vorhanden ist
            My.Computer.FileSystem.DeleteFile(ProgrammPfad & "\update.txt") ' Wenn ja löschen
        End If

        My.Computer.Network.DownloadFile("http://www.rofl.de/update.txt", ProgrammPfad & "\update.txt") 'Datei downloaden mit den Links

        Dim leser As String = ProgrammPfad & "\update.txt" 'Speichert den Pfad zur Datei in die Variable leser.
        Dim oFile As New IO.FileInfo(leser) ' Holt sich die Infos über die Datei !

        If oFile.Exists() = True Then ' Wenn die Datei "update.txt" existiert dann..
            oStream = New IO.StreamReader(leser) 'Datei zum lesen auswählen
            ' Datei zeilenweise auslese
            Do
                If WebClient1.IsBusy = True Then ' wenn webclient1 schon am arbeiten ist dann 
                    ' nichts machen
                Else ' Falls nicht
                    sLine = oStream.ReadLine() 'Nächste Zeile der Textdatei lesen
                    If IsNothing(sLine) Then MsgBox("Keine weiteren Dateien zum Download verfügbar") ' Wenn die Zeile Leer ist dann Messagebox zur Info anzeigen

                    Dim uri As New Uri(sLine) 'URL für den Webclient setzen mit dem Link aus der Zeile der Textdatei.
                    Dim dateiname As String = IO.Path.GetFileName(sLine) 'Den dateinamen holen von der Datei die gedownloadet werden soll.
                    lblName.Text = dateiname 'Dem Label "lblname" den Dateinamen als Text geben.
                    WebClient1.DownloadFileAsync(uri, ProgrammPfad & "\new_" & dateiname) ' Den Download der Datei starten.
                End If
            Loop
            oStream.Close() 'wenn alles fertig lesen schließen
        End If
    Catch ex As Exception
        MsgBox("Fehler: " & ex.Message, MsgBoxStyle.Critical Or MsgBoxStyle.OkOnly, "FEHLER!!!")
    End Try
End Sub

Private Sub WebClient1_DownloadProgressChanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles WebClient1.DownloadProgressChanged
    Try
        gesendet = e.BytesReceived 'Die gesendetem Bytes in der Variable gesendet speichern
        gesammt = e.TotalBytesToReceive 'Die gesammten Bytes in die Variable gesammt speichern
        lblStatus.Text = gesendet & " von " & gesammt & " empfangen. Dateiname : " & lblName.Text 'Status anzeigen
        prgbarDownload.Value = e.ProgressPercentage 'Progressbar füllen.
    Catch ex As Exception
        MsgBox("Fehler: " & ex.Message, MsgBoxStyle.Critical Or MsgBoxStyle.OkOnly, "FEHLER!!!")
    End Try
End Sub

End Class

Visual Basic Quellcode

Delegate Sub settextcallback(ByVal [text] As string)

Private Sub settext(ByVal [text] As string)

If lblstatus.InvokeRequired Then
Dim d As New settextcallback(AddressOf settext)
Me.Invoke(d, New Object() {[text]})
Else
lblstatus.Text = [text]
End If
End Sub

Visual Basic Quellcode

... = oStream.ReadLine() 'Nächste Zeile der Textdatei lesen
If IsNothing(sLine) Then
    	MsgBox("Keine weiteren Dateien zum Download verfügbar!" & "Bitte warten Sie, bis der Download abgeschlossen ist!", MsgBoxStyle.Information Or MsgBoxStyle.OkOnly) ' Wenn die Zeile Leer ist dann Messagebox zur Info anzeigen
    	Exit Do ' Schleifen beenden, da da keine weiteren Dateien zum Download zur Verfügung stehen
End If

Dim uri As New...

Visual Basic Quellcode

Imports System.Net
Imports System.IO

Public Class updater
    WithEvents WebClient1 As New Net.WebClient ' Für das WebClient steuerelement mit Events z.b. DownloadProgressChanged... 

    Dim sLine As String ' Für die Zeilen der Textdatei
    Dim oStream As IO.StreamReader  ' Zum auslesen der Textdatei
    Dim gesendet As Integer ' Bytes die gesendet wurden
    Dim gesammt As Integer ' Bytes gesammt der Datei
    Dim titel As String = "Multidownloader " ' Fenstertitel
    Private Sub updater_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
        lblstatus.Text = "" ' Setzt den Status Text auf "" also nichts
        lblname.Visible = False ' Macht das lblname Label unsichtbar weil es nur für den Code gebraucht wird.
        Me.Text = titel ' Fenstertitel ändern

        downloadBackgroundWorker.RunWorkerAsync() ' Backgroundworker starten der die Dateien in einem anderem Thread downloadet um einfrieren des Programms zu verhindern während des Downloads

    End Sub

    Private Sub BackgroundWorker1_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles downloadBackgroundWorker.DoWork
        If My.Computer.FileSystem.FileExists(Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) & "\update.txt") Then   ' Prüfen ob Datei vorhanden ist
            My.Computer.FileSystem.DeleteFile(Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) & "\update.txt") ' Wenn ja löschen
        End If

        My.Computer.Network.DownloadFile("http://link.de/update.txt", Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) & "\update.txt") 'Datei downloaden mit den Links

        Dim leser As String ' Eine neue Variable erstellen mit dem namen leser des Typs String
        leser = My.Computer.FileSystem.SpecialDirectories.MyDocuments & "\update.txt" 'Speichert den Pfad zur Datei in die Variable leser.
        Dim oFile As New IO.FileInfo(leser) ' Holt sich die Infos über die Datei !

        If oFile.Exists() = True Then ' Wenn die Datei "update.txt" existiert dann..
            oStream = New IO.StreamReader(leser) 'Datei zum lesen auswählen
            ' Datei zeilenweise auslese

            Do
                If WebClient1.IsBusy = True Then ' wenn webclient1 schon am arbeiten ist dann 
                    ''''nichts machen
                Else ' Falls nicht
                    sLine = oStream.ReadLine() 'Nächste Zeile der Textdatei lesen
                    If IsNothing(sLine) Then MessageBox.Show("Keine weiteren Dateien zum Download verfügbar") ' Wenn die Zeile Leer ist dann Messagebox zur Info anzeigen

                    Dim uri As New Uri(sLine) 'URL für den Webclient setzen mit dem Link aus der Zeile der Textdatei.
                    Dim dateiname As String = IO.Path.GetFileName(sLine) 'Den dateinamen holen von der Datei die gedownloadet werden soll.
                    lblname.Text = dateiname 'Dem Label "lblname" den Dateinamen als Text geben.
                    WebClient1.DownloadFileAsync(uri, My.Computer.FileSystem.CurrentDirectory & "\" & dateiname) ' Den Download der Datei starten.
                End If
            Loop
            oStream.Close() 'wenn alles fertig lesen schließen
        End If

    End Sub

    Private Sub WebClient1_DownloadProgressChanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles WebClient1.DownloadProgressChanged
        gesendet = e.BytesReceived 'Die gesendetem Bytes in der Variable gesendet speichern
        gesammt = e.TotalBytesToReceive 'Die gesammten Bytes in die Variable gesammt speichern
        lblstatus.Text = gesendet & " von " & gesammt & " empfangen. Dateiname : " & lblname.Text 'Status anzeigen
        Me.Text = titel & " " & e.ProgressPercentage & " % von " & lblname.Text 'Fenstertitel ändern
        ProgressBar1.Value = e.ProgressPercentage 'Progressbar füllen.
    End Sub

    Private Sub updater_Load_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        downloadBackgroundWorker.CancelAsync()
        Me.Close()
    End Sub
End Class

Visual Basic Quellcode

'Pseudo:
Pause = Falsch

Download Start
    While Pause : While End
    ' sth. to download
Download End

Visual Basic Quellcode

Fehler: Illegales Zeichen im Pfad