Hey com
ich brauche dringend hilfe bei meinem updater für ein spiel.
ich will so ein updater machen wie bei z.b. World of Tanks.
das der nach updates sucht dann wen welche da sind runterläd und gleich da hin installiert wo es hin soll also in das game verzeichnis.
ich möchte eine progressbar haben und ein feld wo dann steht was bei dem update neu ist.
ich habe einen schon gemacht aber irgend wie geht das alles nicht ich hinterlege mal ein bild
und den code auch.
villeicht gibt es ja schon ein thema dazu oder ein tut wäre gut wenn ihr mir dann das zeigt.
(ich bin noch ein "anfänger" darin )
habe zwar schon ein bissel programmiert und so aber nicht sowas
das habe ich schon gemacht aber es soll ja automatisch instalieren und wenn noch kein game vorhanden ist das dann ausgesucht wird wohin das alles runtergeladen werden soll.
das rot umrandete ist wie es aussehen soll mit progressbar und % anzeige dadrüber soll dann stehen was neu ist im update.
i.imagebanana.com/img/w6tcr3fb/asdd.png
Viele dank für eure hilfe.
bei weiter benötigten infos einfach schreiben.
lg vbcji
ich brauche dringend hilfe bei meinem updater für ein spiel.
ich will so ein updater machen wie bei z.b. World of Tanks.
das der nach updates sucht dann wen welche da sind runterläd und gleich da hin installiert wo es hin soll also in das game verzeichnis.
ich möchte eine progressbar haben und ein feld wo dann steht was bei dem update neu ist.
ich habe einen schon gemacht aber irgend wie geht das alles nicht ich hinterlege mal ein bild
und den code auch.
villeicht gibt es ja schon ein thema dazu oder ein tut wäre gut wenn ihr mir dann das zeigt.
(ich bin noch ein "anfänger" darin )
habe zwar schon ein bissel programmiert und so aber nicht sowas
VB.NET-Quellcode
- Imports System.Net
- Public Class Form1
- Private WithEvents wc1 As WebClient
- Private WithEvents wc2 As WebClient
- Dim lbl_progress As Object
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- Button1.Text = "Suche..."
- Button1.Enabled = False
- update()
- End Sub
- Sub update()
- wc1 = New WebClient
- If wc1.DownloadString("") <> "1.0" Then
- MsgBox("Es werden Updates heruntergeladen", MsgBoxStyle.Information, "Update-Ergebnis")
- download("")
- Else
- MsgBox("keine updates vorhanden", MsgBoxStyle.Information, "update-Ergebnis")
- Button1.Enabled = True
- Button1.Text = "Nach Updates suchen"
- End If
- End Sub
- Sub download(ByVal url As String)
- wc2 = New WebClient
- wc2.DownloadFileAsync(New Uri(url), "My.Computer.Network.DownloadFile(path, Environment.GetFolderPath(Environment.SpecialFolder.Desktop) & "/" & version & "" & "version.txt")
- End Sub
- Private Sub wc2_donloadcompleted(ByVal sender As Object, ByVal w As System.ComponentModel.AsyncCompletedEventArgs) Handles wc2.DownloadFileCompleted
- MsgBox("Download abgeschlossen", MsgBoxStyle.Information, "Download")
- Button1.Enabled = True
- Button1.Text = "nach Updates suchen"
- pgb_progress.Visible = False
- lbl_progress.Visible = False
- End Sub
- Private Sub wc2_Downloadchanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles wc2.DownloadProgressChanged
- pgb_progress.Visible = True
- lbl_progress.Visible = True
- pgb_progress.Value = e.ProgressPercentage
- lbl_prgress.Text = e.ProgressPercentage.ToString & "%"
- End Sub
- Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
- End
- End Sub
- Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
- Process.Start("http://www.google.de")
- End Sub
- Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
- Dim Programm As Long
- Programm = Shell("notepad.exe", vbNormalFocus)
- End
- End Sub
- End Class
das habe ich schon gemacht aber es soll ja automatisch instalieren und wenn noch kein game vorhanden ist das dann ausgesucht wird wohin das alles runtergeladen werden soll.
das rot umrandete ist wie es aussehen soll mit progressbar und % anzeige dadrüber soll dann stehen was neu ist im update.
i.imagebanana.com/img/w6tcr3fb/asdd.png
Viele dank für eure hilfe.
bei weiter benötigten infos einfach schreiben.
lg vbcji