Hallo erstmal,
Sorry für den Fall dass dieser Thread im Falschen Forum ist.
Also ich habe folgendes Problem und zwar möchte ich einen Updater für ein bestimmtes Programm machen. Die Grundlagen habe ich schon (dass er es Downloadet und Speichert). Nun möchte ich noch eine Progressbar die sich wärend dem Download füllt. Ich habe es schon versucht aber nichts funktioniert. Da ich noch neu bin habe ich leider kaum Ahnung davon. Ich weiß man muss sich eigentlich erst damit auseinandersetzen und alles als Anfänger. Aber da dieser Updater ein einmal Projekt werden soll dass ich danach höchstens Optisch etwas auffrische dachte ich es wäre okay dass ich einfach mal hier nachfrage.
Hier der Code:
(Sorry weiß grad nicht wieso der code so "Komisch" da steht.)
Ich hoffe mir kann jemand weiter helfen.
Mit freundlichen Grüßen Weedy
ps: bitte spart euch sachen wie "ähhhh... bist du dumm" und "stell nicht so dumme fragen" *sorry kommt öfters mal vor*
Sorry für den Fall dass dieser Thread im Falschen Forum ist.
Also ich habe folgendes Problem und zwar möchte ich einen Updater für ein bestimmtes Programm machen. Die Grundlagen habe ich schon (dass er es Downloadet und Speichert). Nun möchte ich noch eine Progressbar die sich wärend dem Download füllt. Ich habe es schon versucht aber nichts funktioniert. Da ich noch neu bin habe ich leider kaum Ahnung davon. Ich weiß man muss sich eigentlich erst damit auseinandersetzen und alles als Anfänger. Aber da dieser Updater ein einmal Projekt werden soll dass ich danach höchstens Optisch etwas auffrische dachte ich es wäre okay dass ich einfach mal hier nachfrage.
Hier der Code:
VB.NET-Quellcode
- Public Class Form1
- Dim Web As New Net.WebClient
- Function TestInternetConnection()
- Dim ping As New Net.NetworkInformation.Ping
- Try
- ping.Send("LINK")
- Return True
- Catch ex As Exception
- Return False
- End Try
- End Function
- Private Sub Patch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Patch.Click
- If TestInternetConnection() = True Then
- Try
- Dim version As String = Web.DownloadString("LINK")
- version = CInt(version)
- If version > CInt(lblversion.Text) Then
- Try
- Dim path As String = "LINK"
- My.Computer.Network.DownloadFile(path, Application.StartupPath & "...")
- Catch ex As Exception
- MsgBox(ex.ToString)
- End Try
- End If
- Catch ex As Exception
- End Try
- End If
- End Sub
- End Class
(Sorry weiß grad nicht wieso der code so "Komisch" da steht.)
Ich hoffe mir kann jemand weiter helfen.
Mit freundlichen Grüßen Weedy
ps: bitte spart euch sachen wie "ähhhh... bist du dumm" und "stell nicht so dumme fragen" *sorry kommt öfters mal vor*
Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „weedy135“ ()