Hilfe bei Launcher/Updater Verfeinerung?

Tecko · 17. April 2017, 16:10

Hallo,

ich bin momentan dabei für einen Altis Server einen Launcher zu erstellen. Soweit läuft auch alles. Nur würde ich die ein oder andere Sache gern anders geregelt haben, komme da selbst aber leider nicht mehr wirklich weiter.

Und Zwar sieht der komplette Code momentan so aus:
Habe unsere Domain aber entfernt)(

Spoiler anzeigen

VB.NET-Quellcode

Imports System.IO
Imports System.Text
Imports System.Net
Public Class TerranTitansLauncher
Friend WithEvents MyWebClient As New Net.WebClient
Dim client As New Net.WebClient
Private Sub DownloadProgress(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs)
Me.ProgressBar1.Value = e.ProgressPercentage
End Sub
Private Sub MyWebClient_DownloadProgressChanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles MyWebClient.DownloadProgressChanged
ProgressBar1.Value = e.ProgressPercentage
Dim totalbytes As Long = e.TotalBytesToReceive / 1024
Dim bytes As Long = e.BytesReceived / 1024
ToString()
Label2.Text = bytes.ToString & " kb von " & totalbytes.ToString & " kb"
If ProgressBar1.Value = 100 Then
Label2.Text = ("Fertig")
MsgBox("Dein Download war Erfolgreich!")
End If
End Sub
Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
Dim iox As New IO.StreamReader(My.Application.Info.DirectoryPath & "\data\version.txt", System.Text.Encoding.Default)
Dim ot As String = iox.ReadToEnd
iox.Close()
'Launchername
My.MyProject.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\TerranTitansLauncher", "Version", "1.0.0")
'hier bitte euren Link/Pfad angeben zur version.txt
Me.client.DownloadFile("http://launcher.domain.de/version/version.txt", My.MyProject.Application.Info.DirectoryPath & "\data\version.txt")
Me.TextBox1.Text = My.MyProject.Computer.FileSystem.ReadAllText(My.MyProject.Application.Info.DirectoryPath & "\data\pfad.txt")
Me.TextBox2.Text = My.MyProject.Computer.FileSystem.ReadAllText(My.MyProject.Application.Info.DirectoryPath & "\data\para.txt")
Dim streamreader1 As System.IO.StreamReader = New System.IO.StreamReader(My.MyProject.Application.Info.DirectoryPath & "\data\version.txt", System.Text.Encoding.Default)
Dim str1 As String = streamreader1.ReadToEnd()
streamreader1.Close()
'Launchername
If ot = My.Computer.Registry.GetValue("HKEY_CURRENT_USER\Software\TerranTitansLauncher", "version", "1.0.0") Then
Else
MsgBox("Update Verfügbar")
End If
End Sub
Private Sub Form1_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown
If (e.Button = Windows.Forms.MouseButtons.Left) Then
Me.Capture = False
Me.WndProc(Message.Create(Me.Handle, &HA1, CType(&H2, IntPtr), IntPtr.Zero))
Else : End If
End Sub
Private Sub TerranTitansLauncher_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
PictureBox1.Parent = Me
PictureBox1.BackColor = Color.Transparent
PictureBox2.Parent = Me
PictureBox2.BackColor = Color.Transparent
PictureBox3.Parent = Me
PictureBox3.BackColor = Color.Transparent
PictureBox4.Parent = Me
PictureBox4.BackColor = Color.Transparent
PictureBox5.Parent = Me
PictureBox5.BackColor = Color.Transparent
PictureBox6.Parent = Me
PictureBox6.BackColor = Color.Transparent
PictureBox7.Parent = Me
PictureBox7.BackColor = Color.Transparent
End Sub
Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
Application.Exit()
End Sub
Private Sub PictureBox1_MouseEnter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.MouseEnter
PictureBox1.BackgroundImage = My.Resources.X
End Sub
Private Sub PictureBox1_MouseLeave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.MouseLeave
PictureBox1.BackgroundImage = Nothing
End Sub
Private Sub PictureBox2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox2.Click
Me.WindowState = FormWindowState.Minimized
End Sub
Private Sub PictureBox2_MouseEnter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox2.MouseEnter
PictureBox2.BackgroundImage = My.Resources.Minimieren
End Sub
Private Sub PictureBox2_MouseLeave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox2.MouseLeave
PictureBox2.BackgroundImage = Nothing
End Sub
Private Sub PictureBox3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox3.Click
'Modpack/s und IP einfügen
'Staret das spiel und lässt auf den server connecten
Process.Start(Me.TextBox1.Text & "\arma3battleye.exe ", " 0 1 -connect=serverip " & TextBox2.Text)
End Sub
Private Sub PictureBox3_MouseEnter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox3.MouseEnter
PictureBox3.BackgroundImage = My.Resources.Spielen
End Sub
Private Sub PictureBox3_MouseLeave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox3.MouseLeave
PictureBox3.BackgroundImage = Nothing
End Sub
Private Sub PictureBox4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox4.Click
'Speichert Pfad und Startparameter in einer Textdatei
My.Computer.FileSystem.WriteAllText(My.MyProject.Application.Info.DirectoryPath & "\data\pfad.txt", TextBox1.Text, False)
My.Computer.FileSystem.WriteAllText(My.MyProject.Application.Info.DirectoryPath & "\data\para.txt", TextBox2.Text, False)
End Sub
Private Sub PictureBox4_MouseEnter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox4.MouseEnter
PictureBox4.BackgroundImage = My.Resources.Speichern
End Sub
Private Sub PictureBox4_MouseLeave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox4.MouseLeave
PictureBox4.BackgroundImage = Nothing
End Sub
Private Sub PictureBox5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox5.Click
'Sorgt dafür das man Pfad suchen kann
Dim FolderBrowser As New FolderBrowserDialog
FolderBrowser.Description = "Bitte wähle deinen Pfad zu Arma 3..."
FolderBrowser.ShowNewFolderButton = True
FolderBrowser.RootFolder = System.Environment.SpecialFolder.Desktop
FolderBrowser.SelectedPath = My.Computer.FileSystem.SpecialDirectories.Desktop
If FolderBrowser.ShowDialog = Windows.Forms.DialogResult.OK Then
Me.TextBox1.Text = FolderBrowser.SelectedPath
End If
End Sub
Private Sub PictureBox5_MouseEnter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox5.MouseEnter
PictureBox5.BackgroundImage = My.Resources.Suchen
End Sub
Private Sub PictureBox5_MouseLeave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox5.MouseLeave
PictureBox5.BackgroundImage = Nothing
End Sub
Private Sub PictureBox6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox6.Click
'Fragt auf Webspace die version ab und wenn es Änderungen gab lädt er die neue version des Launchers runter
'Lässt bei Änderungen am Launcher eine neue Version downloaden
Dim iox As New IO.StreamReader(My.Application.Info.DirectoryPath & "\data\version.txt", System.Text.Encoding.Default)
Dim ot As String = iox.ReadToEnd
iox.Close()
If ot = My.Computer.Registry.GetValue("HKEY_CURRENT_USER\Software\TerranTitansLauncher", "version", "1.0.0") Then
MsgBox("Der Launcher ist auf dem neuesten Stand!")
Else
'Link/Pfad zum Launcher.rar
SendMessage(ProgressBar1.Handle, 1040, 2, 0)
Timer1.Start()
client.DownloadFileAsync(New System.Uri("http://launcher.domain.de/update/TerranTitansLauncher.rar"), My.Application.Info.DirectoryPath & "\TerranTitansLauncher.rar")
AddHandler client.DownloadProgressChanged, AddressOf DownloadProgress
End If
End Sub
Private Sub PictureBox6_MouseEnter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox6.MouseEnter
PictureBox6.BackgroundImage = My.Resources.Update
End Sub
Private Sub PictureBox6_MouseLeave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox6.MouseLeave
PictureBox6.BackgroundImage = Nothing
End Sub
Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer
Private Sub PictureBox7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox7.Click
'Modpack Downloaden.Link/Pfad zu Modpack/Missionpbo File
SendMessage(ProgressBar1.Handle, 1040, 2, 0)
Timer1.Start()
client.DownloadFileAsync(New System.Uri("http://launcher.domain.de/update/Altis_Life.Altis.pbo"), My.Application.Info.DirectoryPath & "\mission\Altis_Life.Atlis.pbo")
AddHandler client.DownloadProgressChanged, AddressOf DownloadProgress
End Sub
Private Sub PictureBox7_MouseEnter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox7.MouseEnter
PictureBox7.BackgroundImage = My.Resources.Download
End Sub
Private Sub PictureBox7_MouseLeave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox7.MouseLeave
PictureBox7.BackgroundImage = Nothing
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
ProgressBar1.Increment(1)
End Sub
Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
Label1.Text = IO.File.ReadAllText("version.txt")
End Sub
End Class

Launcher sieht momentan so aus (Nix weltbewegendes, aber für die Bedürfnisse noch ausreichend):

Spoiler anzeigen

Wenn irgendwo Fehler sind würde ich mich auch über Verbesserungsvorschläge freuen. Ist mein erster Versuch und ich muss da halt noch etwas mehr rein finden.
Ich habe da jedoch paar Probleme...

1. Bei Label2 sollte, wenn man Update oder Download drückt normal die kb von kb mit der Progressbar mitgehen. Tut es aber nicht.

2. Bei Label1 hätte ich es gerne anders gelöst. Und zwar würde ich wollen, das er schon mit der version.txt auf dem Webspace vergleicht und bei Bedarf halt sagt das eine Neue Version verfügbar ist. Dann kann man ja über Update die neue Launcherdateien runterladen. Wenn das fertig ist soll er bei Label1 die neue Version hinschreiben, welche der neue Launcher hat. Was halt auch super wäre, wenn die RaR-Datei auch gleich im Ordner des Launchers entpackt wird und dann mit der neuen Version neustartet.

3. Was noch ein nettes Feature wäre, eine Serverstatusanzeige. Also ob der Webspace online ist. Das Ganze am besten mit einem grünen bzw. roten Symbol für offline angezeigt.

Der Server geht nämlich in paar Tagen in die Closed Alpha und da würde der Launcher einiges einfacher machen. Würde mich deshalb echt freuen, wenn mir da einer etwas unter die Arme greifen könnte mit dem Code. Auch wenn es geht etwas genauer, damit ich auch eventuelle Fehler leichter sehe.

Was ich auch komisch finde. Wenn man die .pbo datei über den Launcher runterlädt und in den MPMissionsCache Order reinpackt. Muss man die Mission beim joinen des Server trotzdem runterladen???
Normal soll das ja dadurch abgenommen werden.
Wenn man die Datei direkt ohne Launcher runterlädt und einfügt, dann muss man die mission nicht noch runterladen? Ich blick da echt nicht ganz durch...

Gruß Tecko

asusdk · 18. April 2017, 08:22

Grüß Dich,

Mangels Zeit (muss zur Arbeit) konnt ich jetzt erstmal nur einige der VB-Nymespaces bzw. My-Namespaces ersetzen (Veraltete Funktionen die man vermeiden sollte)
text auch etwas umformatiert damit er besser zu lesen ist, (so können dir Versiertere User hier besser helfen)

Mangels Zeit noch ungetestet :

Spoiler anzeigen

VB.NET-Quellcode

Imports System.IO
Imports System.Text
Imports System.Net
Public Class Form1
Friend WithEvents MyWebClient As New Net.WebClient
Dim client As New Net.WebClient
Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
(ByVal hwnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer
Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
PictureBox1.Parent = Me
PictureBox1.BackColor = Color.Transparent
PictureBox2.Parent = Me
PictureBox2.BackColor = Color.Transparent
PictureBox3.Parent = Me
PictureBox3.BackColor = Color.Transparent
PictureBox4.Parent = Me
PictureBox4.BackColor = Color.Transparent
PictureBox5.Parent = Me
PictureBox5.BackColor = Color.Transparent
PictureBox6.Parent = Me
PictureBox6.BackColor = Color.Transparent
PictureBox7.Parent = Me
PictureBox7.BackColor = Color.Transparent
Dim iox As New IO.StreamReader(My.Application.Info.DirectoryPath & "\data\version.txt", System.Text.Encoding.Default)
Dim ot As String = iox.ReadToEnd
iox.Close()
'Launchername
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\TerranTitansLauncher", "Version", "1.0.0")
'hier bitte euren Link/Pfad angeben zur version.txt
client.DownloadFile("http://launcher.domain.de/version/version.txt", Application.ExecutablePath & "\data\version.txt")
TextBox1.Text = File.ReadAllText(Application.ExecutablePath & "\data\pfad.txt")
TextBox2.Text = File.ReadAllText(Application.ExecutablePath & "\data\para.txt")
Dim streamreader1 As StreamReader = New StreamReader(Application.ExecutablePath & "\data\version.txt", Encoding.Default)
Dim str1 As String = streamreader1.ReadToEnd()
streamreader1.Close()
'Launchername
If ot = My.Computer.Registry.GetValue("HKEY_CURRENT_USER\Software\TerranTitansLauncher", "version", "1.0.0") Then
Else
MessageBox.Show("Update Verfügbar")
End If
End Sub
Private Sub DownloadProgress(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs)
ProgressBar1.Value = e.ProgressPercentage
End Sub
Private Sub MyWebClient_DownloadProgressChanged(ByVal sender As Object, ByVal e As Net.DownloadProgressChangedEventArgs) Handles MyWebClient.DownloadProgressChanged
ProgressBar1.Value = e.ProgressPercentage
Dim totalbytes As Double = e.TotalBytesToReceive / 1024
Dim bytes As Double = e.BytesReceived / 1024
ToString()
Label2.Text = bytes.ToString & " kb von " & totalbytes.ToString & " kb"
If ProgressBar1.Value = 100 Then
Label2.Text = ("Fertig")
MessageBox.Show("Der Download war Erfolgreich!")
End If
End Sub
Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As MouseEventArgs) Handles MyBase.MouseDown
If (e.Button = MouseButtons.Left) Then
Capture = False
WndProc(Message.Create(Me.Handle, &HA1, CType(&H2, IntPtr), IntPtr.Zero))
Else : End If
End Sub
Private Sub PictureBox1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles PictureBox1.Click
Application.Exit()
End Sub
Private Sub PictureBox2_Click(ByVal sender As Object, ByVal e As EventArgs) Handles PictureBox2.Click
WindowState = FormWindowState.Minimized
End Sub
Private Sub PictureBox3_Click(ByVal sender As Object, ByVal e As EventArgs) Handles PictureBox3.Click
'Modpack/s und IP einfügen
'Staret das spiel und lässt auf den server connecten
Process.Start(TextBox1.Text & "\arma3battleye.exe ", " 0 1 -connect=serverip " & TextBox2.Text)
End Sub
Private Sub PictureBox4_Click(ByVal sender As Object, ByVal e As EventArgs) Handles PictureBox4.Click
'Speichert Pfad und Startparameter in einer Textdatei
File.WriteAllText(Application.ExecutablePath & "\data\pfad.txt", TextBox1.Text, Encoding.Default)
File.WriteAllText(Application.ExecutablePath & "\data\pfad.txt", TextBox1.Text, Encoding.Default)
End Sub
Private Sub PictureBox5_Click(ByVal sender As Object, ByVal e As EventArgs) Handles PictureBox5.Click
'Sorgt dafür das man Pfad suchen kann
Dim FolderBrowser As New FolderBrowserDialog
FolderBrowser.Description = "Bitte wähle deinen Pfad zu Arma 3..."
FolderBrowser.ShowNewFolderButton = True
FolderBrowser.RootFolder = Environment.SpecialFolder.Desktop
FolderBrowser.SelectedPath = Environment.SpecialFolder.Desktop.ToString
If FolderBrowser.ShowDialog = DialogResult.OK Then
TextBox1.Text = FolderBrowser.SelectedPath
End If
End Sub
Private Sub PictureBox6_Click(ByVal sender As Object, ByVal e As EventArgs) Handles PictureBox6.Click
'Fragt auf Webspace die version ab und wenn es Änderungen gab lädt er die neue version des Launchers runter
'Lässt bei Änderungen am Launcher eine neue Version downloaden
Dim iox As New StreamReader(Application.ExecutablePath & "\data\version.txt", Encoding.Default)
Dim ot As String = iox.ReadToEnd
iox.Close()
If ot = My.Computer.Registry.GetValue("HKEY_CURRENT_USER\Software\TerranTitansLauncher", "version", "1.0.0") Then
MessageBox.Show("Der Launcher ist auf dem neuesten Stand!")
Else
'Link/Pfad zum Launcher.rar
SendMessage(ProgressBar1.Handle.ToInt32, 1040, 2, 0)
Timer1.Start()
client.DownloadFileAsync(New Uri("http://launcher.domain.de/update/TerranTitansLauncher.rar"), Application.ExecutablePath & "\TerranTitansLauncher.rar")
AddHandler client.DownloadProgressChanged, AddressOf DownloadProgress
End If
End Sub
Private Sub PictureBox7_Click(ByVal sender As Object, ByVal e As EventArgs) Handles PictureBox7.Click
'Modpack Downloaden.Link/Pfad zu Modpack/Missionpbo File
SendMessage(ProgressBar1.Handle.ToInt32, 1040, 2, 0)
Timer1.Start()
client.DownloadFileAsync(New Uri("http://launcher.domain.de/update/Altis_Life.Altis.pbo"), Application.ExecutablePath & "\mission\Altis_Life.Atlis.pbo")
AddHandler client.DownloadProgressChanged, AddressOf DownloadProgress
End Sub
Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As EventArgs) Handles Timer1.Tick
ProgressBar1.Increment(1)
End Sub
Private Sub Label1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Label1.Click
Label1.Text = File.ReadAllText("version.txt")
End Sub
#Region "MouseEnter/Leave"
Private Sub PictureBox1_MouseEnter(ByVal sender As Object, ByVal e As EventArgs) Handles PictureBox1.MouseEnter
PictureBox1.BackgroundImage = My.Resources.X
End Sub
Private Sub PictureBox1_MouseLeave(ByVal sender As Object, ByVal e As EventArgs) Handles PictureBox1.MouseLeave
PictureBox1.BackgroundImage = Nothing
End Sub
Private Sub PictureBox2_MouseEnter(ByVal sender As Object, ByVal e As EventArgs) Handles PictureBox2.MouseEnter
PictureBox2.BackgroundImage = My.Resources.Minimieren
End Sub
Private Sub PictureBox2_MouseLeave(ByVal sender As Object, ByVal e As EventArgs) Handles PictureBox2.MouseLeave
PictureBox2.BackgroundImage = Nothing
End Sub
Private Sub PictureBox3_MouseEnter(ByVal sender As Object, ByVal e As EventArgs) Handles PictureBox3.MouseEnter
PictureBox3.BackgroundImage = My.Resources.Spielen
End Sub
Private Sub PictureBox3_MouseLeave(ByVal sender As Object, ByVal e As EventArgs) Handles PictureBox3.MouseLeave
PictureBox3.BackgroundImage = Nothing
End Sub
Private Sub PictureBox4_MouseEnter(ByVal sender As Object, ByVal e As EventArgs) Handles PictureBox4.MouseEnter
PictureBox4.BackgroundImage = My.Resources.Speichern
End Sub
Private Sub PictureBox4_MouseLeave(ByVal sender As Object, ByVal e As EventArgs) Handles PictureBox4.MouseLeave
PictureBox4.BackgroundImage = Nothing
End Sub
Private Sub PictureBox5_MouseEnter(ByVal sender As Object, ByVal e As EventArgs) Handles PictureBox5.MouseEnter
PictureBox5.BackgroundImage = My.Resources.Suchen
End Sub
Private Sub PictureBox5_MouseLeave(ByVal sender As Object, ByVal e As EventArgs) Handles PictureBox5.MouseLeave
PictureBox5.BackgroundImage = Nothing
End Sub
Private Sub PictureBox6_MouseEnter(ByVal sender As Object, ByVal e As EventArgs) Handles PictureBox6.MouseEnter
PictureBox6.BackgroundImage = My.Resources.Update
End Sub
Private Sub PictureBox6_MouseLeave(ByVal sender As Object, ByVal e As EventArgs) Handles PictureBox6.MouseLeave
PictureBox6.BackgroundImage = Nothing
End Sub
Private Sub PictureBox7_MouseEnter(ByVal sender As Object, ByVal e As EventArgs) Handles PictureBox7.MouseEnter
PictureBox7.BackgroundImage = My.Resources.Download
End Sub
Private Sub PictureBox7_MouseLeave(ByVal sender As Object, ByVal e As EventArgs) Handles PictureBox7.MouseLeave
PictureBox7.BackgroundImage = Nothing
End Sub
#End Region
End Class

