Hallo leute habe einen Downloader für meinen Mienrcaft Server Geschrieben doch das Problem ist das er mir immer in der msg box sagtr der download war erfolgreich doch nichts hat sich getahn. Siet einer von euch meinen Fehler?
VB.NET-Quellcode
- Imports System.Net
- Public Class Form1
- Public WithEvents miental As WebClient
- Dim Lable2 As String
- Private Sub ToolStripMenuItem2_Click(sender As System.Object, e As System.EventArgs) Handles ToolStripMenuItem2.Click
- miental = New WebClient
- miental.DownloadFileAsync(New Uri("http://dl.dropbox.com/u/72002529/grplauncher0.7.2.exe"), TextBox1.Text)
- End Sub
- Private Sub miental_DownloadFileCompleted(sender As Object, e As System.ComponentModel.AsyncCompletedEventArgs) Handles miental.DownloadFileCompleted
- MsgBox("Download wurde Fertiggestellt!")
- End Sub
- Private Sub miental_DownloadProgressChanged(sender As Object, e As System.Net.DownloadProgressChangedEventArgs) Handles miental.DownloadProgressChanged
- Me.ProgressBar1.Value = e.ProgressPercentage
- Me.Label1.Text = e.BytesReceived & "von" & e.TotalBytesToReceive & "Bytes"
- Me.Lable2 = e.ProgressPercentage & "%"
- End Sub
- Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
- End Sub
- End Class
