Game Launcher

MRBD69 · 11. Oktober 2015, 16:05

Hallo liebe community

Ich bin neu in VB und wollte mir einen Dayz Launcher erstellen.
Nun habe ich ein Großes Problem das ich mit meinem low wissen nicht hinbekomme :D.

Ein kollege hat mir eine Batch datei zum joinen auf unseren server erstellt die enthaltene daten muss ich jetzt irgendwie in den launcher einbinden.
Aber nicht jeder hat Dayz auf den standart pfad installiert.
Ich habe es hinbekommen das durch drücken vom Button "browse", den Pfad in die textbox gelegt wird nur muss dies auch gespeichert werden damit man es nicht beim jeden start neu suchen muss. ( die code habe ich von Youtube also nichts aus dem kopf soweit bin ich nicht :). )

Hier der Code von der Batch datei:

Quellcode

set arma2oapath=C:\Program Files (x86)\Steam\steamapps\common\arma 2 operation arrowhead
set arma2path=C:\Program Files (x86)\Steam\steamapps\common\Arma 2
set IP=00.000.000.00
set PORT=2302
set MODS=@DayzOverwatch;@DayZ_Epoch;@DayZ_Epoch_Server; :: DO NOT EDIT THE LINES BELOW
start "" "%arma2oapath%\ArmA2OA_BE.exe" 0 0 -skipintro -mod=%MODS% -noSplash -noFilePatching -world=empty -connect=%IP% -port=%PORT% "-mod=%arma2path%;expansion;" @exit

ist das irgendwie machbar ?

So sollte es dann in etwa aussehen:

Spoiler anzeigen

Wenn jmd tipps zum desgin hat gerne höre ich zu.

Bedanke mich schonmal im vorraus

MfG MRBD69

Bore · 11. Oktober 2015, 16:25

Ja, also die Datei in einem neuen Prozess starten und dann die Parameter anhängen.

Hier ein Beispiel:

dotnet-snippets.de/snippet/externes-programm-aufrufen/32

Noch eine kleine Frage:
Steam hat ja das Anti-Cheat..
Vorsicht vor dem VAc oder BattleEye..

MRBD69 · 12. Oktober 2015, 02:48

hab das desgin etwas verändert.

hmm extern die batch datei ausführen, aber kann ich die datei nicht einfach mit in den programm einfügen ?

Schangs · 12. Oktober 2015, 08:50

Nicht die batch datei sondern die "ArmA2OA_BE.exe" mit den entsprechenden Parametern.
Ist im Link oben aber auch so beschrieben...

C#-Quellcode

Process P = new Process();
P.StartInfo.FileName = "notepad.exe";
// Hier die Parameter angeben
P.StartInfo.Arguments = "Test.txt";
P.Start();

MFG

MRBD69 · 12. Oktober 2015, 15:42

ah ok jetzt verstehe ich es aber ich bekomme von vb blau unterschtrichene fehler.

ich glaub ich hab den falschen code angegeben. wie finde ich herraus welches ich habe c#, c++, VB.net oder vb6 gibt es da unterschiede im code ?

ThuCommix · 12. Oktober 2015, 16:12

Schangs hat C# gepostet.

VB.NET-Quellcode

Dim P As New Process()
P.StartInfo.FileName = "notepad.exe"
' Hier die Parameter angeben
P.StartInfo.Arguments = "Test.txt"
P.Start()

converter.telerik.com/

MRBD69 · 12. Oktober 2015, 16:45

nice ok der funtz ohne fehler ich werde nun versuchen die parameter und .exe hinzuzufügen.
Danke

MRBD69 · 12. Oktober 2015, 23:55

habe so weit hinbekommen die .exe wird mit parameters gestartet und den dateipfad kann man nun auch selber wählen.

Nun soweit so gut, aber trozdem fehlt etwas irgendwie sagt mir jedes mal das game das ich nicht joinen kann wegen "Sie können diese mission nicht spielen/bearbeiten da sie auf heruntergelad".
Kennt sich jmd mit DayZ aus ?

Haben nen eigenen Server mit der Overpoch mod ( Epoch mit Overwatch)
mit "DayZ Launcher" kann man den server joinen.

Habe grad gemerkt das wir auch von arma2 die expansion laden müssen nur weis ich nicht wie?

ThuCommix · 13. Oktober 2015, 09:02

Vielleicht musst du noch irgendwas herunterladen? Modfiles?

MRBD69 · 13. Oktober 2015, 20:14

mit dem originalen Dayz Launcher funktioniert es ja zu joinen.
Aber wir möchten halt von clan einen extra launcher erstellen, weil manche den server nicht im originalen Dayz Launcher finden,
und es sieht halt genial aus wenn da unser Clan name steht mit unseren aktuellen server news.

Problem ist einfach das ich nicht genau weiß wie der Originale DayZ Launcher Funktioniert, welche daten er von welchem server nimmt und wie er das startet.
wie gesagt bin neu im coden HTML Und Photoshop kenne ich mich mittlerweiler gut aus.

Update funktion möchte ich auch später hinzüfugen damit auch gleich die mods runtergeladen werden. ( spricht 1 klickt und man joint wie beim Wow Launcher)
Aber solange es nicht mit dem joinen ansich funktioniert kann ich das weiter machen vergessen hat dann kein sinn mehr :D.

die meisten die das spielen müssten die mods haben bzw. es gibt jede menge anleitungen.An mod files liegt es nicht da alle im steam liegen und ich mit dem Originalen launcher den server joinen kann.

Schangs · 14. Oktober 2015, 08:28

Zeig uns doch mal deinen bisherigen Code.

Dksksm · 14. Oktober 2015, 09:23

Die Umgebungsvariablen werden ja auch weiterhin vom Prozess benötigt, egal ob der nun über den Batch oder über ein Program gestartet wird.
Im Batch sind sie gesetzt worden, in den Beispielen hier nicht.
Mein "Code" ist auch nicht getestet und nur als Hinweis gedacht.

VB.NET-Quellcode