Trade · 18. April 2017, 10:32

Updater - Worauf sollte man bei eigenen Updatern achten?

Grüße

Tecko · 19. April 2017, 11:43

Schon mal danke für eure Hilfe.

Ich habe jedoch immer noch das Problem, das bei Label2 die kb von kb nicht angezeigt werden. Das Label ändert sich nicht. Wenn man auf Update oder Download drückt...

Und gäbe es die Möglichkeit, den Onlinestatus des Downloadservers und des Arma3 Server anzeigen zu lassen?

@Trade Danke für die Information. Aber wir bräuchten den Launcher doch, da die Servermission etwas größer ist und der Launcher würde den SPielern das Ganze halt um einiges vereinfachen und beschleunigen.
Gäbe es keine Möglichkeit den Launcher an sich etwas sicherer zu machen?
Danke schon mal für eure Hilfe.

Gruß
Tecko

Trade · 19. April 2017, 12:20

Ich weiß nicht, was Du da rausgelesen hast, aber das war eigentlich mein Ziel, dass Ihr das vernünftig absichert.

Und wie das geht steht ja im Thread unten.

Grüße

asusdk · 19. April 2017, 14:34

Ich würd schon gerne drüber schauen und versuchen dir zu helfen, aber A: hab ich die Bilder nicht, (müsste selbst welche erstellen(nervig) B: kann ich keine Downloadbezogene Funktion testen wenn die entsprechende Domain entffernt wurde.

Zippe am besten mal deinen Projektordner und häng den hier an, dann kann man in aller Ruhe gucken wie man dir helfen kann

Greets

Tecko · 19. April 2017, 16:48

Hänge die mal an.

Der Server, wo ich den Onlinestatus gerne im Launcher angezeigt haben wollen würde wäre dieser:
62.141.39.158:2302 (Arma3) Dieser ist momentan noch offline. Wir aber gg 18 Uhr online sein.
Und Downloadserver also Webspace: w015c0a5.kasserver.com

Der momentane Stand ist von deinem letzten geposteten Code...

asusdk · 19. April 2017, 18:23

gut, bin schon mal am Code dran,

hast du evtl. noch das Hintergrundbild ohne das bereits Buttons usw. im Bild selbst sichtbar sind ? also nur den Hintergrund ?

Greets

Tecko · 19. April 2017, 18:39

Ja habe ich.

Danke schon mal das du versuchst mir zu helfen.

Oder meintest du komplett planko?

asusdk · 19. April 2017, 19:07

Jap das komplett blanko ist Top, einiges ist ja leider etwas "schief" angeordnet, welche schriftart usw. haste denn verwendet ? also für die Buttons und den enthaltenen Text ?

p.S.: aktueller Zwischenstand:

Spoiler anzeigen

VB.NET-Quellcode

Imports System.IO
Imports System.Text
Imports System.Net
Public Class TerranTitansLauncher
#Region "Deklarationen"
Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer
Dim key As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.CurrentUser.CreateSubKey("Software\TerranTitansLauncher")
Dim totalbytes As Double
Dim bytes As Double
Friend WithEvents MyWebClient As New WebClient
#End Region
Private Sub TerranTitansLauncher_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
'So werden alle PictureBoxen angesprochen und du kannst mit Pic.() agieren als wäre es ein Pic
'spart dir einige Zeilen Code
For Each Pic As PictureBox In Controls.OfType(Of PictureBox)
Pic.Parent = Me
Pic.BackColor = Color.Transparent
Next
'_____________________________________________________________________________________________
TextBox1.Text = File.ReadAllText(Application.StartupPath & "\data\pfad.txt")
TextBox2.Text = File.ReadAllText(Application.StartupPath & "\data\para.txt")
'Macht das gleiche wie:
'My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\TerranTitansLauncher", "Version", "1.0.0")
'Den benutzten Key haben wir aber oben im Bereich Deklarationen bereits spezifiziert, so das wir die
'benötigten Zeilen um einen Schlüssel zu setzen oder zu lesen übersichtlicher gestalten können
key.SetValue("Version", "1.0.0")
'____________________________________________________________________________________________________
'hier bitte euren Link/Pfad angeben zur version.txt
MyWebClient.DownloadFile("http://launcher.terrantitans.net/version/version.txt", Application.StartupPath & "\data\version.txt")
'hier hattest du einen riesen Codeblock, indem du die Datei gleich 2 unterschiedliche Male
'eingelesen hast, jeweils mit einem eigenen StreamReader, ot kann hiermit deutlich leichter
'gefüllt werden
'Dim ot As String = File.ReadAllText(Application.StartupPath & "\data\Version.txt")
'Den Vergleich zwischen dem Registry Eintrag und der aus der Version.txt ausgelesenen
'Version machen wir diesmal ers im Form1_Shown Sub
End Sub
Private Sub TerranTitansLauncher_Shown(sender As Object, e As EventArgs) Handles Me.Shown
Dim ot As String = File.ReadAllText(Application.StartupPath & "\data\Version.txt")
If ot <> key.GetValue("Version") Then
MessageBox.Show("Update Verfügbar")
End If
End Sub
Private Sub MyWebClient_DownloadProgressChanged(ByVal sender As Object, ByVal e As Net.DownloadProgressChangedEventArgs) Handles MyWebClient.DownloadProgressChanged
ProgressBar1.Value = e.ProgressPercentage
totalbytes = e.TotalBytesToReceive / 1024
bytes = e.BytesReceived / 1024
labProgress.Text = bytes.ToString & " kb von " & totalbytes.ToString & " kb"
If e.BytesReceived = e.TotalBytesToReceive Then
labProgress.Text = ("Download abgeschlossen")
ProgressBar1.Value = 0
MessageBox.Show("Der Download war Erfolgreich!")
End If
End Sub
Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As MouseEventArgs) Handles MyBase.MouseDown
If (e.Button = MouseButtons.Left) Then
Capture = False
WndProc(Message.Create(Me.Handle, &HA1, CType(&H2, IntPtr), IntPtr.Zero))
Else : End If
End Sub
Private Sub PictureBox1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles PictureBox1.Click
Application.Exit()
End Sub
Private Sub PictureBox2_Click(ByVal sender As Object, ByVal e As EventArgs) Handles PictureBox2.Click
WindowState = FormWindowState.Minimized
End Sub
Private Sub PictureBox3_Click(ByVal sender As Object, ByVal e As EventArgs) Handles PictureBox3.Click
'Modpack/s und IP einfügen
'Staret das spiel und lässt auf den server connecten
Process.Start(TextBox1.Text & "\arma3battleye.exe ", " 0 1 -connect=serverip " & TextBox2.Text)
End Sub
Private Sub PictureBox4_Click(ByVal sender As Object, ByVal e As EventArgs) Handles PictureBox4.Click
'Speichert Pfad und Startparameter in einer Textdatei
File.WriteAllText(Application.StartupPath & "\data\pfad.txt", TextBox1.Text, Encoding.Default)
File.WriteAllText(Application.StartupPath & "\data\para.txt", TextBox2.Text, Encoding.Default)
End Sub
Private Sub PictureBox5_Click(ByVal sender As Object, ByVal e As EventArgs) Handles PictureBox5.Click
'Sorgt dafür das man Pfad suchen kann
Dim FolderBrowser As New FolderBrowserDialog
FolderBrowser.Description = "Bitte wähle deinen Pfad zu Arma 3..."
FolderBrowser.ShowNewFolderButton = True
FolderBrowser.RootFolder = Environment.SpecialFolder.Desktop
FolderBrowser.SelectedPath = Environment.SpecialFolder.Desktop.ToString
If FolderBrowser.ShowDialog = DialogResult.OK Then
TextBox1.Text = FolderBrowser.SelectedPath
End If
End Sub
Private Sub PictureBox6_Click(ByVal sender As Object, ByVal e As EventArgs) Handles PictureBox6.Click
'Fragt auf Webspace die version ab und wenn es Änderungen gab lädt er die neue version des Launchers runter
'Lässt bei Änderungen am Launcher eine neue Version downloaden
Dim iox As New StreamReader(Application.StartupPath & "\data\version.txt", Encoding.Default)
Dim ot As String = iox.ReadToEnd
iox.Close()
If ot = My.Computer.Registry.GetValue("HKEY_CURRENT_USER\Software\TerranTitansLauncher", "version", "1.0.0") Then
MessageBox.Show("Der Launcher ist auf dem neuesten Stand!")
Else
'Link/Pfad zum Launcher.rar
SendMessage(ProgressBar1.Handle.ToInt32, 1040, 2, 0)
MyWebClient.DownloadFileAsync(New Uri("http://launcher.terrantitans.net/update/TerranTitansLauncher.rar"), Application.StartupPath & "\TerranTitansLauncher.rar")
End If
End Sub
Private Sub PictureBox7_Click(ByVal sender As Object, ByVal e As EventArgs) Handles PictureBox7.Click
'Modpack Downloaden.Link/Pfad zu Modpack/Missionpbo File
SendMessage(ProgressBar1.Handle.ToInt32, 1040, 2, 0)
Timer1.Start()
MyWebClient.DownloadFileAsync(New Uri("http://launcher.terrantitans.net/update/Altis_Life.Altis.pbo"), Application.StartupPath & "\mission\Altis_Life.Atlis.pbo")
End Sub
Private Sub Label1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles labVersion.Click
labVersion.Text = File.ReadAllText("version.txt")
End Sub
#Region "MouseEnter/Leave"
Private Sub PictureBox1_MouseEnter(ByVal sender As Object, ByVal e As EventArgs) Handles PictureBox1.MouseEnter
PictureBox1.BackgroundImage = My.Resources.X
End Sub
Private Sub PictureBox1_MouseLeave(ByVal sender As Object, ByVal e As EventArgs) Handles PictureBox1.MouseLeave
PictureBox1.BackgroundImage = Nothing
End Sub
Private Sub PictureBox2_MouseEnter(ByVal sender As Object, ByVal e As EventArgs) Handles PictureBox2.MouseEnter
PictureBox2.BackgroundImage = My.Resources.Minimieren
End Sub
Private Sub PictureBox2_MouseLeave(ByVal sender As Object, ByVal e As EventArgs) Handles PictureBox2.MouseLeave
PictureBox2.BackgroundImage = Nothing
End Sub
Private Sub PictureBox3_MouseEnter(ByVal sender As Object, ByVal e As EventArgs) Handles PictureBox3.MouseEnter
PictureBox3.BackgroundImage = My.Resources.Spielen
End Sub
Private Sub PictureBox3_MouseLeave(ByVal sender As Object, ByVal e As EventArgs) Handles PictureBox3.MouseLeave
PictureBox3.BackgroundImage = Nothing
End Sub
Private Sub PictureBox4_MouseEnter(ByVal sender As Object, ByVal e As EventArgs) Handles PictureBox4.MouseEnter
PictureBox4.BackgroundImage = My.Resources.Speichern
End Sub
Private Sub PictureBox4_MouseLeave(ByVal sender As Object, ByVal e As EventArgs) Handles PictureBox4.MouseLeave
PictureBox4.BackgroundImage = Nothing
End Sub
Private Sub PictureBox5_MouseEnter(ByVal sender As Object, ByVal e As EventArgs) Handles PictureBox5.MouseEnter
PictureBox5.BackgroundImage = My.Resources.Suchen
End Sub
Private Sub PictureBox5_MouseLeave(ByVal sender As Object, ByVal e As EventArgs) Handles PictureBox5.MouseLeave
PictureBox5.BackgroundImage = Nothing
End Sub
Private Sub PictureBox6_MouseEnter(ByVal sender As Object, ByVal e As EventArgs) Handles PictureBox6.MouseEnter
PictureBox6.BackgroundImage = My.Resources.Update
End Sub
Private Sub PictureBox6_MouseLeave(ByVal sender As Object, ByVal e As EventArgs) Handles PictureBox6.MouseLeave
PictureBox6.BackgroundImage = Nothing
End Sub
Private Sub PictureBox7_MouseEnter(ByVal sender As Object, ByVal e As EventArgs) Handles PictureBox7.MouseEnter
PictureBox7.BackgroundImage = My.Resources.Download
End Sub
Private Sub PictureBox7_MouseLeave(ByVal sender As Object, ByVal e As EventArgs) Handles PictureBox7.MouseLeave
PictureBox7.BackgroundImage = Nothing
End Sub
#End Region
End Class

