Hey ho,
Sry wenn ich im falschem Bereich poste, aber ich weiss nicht genau wo ich diesen Post sonst schreiben soll :>
Folgendes:
Ich möchte gerne einen Launcher schreiben, mit dem mein Programm geuppdatet bzw die neue Version heruntergeladen und installiert wird. So umfangreich wie möglich währe mir am liebsten ;D
Ich bin im bereich vb noch ein Anfänger und kann bislang nur Grundlagen. Ich habe bis jetzt zwar einen automatischen Download & (halbwegs) meiner vorstellung entsprechenden Installation geschrieben, das Problem dabei ist, dass ich gerne ein automatisches Update durchführen lassen möchte WENN die version Datei auf meinem ftp höher ist als die, die ich dem Setup meines programmes hinzugefügt habe. Jedoch funktioniert das merkwürdiger weise nicht hier einmal mein Versuch:
Die leeren Zeilen einfach mal bitte ignorieren. Um Missverständnissen vorzubeugen, natürlich habe ich das Label "VersionS" mit der version Datei des PC's verknüpft:
Dann würde ich die MB Zahl der heruntergeladenen Datei gerne 2 stellig anzeigen lassen, sind momentan 7 oder mehr hinterm Komma.
Bitte faucht mich nicht gleich doof an, ich bin wie gesagt noch lange nicht so gut wie ihr mit vb^^
ich würde mich über schnelle Antworten freuen
Lg Cass
Edit by nikeee13:
Es handelt hier sich sicherlich nicht um VBS. Thread verschoben.
Sry wenn ich im falschem Bereich poste, aber ich weiss nicht genau wo ich diesen Post sonst schreiben soll :>
Folgendes:
Ich möchte gerne einen Launcher schreiben, mit dem mein Programm geuppdatet bzw die neue Version heruntergeladen und installiert wird. So umfangreich wie möglich währe mir am liebsten ;D
Ich bin im bereich vb noch ein Anfänger und kann bislang nur Grundlagen. Ich habe bis jetzt zwar einen automatischen Download & (halbwegs) meiner vorstellung entsprechenden Installation geschrieben, das Problem dabei ist, dass ich gerne ein automatisches Update durchführen lassen möchte WENN die version Datei auf meinem ftp höher ist als die, die ich dem Setup meines programmes hinzugefügt habe. Jedoch funktioniert das merkwürdiger weise nicht hier einmal mein Versuch:
VB.NET-Quellcode
- Private Sub httpclient_DownloadFileCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs) Handles httpclient.DownloadFileCompleted
- MsgBox("Download Completed!", MsgBoxStyle.Information, "Succes!")
- Shell(Pfad)
- End Sub
- Private Sub httpclient_DownloadProgressChanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles httpclient.DownloadProgressChanged
- Me.ProgressBar1.Value = e.ProgressPercentage
- Dim totalbytes As Double = e.TotalBytesToReceive / 1048576
- Dim bytes As Double = e.BytesReceived / 1048576
- Me.Label1.Text = bytes & " MB von " & totalbytes & " MB"
- End Sub
- Private Sub WebBrowser3_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser3.DocumentCompleted
- End Sub
- Private Sub OpenFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk
- End Sub
- Private Sub SaveFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles SaveFileDialog1.FileOk
- End Sub
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- If WebBrowser3.DocumentText > "1.1" Then
- MsgBox("Download started", MsgBoxStyle.Information)
- httpclient = New WebClient
- Dim URL As String = "Hier könnte ein Link stehen :P"
- Application.DoEvents()
- httpclient.DownloadFileAsync(New Uri(URL), Pfad)
- Application.DoEvents()
- Button1.Enabled = False
- End If
- End Sub
- End Class
Die leeren Zeilen einfach mal bitte ignorieren. Um Missverständnissen vorzubeugen, natürlich habe ich das Label "VersionS" mit der version Datei des PC's verknüpft:
Dann würde ich die MB Zahl der heruntergeladenen Datei gerne 2 stellig anzeigen lassen, sind momentan 7 oder mehr hinterm Komma.
Bitte faucht mich nicht gleich doof an, ich bin wie gesagt noch lange nicht so gut wie ihr mit vb^^
ich würde mich über schnelle Antworten freuen
Lg Cass
Edit by nikeee13:
Es handelt hier sich sicherlich nicht um VBS. Thread verschoben.
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „nikeee13“ ()