Environment.SetEnvironmentVariable("arma2oapath", "C:\Program Files (x86)\Steam\steamapps\common\arma 2 operation arrowhead", EnvironmentVariableTarget.Process)
Environment.SetEnvironmentVariable("arma2path", "C:\Program Files (x86)\Steam\steamapps\common\Arma 2", EnvironmentVariableTarget.Process)
Environment.SetEnvironmentVariable("IP", "00.000.000.00", EnvironmentVariableTarget.Process)
Environment.SetEnvironmentVariable("PORT", "2302", EnvironmentVariableTarget.Process)
Environment.SetEnvironmentVariable("MODS", "@DayzOverwatch;@DayZ_Epoch;@DayZ_Epoch_Server;", EnvironmentVariableTarget.Process)
Dim P As New Process()
P.StartInfo.FileName = "%arma2oapath%\ArmA2OA_BE.exe"
P.StartInfo.Arguments = "0 0 -skipintro -mod=%MODS% -noSplash -noFilePatching -world=empty -connect=%IP% -port=%PORT% -Mod=%arma2path%;expansion; @exit"
P.Start()

MRBD69 · 16. Oktober 2015, 21:29

Ich bin Anfänger, nehme aber gerne verbessungs tipps an.
Hier der Code, hoffe ihr erschlagt mich jetzt nicht

Spoiler anzeigen

Quellcode