die Kb/s werden nun schon mal richtig angezeigt,
code schon mal etwas "sauberer" und (zumindest meiner persönlichen Meinung nach) einfacher zu lesen/nachzuvollziehen

Tecko · 19. April 2017, 19:21

Danke.

ich habe den Font "Alien Encounters Regular" verwendet.
Hat sich schon was getan ja.

asusdk · 20. April 2017, 17:53

so der aktuelle Zwischenstand hängt an

einige Anpassungen,

verzichtet nun auf zwischenspeichern in Dateien, nimmt stattdessen direkt die Registry mit ausnahme der neuen Version.txt
verzicht auf Messageboxen, wenn Update verfügbar erscheint entsprechende Info im Fenster selbst,
die DownloadInfos für Updates oder den anderen Download erscheinen nur wenn auch etwas gedownloadet wird

kannst mir ja sagen obs dir so schonmal passt und mir feedback geben

Tecko · 20. April 2017, 20:39

Sieht echt nicht schlecht aus. Danke dir!!!

Geht das eigentlich wegen den Status der Server?
Und hast du die Farbe der Progressbar bewusst wieder auf grün gesetzt?

Ist jetzt nicht sonderlich schlimm, aber wir fanden rot halt passender. Die hat aber komischerweise immer etwas rum gezuckt, nachdem wir sie auf rot gestellt haben.

asusdk · 20. April 2017, 20:44

and der Sache mit serverstatus arbeite ich grad, wäre nice wenn du beide server (links haste ja schon mal gepostet )
auf online stellen könntest, progressbar hab ich eher versehentlich auf grün gestellt, ich guck aber das ich da noch eine
andere einbauen kann die besser aussieht usw.

Greets

Tecko · 20. April 2017, 20:57

Also mir wurde gesagt, das der Hauptserver also von Arma läuft. Und der Downloadserver ist auch dauerhaft on.

Für deine Mühe danke ich bzw. wir dir sehr!

Gruß
Tecko

asusdk · 20. April 2017, 21:17

ruf doch mal w015c0a5.kasserver.com in deinem Browser auf, da sagt er service nicht verfügbar,
und bei der reinen IP die oben im Post steht ist gar nix erreichbar

gibt es eigentlich einen grund warum das Programm explizit als x86 erstellt wird ?
mit AnyCpu wird das Prog automatisch für beide erstellt, würde auf 64bit systemen auch flüssiger laufen

Tecko · 21. April 2017, 13:59

Also die sind beide definitiv on.
Hab auch eine IP vom Downloadserver: 85.13.139.161

Der Arma Server wird laut Gametracker auch als online angezeigt:

Und zu zweitens.... Hab ich ehrlich gesagt nicht wirklich Ahnung. Hab das Ganze mir mehr aus dem ein oder anderen Tutorial zusammengebastelt. Bzw. Foren durchstöbert...

asusdk · 21. April 2017, 15:41

gut also der Status vom download server kann nun schonmal überwachtt werden, beim gameserver vermute ich mal das dieser den UDP nutzt und nicht TCP, das wird schwierig

kannst du bitte mal beide server offline schicken pls ?

Tecko · 21. April 2017, 16:36

Der Arma Server ist jetzt gerade aus. Aber bei dem anderen wird das etwas schwer.
Ich werde aber kurz mal nachfragen. Die antworten eigentlich immer seehr schnell.

asusdk · 21. April 2017, 16:41

ist der arma server immer noch aus ?

weil wenn ja, wird dieser auch von Gametracker noch als Online angezeigt

Hilfe bei Launcher/Updater Verfeinerung?

Hilfe bei Launcher/Updater Verfeinerung?

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Tags

Ähnliche Themen

4 Benutzer haben hier geschrieben