Public Class Form1
Private Sub Button1_MouseEnter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.MouseEnter
Button1.BackgroundImage = My.Resources.Startover
End Sub
Private Sub Button1_MouseLeave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.MouseLeave
Button1.BackgroundImage = My.Resources.Start
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.Close()
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 Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim p As New ProcessStartInfo
p.FileName = (TextBox2.Text) 'Apostrophes in a file path? eek
p.Arguments = My.Resources.parameter
p.WindowStyle = ProcessWindowStyle.Normal 'can be hidden
Process.Start(p)
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
Process.Start("https://www.youtube.com/channel/UCumf00MYH63CxLg449cz9gA")
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Process.Start("https://www.facebook.com/ponglenisesports")
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Process.Start("http://www.twitch.tv/apecraft")
End Sub
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
Dim myFileDlog As New OpenFileDialog()
'look for files in the c drive
myFileDlog.InitialDirectory = "c:\"
'specifies what type of data files to look for
myFileDlog.Filter = "All Files (*.*)|*.*" & _
"|Data Files (*.exe)|*.exe"
'specifies which data type is focused on start up
myFileDlog.FilterIndex = 2
'Gets or sets a value indicating whether the dialog box restores the current directory before closing.
myFileDlog.RestoreDirectory = True
'seperates message outputs for files found or not found
If myFileDlog.ShowDialog() = _
DialogResult.OK Then
If Dir(myFileDlog.FileName) <> "" Then
MsgBox("File Exists: " & _
myFileDlog.FileName, _
MsgBoxStyle.Information)
Else
MsgBox("File Not Found", _
MsgBoxStyle.Critical)
End If
End If
'Adds the file directory to the text box
TextBox1.Text = myFileDlog.FileName
My.Settings.Path1 = TextBox1.Text
My.Settings.Save()
My.Settings.Reload()
End Sub
Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
Dim myFileDlog As New OpenFileDialog()
'look for files in the c drive
myFileDlog.InitialDirectory = "c:\"
'specifies what type of data files to look for
myFileDlog.Filter = "All Files (*.*)|*.*" & _
"|Data Files (*.exe)|*.exe"
'specifies which data type is focused on start up
myFileDlog.FilterIndex = 2
'Gets or sets a value indicating whether the dialog box restores the current directory before closing.
myFileDlog.RestoreDirectory = True
'seperates message outputs for files found or not found
If myFileDlog.ShowDialog() = _
DialogResult.OK Then
If Dir(myFileDlog.FileName) <> "" Then
MsgBox("File Exists: " & _
myFileDlog.FileName, _
MsgBoxStyle.Information)
Else
MsgBox("File Not Found", _
MsgBoxStyle.Critical)
End If
End If
'Adds the file directory to the text box
TextBox2.Text = myFileDlog.FileName
My.Settings.Path1 = TextBox2.Text
My.Settings.Save()
My.Settings.Reload()
End Sub
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
TextBox1.Text = My.Settings.Path1
TextBox2.Text = My.Settings.Path2
TextBox1.Text = "C:\Program Files (x86)\Steam\steamapps\common\Arma 2\arma2.exe"
TextBox2.Text = "C:\Program Files (x86)\Steam\steamapps\common\Arma 2 Operation Arrowhead\ArmA2OA.exe"
End Sub
Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
Me.WindowState = FormWindowState.Minimized
End Sub
Private Sub WebBrowser1_DocumentCompleted(sender As System.Object, e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
WebBrowser1.Document.BackColor = System.Drawing.Color.Transparent
WebBrowser1.Document.ForeColor = Color.Transparent
End Sub
End Class

Schangs · 16. Oktober 2015, 22:08

Benutz bitte den VB.NET Tag für deinen Code.
lässt sich dann besser lesen

Spoiler anzeigen

VB.NET-Quellcode

Public Class Form1
Private Sub Button1_MouseEnter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.MouseEnter
Button1.BackgroundImage = My.Resources.Startover
End Sub
Private Sub Button1_MouseLeave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.MouseLeave
Button1.BackgroundImage = My.Resources.Start
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.Close()
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 Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim p As New ProcessStartInfo
p.FileName = (TextBox2.Text) 'Apostrophes in a file path? eek
p.Arguments = My.Resources.parameter
p.WindowStyle = ProcessWindowStyle.Normal 'can be hidden
Process.Start(p)
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
Process.Start("https://www.youtube.com/channel/UCumf00MYH63CxLg449cz9gA")
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Process.Start("https://www.facebook.com/ponglenisesports")
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Process.Start("http://www.twitch.tv/apecraft")
End Sub
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
Dim myFileDlog As New OpenFileDialog()
'look for files in the c drive
myFileDlog.InitialDirectory = "c:\"
'specifies what type of data files to look for
myFileDlog.Filter = "All Files (*.*)|*.*" & _
"|Data Files (*.exe)|*.exe"
'specifies which data type is focused on start up
myFileDlog.FilterIndex = 2
'Gets or sets a value indicating whether the dialog box restores the current directory before closing.
myFileDlog.RestoreDirectory = True
'seperates message outputs for files found or not found
If myFileDlog.ShowDialog() = _
DialogResult.OK Then
If Dir(myFileDlog.FileName) <> "" Then
MsgBox("File Exists: " & _
myFileDlog.FileName, _
MsgBoxStyle.Information)
Else
MsgBox("File Not Found", _
MsgBoxStyle.Critical)
End If
End If
'Adds the file directory to the text box
TextBox1.Text = myFileDlog.FileName
My.Settings.Path1 = TextBox1.Text
My.Settings.Save()
My.Settings.Reload()
End Sub
Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
Dim myFileDlog As New OpenFileDialog()
'look for files in the c drive
myFileDlog.InitialDirectory = "c:\"
'specifies what type of data files to look for
myFileDlog.Filter = "All Files (*.*)|*.*" & _
"|Data Files (*.exe)|*.exe"
'specifies which data type is focused on start up
myFileDlog.FilterIndex = 2
'Gets or sets a value indicating whether the dialog box restores the current directory before closing.
myFileDlog.RestoreDirectory = True
'seperates message outputs for files found or not found
If myFileDlog.ShowDialog() = _
DialogResult.OK Then
If Dir(myFileDlog.FileName) <> "" Then
MsgBox("File Exists: " & _
myFileDlog.FileName, _
MsgBoxStyle.Information)
Else
MsgBox("File Not Found", _
MsgBoxStyle.Critical)
End If
End If
'Adds the file directory to the text box
TextBox2.Text = myFileDlog.FileName
My.Settings.Path1 = TextBox2.Text
My.Settings.Save()
My.Settings.Reload()
End Sub
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
TextBox1.Text = My.Settings.Path1
TextBox2.Text = My.Settings.Path2
TextBox1.Text = "C:\Program Files (x86)\Steam\steamapps\common\Arma 2\arma2.exe"
TextBox2.Text = "C:\Program Files (x86)\Steam\steamapps\common\Arma 2 Operation Arrowhead\ArmA2OA.exe"
End Sub
Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
Me.WindowState = FormWindowState.Minimized
End Sub
Private Sub WebBrowser1_DocumentCompleted(sender As System.Object, e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
WebBrowser1.Document.BackColor = System.Drawing.Color.Transparent
WebBrowser1.Document.ForeColor = Color.Transparent
End Sub
End Class

Hast du dir den Post von Dksksm mal angeschaut? villt löst das dein problem schon.

BlueSoftware · 16. Oktober 2015, 22:32

@MRBD69
Es wäre vielleicht hilfreich wenn du die komplette Projektmape posten könntest, dann wäre es meiner Meinung nach wesentlich einfacher dir beim Lernen zu helfen.

Tipp:
1. Meiner meinung nach ist es immer nervig mit dem My.Resources zu arbeiten.
2. Du solltest ganz oben (wirklich ganz oben) "Option Sctrict On" schreiben, damit du lernst von Anfang an sauber zu programmieren.

MRBD69 · 18. Oktober 2015, 18:46

@BlueSoftware
0.Die komplette Projektmape heißt was genau ?
1. Wie meinst du es mit nervig.
2. hab "Option Strict On" eingefügt.

@Schanges
Mach ich habs vorher net gesehen

@Dksksm
Ich hab deinen code genommen und mit anderen vergliechen und es funktioniert auch teileweiße sehr gut aber,
Aus irgendeinen grund will er die ArmA 2 Expansion nicht laden. Bekomme ständig die fehler meldung "Addon sauerland requires addon chernarus" die besagt laut recherche
das die ArmA 2 Expansion nicht geladen werden im ArmA 2 Ordner.
Nun gibt es auch eine Anleitungen die es behebt aber die kann ich nicht verwenden, da der Fix den Addon ordner verschiebt.

Ich hab hier mal meinen Code

Spoiler anzeigen

VB.NET-Quellcode

Option Strict On
Public Class Form1
Private Sub Button1_MouseEnter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.MouseEnter
Button1.BackgroundImage = My.Resources.Startover
End Sub
Private Sub Button1_MouseLeave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.MouseLeave
Button1.BackgroundImage = My.Resources.Start
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.Close()
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 Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Environment.SetEnvironmentVariable("arma2path", TextBox1.Text, EnvironmentVariableTarget.Process)
Environment.SetEnvironmentVariable("arma2oapath", TextBox2.Text, EnvironmentVariableTarget.Process)
Environment.SetEnvironmentVariable("IP", "85.131.236.85", EnvironmentVariableTarget.Process)
Environment.SetEnvironmentVariable("PORT", "2302", EnvironmentVariableTarget.Process)
Environment.SetEnvironmentVariable("MODS", "@DayzOverwatch;@DayZ_Epoch;@DayZ_Epoch1051;", EnvironmentVariableTarget.Process)
Dim P As New Process()
P.StartInfo.FileName = TextBox2.Text + "\ArmA2OA_BE.exe"
P.StartInfo.Arguments = "0 0 -skipintro -mod=%MODS% -noSplash -noFilePatching -world=empty -connect=%IP% -port=%PORT% -mod=%arma2path%;expansion; @exit"
P.Start()
' Process.Start("cmd", "/c echo hallo")
' Dim p As New System.Diagnostics.Process
' p.StartInfo.FileName = "E:\My_programme\test\test.exe"
' p.StartInfo.Arguments = TextBox1.Text & " " & TextBox2.Text
' p.Start()
' Process.Start(steam://rungameid/33930//-nosplash -mod=@DayzOverwatch;@DayZ_Epoch; -connect=81.19.211.147:5102)
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
Process.Start("https://www.youtube.com/channel/UCumf00MYH63CxLg449cz9gA")
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Process.Start("https://www.facebook.com/ponglenisesports")
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Process.Start("http://www.twitch.tv/apecraft")
End Sub
Private Sub Button7_Click(sender As System.Object, e As System.EventArgs) Handles Button7.Click
If (FolderBrowserDialog1.ShowDialog() = DialogResult.OK) Then
TextBox1.Text = FolderBrowserDialog1.SelectedPath
End If
My.Settings.Path1 = TextBox2.Text
My.Settings.Save()
My.Settings.Reload()
End Sub
Private Sub Button8_Click(sender As System.Object, e As System.EventArgs) Handles Button8.Click
If (FolderBrowserDialog1.ShowDialog() = DialogResult.OK) Then
TextBox1.Text = FolderBrowserDialog1.SelectedPath
End If
My.Settings.Path1 = TextBox2.Text
My.Settings.Save()
My.Settings.Reload()
End Sub
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
TextBox1.Text = My.Settings.Path1
TextBox2.Text = My.Settings.Path2
TextBox1.Text = "D:\SteamLibrary\steamapps\common\Arma 2"
TextBox2.Text = "D:\SteamLibrary\steamapps\common\Arma 2 Operation Arrowhead"
End Sub
Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
Me.WindowState = FormWindowState.Minimized
End Sub
Private Sub WebBrowser1_DocumentCompleted(sender As System.Object, e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
WebBrowser1.Document.BackColor = System.Drawing.Color.Transparent
WebBrowser1.Document.ForeColor = Color.Transparent
End Sub
End Class

Und hier hab ich den Code vom DayZ Launcher ( Weiß leider nicht welcher Quelltext das ist)

Spoiler anzeigen

Hier der Original link sieht man besser github.com/richardbenson/DayZ-…DayZ-Launcher/Launcher.cs

Visual Basic-Quellcode

using System;using System.Collections.Generic;using System.ComponentModel;using System.Diagnostics;using System.IO;using System.Net;using System.Security.Principal;using System.Text.RegularExpressions;using System.Windows.Forms;using Microsoft.Win32;using SharpCompress.Common;using SharpCompress.Reader;namespace DayZ_Launcher{ public partial class Launcher : Form { string strDefaultCDN = "http://cdn.armafiles.info/latest/"; string strCurrentCDN; string strBasePath;Dictionary<string, string> strArmaOARegLocation = new Dictionary<string, string>() { { "x86", "SOFTWARE\\Bohemia Interactive Studio\\ArmA 2 OA"}, { "x64", "SOFTWARE\\Wow6432Node\\Bohemia Interactive Studio\\ArmA 2 OA" } };Dictionary<string, string> strArmaRegLocation = new Dictionary<string, string>() { { "x86", "SOFTWARE\\Bohemia Interactive Studio\\ArmA 2"}, { "x64", "SOFTWARE\\Wow6432Node\\Bohemia Interactive Studio\\ArmA 2" } };string strSteamRegPath = "SOFTWARE\\Valve\\Steam";Queue<URLToDownload> downloadList = new Queue<URLToDownload>();public Launcher() { InitializeComponent(); }public void Elevate() { //We need Admin for almost everything in here // Needs UAC elevation for webmin to run WindowsPrincipal principal = new WindowsPrincipal(WindowsIdentity.GetCurrent()); bool hasAdministrativeRight = principal.IsInRole(WindowsBuiltInRole.Administrator);if (!hasAdministrativeRight) { ProcessStartInfo processInfo = new ProcessStartInfo(); processInfo.Verb = "runas"; processInfo.FileName = Application.ExecutablePath; try { Process.Start(processInfo); } catch { Environment.Exit(0); } Environment.Exit(0); } }public void StartUp(object sender, EventArgs e) {//Set the CDN TODO: Make this changeable somehow strCurrentCDN = strDefaultCDN;//Fetch the Arma Path this.strBasePath = GetArmaOAPath(); if (strBasePath == "") { bool bolPathOK = false; while (!bolPathOK) { if (Application.UserAppDataRegistry.GetValue("Arma2Path") != null) { this.strBasePath = Application.UserAppDataRegistry.GetValue("Arma2Path").ToString(); } else {MessageBox.Show("Unable to locate Arma2 install, please select install path (Contains Arma2oa.exe)."); DialogResult result = folderBrowserDialog1.ShowDialog(); if (result == DialogResult.OK) { this.strBasePath = folderBrowserDialog1.SelectedPath; } else { MessageBox.Show("DayZ requires Arma2 : Combined Operations"); Environment.Exit(1); } }//Test the path is ok if (File.Exists(strBasePath + @"\arma2oa.exe")) { Application.UserAppDataRegistry.SetValue("Arma2Path", this.strBasePath); bolPathOK = true; } } } lblStatus.Text = "Found Arma2.";//So we know Arma is installed, what about DayZ? UpdateDayZ(); }private void LaunchDayZ() { lblStatus.Text = "DayZ up to date.";//Now Run Arma with the right switches lblStatus.Text = "Starting DayZ..."; Process prcDayZ = new Process();//Detect if beta patch installed bool bolBetaInstalled = Directory.Exists(this.strBasePath + @"\Expansion\beta"); string strArmaPath = GetArmaPath();if (!bolBetaInstalled) { //Is it the Steam version? If so, we need different parameters if (strBasePath.IndexOf("steamapps") > 0) { try { RegistryKey rk = Registry.CurrentUser; RegistryKey subKey = rk.OpenSubKey(strSteamRegPath); if (subKey != null) { prcDayZ.StartInfo.FileName = subKey.GetValue("SteamExe").ToString(); } } catch { MessageBox.Show("Unable to find Steam"); Environment.Exit(0); } prcDayZ.StartInfo.Arguments = "-applaunch 33930 \"-mod=" + strArmaPath + ";EXPANSION;ca;@dayz -world=Chernarus\""; } else { //Run regular Arma prcDayZ.StartInfo.FileName = this.strBasePath + @"\arma2oa.exe"; prcDayZ.StartInfo.Arguments = @"-mod=@dayz -nosplash -world=Chernarus"; } } else { //Run with beta patch //"E:\Game Files\Bohemia Interactive\ArmA 2\Expansion\beta\arma2oa.exe" -beta=Expansion\beta;Expansion\beta\Expansion;@DayZ -nosplash string strArgs = ""; //if (strBasePath.IndexOf("steamapps") > 0) //{ // strArgs += " -mod=" + strArmaPath + ";EXPANSION;ca"; //} strArgs += " -beta=Expansion\\beta;Expansion\\beta\\Expansion;@DayZ -nosplash -world=Chernarus"; prcDayZ.StartInfo.FileName = this.strBasePath + @"\Expansion\beta\arma2oa.exe"; prcDayZ.StartInfo.Arguments = strArgs; prcDayZ.StartInfo.WorkingDirectory = this.strBasePath; }prcDayZ.Start();//Don't need us anymore, give back the precious resources Environment.Exit(0); }private void UpdateDayZ() { //Check or create base directories if (!Directory.Exists(this.strBasePath + @"\@DayZ")) Directory.CreateDirectory(this.strBasePath + @"\@DayZ"); if (!Directory.Exists(this.strBasePath + @"\@DayZ\Addons")) Directory.CreateDirectory(this.strBasePath + @"\@DayZ\Addons");//Fetch the CDN page GetCurrentFileList();//Begin the checking and download DownloadNextFile(); }private void GetCurrentFileList() { HttpWebRequest request = (HttpWebRequest)WebRequest.Create(strCurrentCDN); using (HttpWebResponse response = (HttpWebResponse)request.GetResponse()) { using (StreamReader reader = new StreamReader(response.GetResponseStream())) { string html = reader.ReadToEnd(); Regex regex = new Regex("<a href=\".*\\.rar\">(?<name>.*)</a>"); MatchCollection matches = regex.Matches(html); if (matches.Count > 0) { foreach (Match match in matches) { if (match.Success) { URLToDownload thisFile = new URLToDownload { URL = strCurrentCDN + match.Groups["name"].ToString(), File = this.strBasePath + @"\@DayZ\" + match.Groups["name"].ToString() }; downloadList.Enqueue(thisFile); } } } } } }//Find where ARMA is installed private string GetArmaPath() { try { RegistryKey rk = Registry.LocalMachine; RegistryKey subKey = rk.OpenSubKey(strArmaRegLocation[GetBitness()]); if (subKey != null) { return subKey.GetValue("MAIN").ToString(); } else return ""; } catch { return ""; } }private string GetArmaOAPath() { try { RegistryKey rk = Registry.LocalMachine; RegistryKey subKey = rk.OpenSubKey(strArmaOARegLocation[GetBitness()]); if (subKey != null) { return subKey.GetValue("MAIN").ToString(); } else return ""; } catch { return ""; } }//What is the bitness of the system private string GetBitness() { switch (IntPtr.Size) { case 4: return "x86"; case 8: return "x64"; default: return "x86"; } }private string GetEtag(string strURL) { if (Application.UserAppDataRegistry.GetValue(strURL) != null) { return Application.UserAppDataRegistry.GetValue(strURL).ToString(); } else { return ""; } }private void SaveEtag(string strUrl, string strETag) { Application.UserAppDataRegistry.SetValue(strUrl, strETag); }private void UpdateStatus(string strMessage) { lblStatus.Invoke((Action)(() => lblStatus.Text = strMessage)); }// Worker thread to grab the file private void DownloadFile(object sender, DoWorkEventArgs e) { URLToDownload args = e.Argument as URLToDownload; // the URL to download the file from string sUrlToReadFileFrom = args.URL; // the path to write the file to string sFilePathToWriteFileTo = args.File;// first, we need to get the exact size (in bytes) of the file we are downloading Uri url = new Uri(sUrlToReadFileFrom); System.Net.HttpWebRequest request = (System.Net.HttpWebRequest)System.Net.WebRequest.Create(url); System.Net.HttpWebResponse response = (System.Net.HttpWebResponse)request.GetResponse(); response.Close(); // gets the size of the file in bytes Int64 iSize = response.ContentLength;// keeps track of the total bytes downloaded so we can update the progress bar Int64 iRunningByteTotal = 0;// use the webclient object to download the file using (System.Net.WebClient client = new System.Net.WebClient()) { UpdateStatus("Downloading " + sUrlToReadFileFrom); // open the file at the remote URL for reading using (System.IO.Stream streamRemote = client.OpenRead(new Uri(sUrlToReadFileFrom))) { // using the FileStream object, we can write the downloaded bytes to the file system using (Stream streamLocal = new FileStream(sFilePathToWriteFileTo, FileMode.Create, FileAccess.Write, FileShare.None)) { // loop the stream and get the file into the byte buffer int iByteSize = 0; byte[] byteBuffer = new byte[iSize]; while ((iByteSize = streamRemote.Read(byteBuffer, 0, byteBuffer.Length)) > 0) { // write the bytes to the file system at the file path specified streamLocal.Write(byteBuffer, 0, iByteSize); iRunningByteTotal += iByteSize;// calculate the progress out of a base "100" double dIndex = (double)(iRunningByteTotal); double dTotal = (double)byteBuffer.Length; double dProgressPercentage = (dIndex / dTotal); int iProgressPercentage = (int)(dProgressPercentage * 100);// update the progress bar bgDownloadWorker.ReportProgress(iProgressPercentage); }// clean up the file stream streamLocal.Close(); }// close the connection to the remote server streamRemote.Close(); }//Extract and delete the file UnRarFile(args); } }private void UnRarFile(URLToDownload args) { //Extract the file to the AddOns folder using (Stream stream = File.OpenRead(args.File)) { UpdateStatus("Extracting " + args.File); var reader = ReaderFactory.Open(stream); while (reader.MoveToNextEntry()) { if (!reader.Entry.IsDirectory) { Console.WriteLine(reader.Entry.FilePath); reader.WriteEntryToDirectory(this.strBasePath + @"\@DayZ\Addons", ExtractOptions.ExtractFullPath | ExtractOptions.Overwrite); } } } //Delete the rar File.Delete(args.File); }private void UpdateProgress(object sender, ProgressChangedEventArgs e) { progressBar1.Value = e.ProgressPercentage; }private void DownloadComplete(object sender, RunWorkerCompletedEventArgs e) { //Move on to the next file DownloadNextFile(); }private void DownloadNextFile() { if (downloadList.Count > 0) { URLToDownload nextFile = downloadList.Dequeue(); UpdateIfNeeded(nextFile); } else { LaunchDayZ(); } }//Download update file only if needed private bool UpdateIfNeeded(URLToDownload getFile, string strType = "modified") { //Get our stored eTag for this URL string strETag = ""; strETag = GetEtag(getFile.URL);UpdateStatus("Checking " + getFile.URL);try { //Set up a request and include our eTag HttpWebRequest request = (HttpWebRequest)HttpWebRequest.Create(getFile.URL); request.Method = "GET"; if (strETag != "") { if (strType == "etag") { request.Headers[HttpRequestHeader.IfNoneMatch] = strETag; } else { try { strETag = strETag.Replace("UTC", "GMT"); //Fix for weird servers not sending correct formate datetime request.IfModifiedSince = Convert.ToDateTime(strETag); } catch (Exception e) { MessageBox.Show("Unable to set modified date for URL: " + getFile.URL + "; " + e.Message); } } } //Grab the response, will throw an exception if it's a 304 (not modified) HttpWebResponse response = (HttpWebResponse)request.GetResponse();//We need to check if an elevation is required if (this.strBasePath.IndexOf("Program Files") > 0) Elevate();//Download the file bgDownloadWorker.RunWorkerAsync(getFile); response.Close();//Save the etag if (strType == "etag") { if (response.Headers[HttpResponseHeader.ETag] != null) SaveEtag(getFile.URL, response.Headers[HttpResponseHeader.ETag]); } else { if (response.Headers[HttpResponseHeader.LastModified] != null) SaveEtag(getFile.URL, response.Headers[HttpResponseHeader.LastModified]); }return true; } catch (System.Net.WebException ex) { if (ex.Response != null) { using (HttpWebResponse response = ex.Response as HttpWebResponse) { if (response.StatusCode == HttpStatusCode.NotModified) { //304 means there is no update available UpdateStatus(getFile.URL + " is up to date"); DownloadNextFile(); return false; } else { // Wasn't a 200, and wasn't a 304 so let the log know MessageBox.Show(string.Format("Failed to check " + getFile.URL + ". Error Code: {0}")); return false; } } } else return false; } catch (Exception e) { MessageBox.Show(string.Format("Failed to update " + getFile.URL + ". Error: {0}", e.Message)); return false; } }class URLToDownload { public string URL { get; set; } public string File { get; set; } } }}

Dort werden die Pfade wie ich sehe von der Registry ausgelesen aber man kann auch selber den Pfad einfügen weil die Registry zb. meinen Steam pfad anzeigt aber nicht meinen Spiele Pfad.

Hier das Aktuelle Desgin

Spoiler anzeigen

BlueSoftware · 18. Oktober 2015, 19:01

ich finde man kann Werte besser kontrollieren, wenn man diese in eine Text oder Ini Datei schreibt
Und mit Oprion Strict on tauchen bei dir keine Fehler auf? Respekt

MRBD69 · 18. Oktober 2015, 20:38

Ne bisher nicht danke

ich versuche die fehler erst selber zu lösen klappt das nicht kommt google in frage klappt das nicht seit ihr gefragt xD. ( ist einfach die beste seite für vb.)

text oder ini. Hatte es auch zuerst vor aber ich weiß noch nicht wie man bestimmte zeile auslesen kann.
hatte die parameter erst in .txt.

BlueSoftware · 19. Oktober 2015, 01:35

die könntest diese Textdatei dann einfach zeile für zeile auslesen lassen (vielleicht auch noch in eine Listbox eintragen)
vbarchiv.net/faq/faq_listbox_save_net.html
Hier wird beschrieben, wie du eine Textdatei zeilenweise ausliest und in eine Listbox einträgst

Dksksm · 19. Oktober 2015, 08:10

Dei dem Code vom DayZ Launcher handelt es sich um C#, ich habe ihn mal durch den Codeconverter gejagt und hier ist das Ergebnis daraus.

Spoiler anzeigen

Also keine Garantie ob's so wirklich läuft weil ungetestet.

Quellcode

Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Diagnostics
Imports System.IO
Imports System.Net
Imports System.Security.Principal
Imports System.Text.RegularExpressions
Imports System.Windows.Forms
Imports Microsoft.Win32
Imports SharpCompress.Common
Imports SharpCompress.Reader
Namespace DayZ_Launcher
Public Partial Class Launcher
Inherits Form
Private strDefaultCDN As String = "http://cdn.armafiles.info/latest/"
Private strCurrentCDN As String
Private strBasePath As String
Private strArmaOARegLocation As New Dictionary(Of String, String)() From { _
{"x86", "SOFTWARE\Bohemia Interactive Studio\ArmA 2 OA"}, _
{"x64", "SOFTWARE\Wow6432Node\Bohemia Interactive Studio\ArmA 2 OA"} _
}
Private strArmaRegLocation As New Dictionary(Of String, String)() From { _
{"x86", "SOFTWARE\Bohemia Interactive Studio\ArmA 2"}, _
{"x64", "SOFTWARE\Wow6432Node\Bohemia Interactive Studio\ArmA 2"} _
}
Private strSteamRegPath As String = "SOFTWARE\Valve\Steam"
Private downloadList As New Queue(Of URLToDownload)()
Public Sub New()
InitializeComponent()
End Sub
Public Sub Elevate()
'We need Admin for almost everything in here
' Needs UAC elevation for webmin to run
Dim principal As New WindowsPrincipal(WindowsIdentity.GetCurrent())
Dim hasAdministrativeRight As Boolean = principal.IsInRole(WindowsBuiltInRole.Administrator)
If Not hasAdministrativeRight Then
Dim processInfo As New ProcessStartInfo()
processInfo.Verb = "runas"
processInfo.FileName = Application.ExecutablePath
Try
Process.Start(processInfo)
Catch
Environment.[Exit](0)
End Try
Environment.[Exit](0)
End If
End Sub
Public Sub StartUp(sender As Object, e As EventArgs)
'Set the CDN TODO: Make this changeable somehow
strCurrentCDN = strDefaultCDN
'Fetch the Arma Path
Me.strBasePath = GetArmaOAPath()
If strBasePath = "" Then
Dim bolPathOK As Boolean = False
While Not bolPathOK
If Application.UserAppDataRegistry.GetValue("Arma2Path") IsNot Nothing Then
Me.strBasePath = Application.UserAppDataRegistry.GetValue("Arma2Path").ToString()
Else
MessageBox.Show("Unable to locate Arma2 install, please select install path (Contains Arma2oa.exe).")
Dim result As DialogResult = folderBrowserDialog1.ShowDialog()
If result = DialogResult.OK Then
Me.strBasePath = folderBrowserDialog1.SelectedPath
Else
MessageBox.Show("DayZ requires Arma2 : Combined Operations")
Environment.[Exit](1)
End If
End If
'Test the path is ok
If File.Exists(strBasePath & "\arma2oa.exe") Then
Application.UserAppDataRegistry.SetValue("Arma2Path", Me.strBasePath)
bolPathOK = True
End If
End While
End If
lblStatus.Text = "Found Arma2."
'So we know Arma is installed, what about DayZ?
UpdateDayZ()
End Sub
Private Sub LaunchDayZ()
lblStatus.Text = "DayZ up to date."
'Now Run Arma with the right switches
lblStatus.Text = "Starting DayZ..."
Dim prcDayZ As New Process()
'Detect if beta patch installed
Dim bolBetaInstalled As Boolean = Directory.Exists(Me.strBasePath & "\Expansion\beta")
Dim strArmaPath As String = GetArmaPath()
If Not bolBetaInstalled Then
'Is it the Steam version? If so, we need different parameters
If strBasePath.IndexOf("steamapps") > 0 Then
Try
Dim rk As RegistryKey = Registry.CurrentUser
Dim subKey As RegistryKey = rk.OpenSubKey(strSteamRegPath)
If subKey IsNot Nothing Then
prcDayZ.StartInfo.FileName = subKey.GetValue("SteamExe").ToString()
End If
Catch
MessageBox.Show("Unable to find Steam")
Environment.[Exit](0)
End Try
prcDayZ.StartInfo.Arguments = "-applaunch 33930 ""-mod=" & strArmaPath & ";EXPANSION;ca;@dayz -world=Chernarus"""
Else
'Run regular Arma
prcDayZ.StartInfo.FileName = Me.strBasePath & "\arma2oa.exe"
prcDayZ.StartInfo.Arguments = "-mod=@dayz -nosplash -world=Chernarus"
End If
Else
'Run with beta patch
'"E:\Game Files\Bohemia Interactive\ArmA 2\Expansion\beta\arma2oa.exe" -beta=Expansion\beta;Expansion\beta\Expansion;@DayZ -nosplash
Dim strArgs As String = ""
'if (strBasePath.IndexOf("steamapps") > 0)
'{
' strArgs += " -mod=" + strArmaPath + ";EXPANSION;ca";
'}
strArgs += " -beta=Expansion\beta;Expansion\beta\Expansion;@DayZ -nosplash -world=Chernarus"
prcDayZ.StartInfo.FileName = Me.strBasePath & "\Expansion\beta\arma2oa.exe"
prcDayZ.StartInfo.Arguments = strArgs
prcDayZ.StartInfo.WorkingDirectory = Me.strBasePath
End If
prcDayZ.Start()
'Don't need us anymore, give back the precious resources
Environment.[Exit](0)
End Sub
Private Sub UpdateDayZ()
'Check or create base directories
If Not Directory.Exists(Me.strBasePath & "\@DayZ") Then
Directory.CreateDirectory(Me.strBasePath & "\@DayZ")
End If
If Not Directory.Exists(Me.strBasePath & "\@DayZ\Addons") Then
Directory.CreateDirectory(Me.strBasePath & "\@DayZ\Addons")
End If
'Fetch the CDN page
GetCurrentFileList()
'Begin the checking and download
DownloadNextFile()
End Sub
Private Sub GetCurrentFileList()
Dim request As HttpWebRequest = DirectCast(WebRequest.Create(strCurrentCDN), HttpWebRequest)
Using response As HttpWebResponse = DirectCast(request.GetResponse(), HttpWebResponse)
Using reader As New StreamReader(response.GetResponseStream())
Dim html As String = reader.ReadToEnd()
Dim regex As New Regex("<a href="".*\.rar"">(?<name>.*)</a>")
Dim matches As MatchCollection = regex.Matches(html)
If matches.Count > 0 Then
For Each match As Match In matches
If match.Success Then
Dim thisFile As New URLToDownload() With { _
Key .URL = strCurrentCDN & match.Groups("name").ToString(), _
Key .File = Me.strBasePath & "\@DayZ\" & match.Groups("name").ToString() _
}
downloadList.Enqueue(thisFile)
End If
Next
End If
End Using
End Using
End Sub
'Find where ARMA is installed
Private Function GetArmaPath() As String
Try
Dim rk As RegistryKey = Registry.LocalMachine
Dim subKey As RegistryKey = rk.OpenSubKey(strArmaRegLocation(GetBitness()))
If subKey IsNot Nothing Then
Return subKey.GetValue("MAIN").ToString()
Else
Return ""
End If
Catch
Return ""
End Try
End Function
Private Function GetArmaOAPath() As String
Try
Dim rk As RegistryKey = Registry.LocalMachine
Dim subKey As RegistryKey = rk.OpenSubKey(strArmaOARegLocation(GetBitness()))
If subKey IsNot Nothing Then
Return subKey.GetValue("MAIN").ToString()
Else
Return ""
End If
Catch
Return ""
End Try
End Function
'What is the bitness of the system
Private Function GetBitness() As String
Select Case IntPtr.Size
Case 4
Return "x86"
Case 8
Return "x64"
Case Else
Return "x86"
End Select
End Function
Private Function GetEtag(strURL As String) As String
If Application.UserAppDataRegistry.GetValue(strURL) IsNot Nothing Then
Return Application.UserAppDataRegistry.GetValue(strURL).ToString()
Else
Return ""
End If
End Function
Private Sub SaveEtag(strUrl As String, strETag As String)
Application.UserAppDataRegistry.SetValue(strUrl, strETag)
End Sub
Private Sub UpdateStatus(strMessage As String)
lblStatus.Invoke(DirectCast(Function() InlineAssignHelper(lblStatus.Text, strMessage), Action))
End Sub
' Worker thread to grab the file
Private Sub DownloadFile(sender As Object, e As DoWorkEventArgs)
Dim args As URLToDownload = TryCast(e.Argument, URLToDownload)
' the URL to download the file from
Dim sUrlToReadFileFrom As String = args.URL
' the path to write the file to
Dim sFilePathToWriteFileTo As String = args.File
' first, we need to get the exact size (in bytes) of the file we are downloading
Dim url As New Uri(sUrlToReadFileFrom)
Dim request As System.Net.HttpWebRequest = DirectCast(System.Net.WebRequest.Create(url), System.Net.HttpWebRequest)
Dim response As System.Net.HttpWebResponse = DirectCast(request.GetResponse(), System.Net.HttpWebResponse)
response.Close()
' gets the size of the file in bytes
Dim iSize As Int64 = response.ContentLength
' keeps track of the total bytes downloaded so we can update the progress bar
Dim iRunningByteTotal As Int64 = 0
' use the webclient object to download the file
Using client As New System.Net.WebClient()
UpdateStatus("Downloading " & sUrlToReadFileFrom)
' open the file at the remote URL for reading
Using streamRemote As System.IO.Stream = client.OpenRead(New Uri(sUrlToReadFileFrom))
' using the FileStream object, we can write the downloaded bytes to the file system
Using streamLocal As Stream = New FileStream(sFilePathToWriteFileTo, FileMode.Create, FileAccess.Write, FileShare.None)
' loop the stream and get the file into the byte buffer
Dim iByteSize As Integer = 0
Dim byteBuffer As Byte() = New Byte(iSize - 1) {}
While (InlineAssignHelper(iByteSize, streamRemote.Read(byteBuffer, 0, byteBuffer.Length))) > 0
' write the bytes to the file system at the file path specified
streamLocal.Write(byteBuffer, 0, iByteSize)
iRunningByteTotal += iByteSize
' calculate the progress out of a base "100"
Dim dIndex As Double = CDbl(iRunningByteTotal)
Dim dTotal As Double = CDbl(byteBuffer.Length)
Dim dProgressPercentage As Double = (dIndex / dTotal)
Dim iProgressPercentage As Integer = CInt(Math.Truncate(dProgressPercentage * 100))
' update the progress bar
bgDownloadWorker.ReportProgress(iProgressPercentage)
End While
' clean up the file stream
streamLocal.Close()
End Using
' close the connection to the remote server
streamRemote.Close()
End Using
'Extract and delete the file
UnRarFile(args)
End Using
End Sub
Private Sub UnRarFile(args As URLToDownload)
'Extract the file to the AddOns folder
Using stream As Stream = File.OpenRead(args.File)
UpdateStatus("Extracting " & args.File)
Dim reader = ReaderFactory.Open(stream)
While reader.MoveToNextEntry()
If Not reader.Entry.IsDirectory Then
Console.WriteLine(reader.Entry.FilePath)
reader.WriteEntryToDirectory(Me.strBasePath & "\@DayZ\Addons", ExtractOptions.ExtractFullPath Or ExtractOptions.Overwrite)
End If
End While
End Using
'Delete the rar
File.Delete(args.File)
End Sub
Private Sub UpdateProgress(sender As Object, e As ProgressChangedEventArgs)
progressBar1.Value = e.ProgressPercentage
End Sub
Private Sub DownloadComplete(sender As Object, e As RunWorkerCompletedEventArgs)
'Move on to the next file
DownloadNextFile()
End Sub
Private Sub DownloadNextFile()
If downloadList.Count > 0 Then
Dim nextFile As URLToDownload = downloadList.Dequeue()
UpdateIfNeeded(nextFile)
Else
LaunchDayZ()
End If
End Sub
'Download update file only if needed
Private Function UpdateIfNeeded(getFile As URLToDownload, Optional strType As String = "modified") As Boolean
'Get our stored eTag for this URL
Dim strETag As String = ""
strETag = GetEtag(getFile.URL)
UpdateStatus("Checking " & getFile.URL)
Try
'Set up a request and include our eTag
Dim request As HttpWebRequest = DirectCast(HttpWebRequest.Create(getFile.URL), HttpWebRequest)
request.Method = "GET"
If strETag <> "" Then
If strType = "etag" Then
request.Headers(HttpRequestHeader.IfNoneMatch) = strETag
Else
Try
strETag = strETag.Replace("UTC", "GMT")
'Fix for weird servers not sending correct formate datetime
request.IfModifiedSince = Convert.ToDateTime(strETag)
Catch e As Exception
MessageBox.Show("Unable to set modified date for URL: " & getFile.URL & "; " & e.Message)
End Try
End If
End If
'Grab the response, will throw an exception if it's a 304 (not modified)
Dim response As HttpWebResponse = DirectCast(request.GetResponse(), HttpWebResponse)
'We need to check if an elevation is required
If Me.strBasePath.IndexOf("Program Files") > 0 Then
Elevate()
End If
'Download the file
bgDownloadWorker.RunWorkerAsync(getFile)
response.Close()
'Save the etag
If strType = "etag" Then
If response.Headers(HttpResponseHeader.ETag) IsNot Nothing Then
SaveEtag(getFile.URL, response.Headers(HttpResponseHeader.ETag))
End If
Else
If response.Headers(HttpResponseHeader.LastModified) IsNot Nothing Then
SaveEtag(getFile.URL, response.Headers(HttpResponseHeader.LastModified))
End If
End If
Return True
Catch ex As System.Net.WebException
If ex.Response IsNot Nothing Then
Using response As HttpWebResponse = TryCast(ex.Response, HttpWebResponse)
If response.StatusCode = HttpStatusCode.NotModified Then
'304 means there is no update available
UpdateStatus(getFile.URL & " is up to date")
DownloadNextFile()
Return False
Else
' Wasn't a 200, and wasn't a 304 so let the log know
MessageBox.Show(String.Format("Failed to check " & getFile.URL & ". Error Code: {0}"))
Return False
End If
End Using
Else
Return False
End If
Catch e As Exception
MessageBox.Show(String.Format("Failed to update " & getFile.URL & ". Error: {0}", e.Message))
Return False
End Try
End Function
Private Class URLToDownload
Public Property URL() As String
Get
Return m_URL
End Get
Set
m_URL = Value
End Set
End Property
Private m_URL As String
Public Property File() As String
Get
Return m_File
End Get
Set
m_File = Value
End Set
End Property
Private m_File As String
End Class
Private Shared Function InlineAssignHelper(Of T)(ByRef target As T, value As T) As T
target = value
Return value
End Function
End Class
End Namespace

((Keine Ahnung warum der Code als "Quellcode" angezeigt wird, ich habe die richtigen Tags genommen und es sollte als VB.Net Quellcode angezeigt werden.))

Game Launcher

Game Launcher

Quellcode

C#-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Visual Basic-Quellcode

Quellcode

Ähnliche Themen

4 Benutzer haben hier geschrieben