[Tutorial] Arma 3 Launcher erstellen

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

    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()

        Label1.Text = bytes.ToString & " kb von " & totalbytes.ToString & " kb"

        If ProgressBar1.Value = 100 Then
            Label1.Text = ("Fertig")
            MsgBox("Dein Download war Erfolgreich!")
        End If
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim iox As New IO.StreamReader(My.Application.Info.DirectoryPath & "\version.txt", System.Text.Encoding.Default)
        Dim ot As String = iox.ReadToEnd
        iox.Close()

        'Hier bitte euer Launcher namen einfügen
        My.MyProject.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Launchertutorial", "Version", "1.0")
        'hier bitte euren Link/Pfad angeben zur version.txt
        Me.client.DownloadFile("http://tutorial.de/tut/version.txt", My.MyProject.Application.Info.DirectoryPath & "\version.txt")
        Me.TextBox1.Text = My.MyProject.Computer.FileSystem.ReadAllText(My.MyProject.Application.Info.DirectoryPath & "\pfad.txt")
        Me.TextBox2.Text = My.MyProject.Computer.FileSystem.ReadAllText(My.MyProject.Application.Info.DirectoryPath & "\para.txt")
        Dim streamreader1 As System.IO.StreamReader = New System.IO.StreamReader(My.MyProject.Application.Info.DirectoryPath & "\version.txt", System.Text.Encoding.Default)
        Dim str1 As String = streamreader1.ReadToEnd()
        streamreader1.Close()
        'Hier bitte euer Launcher namen einfügen
        If ot = My.Computer.Registry.GetValue("HKEY_CURRENT_USER\Software\Launchertutorial", "version", "1.0") Then
        Else
            MsgBox("Update Verfügbar")
        End If
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        'Sorgt dafür das ihr euren Pfad suchen könnt!
        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 Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        'speichert euren Pfad und euer startparameter in einer textdatei
        My.Computer.FileSystem.WriteAllText("pfad.txt", TextBox1.Text, False)
        My.Computer.FileSystem.WriteAllText("para.txt", TextBox2.Text, False)
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        'Hier euer/eure Modpack/s eingügen und eure IP
        'Staret das spiel und lässt euch auf euren server connecten
        Process.Start(Me.TextBox1.Text & "\arma3battleye.exe ", " 0 1 -mod=@Euer;@Modpack;@Was;@Ihr;@habt -connect=Eure IP " & TextBox2.Text)

    End Sub

    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
        Hier könnt ihr euer Modpack Downlaoden
        'hier bitte euer link/pfad zu eurem modpack/missionpbo file
        client.DownloadFileAsync(New System.Uri("euer pfad zum modpack/Modpack.zip"), My.Application.Info.DirectoryPath & "\Modpack.zip")

        AddHandler client.DownloadProgressChanged, AddressOf DownloadProgress
    End Sub

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        'Fragt auf euren WEbspace die version ab und wenn es änderungen gab lädt er die neue version des Launcher runter
        'Lässt euch wenn ihr änderungen am launcher habt eine neue version downlaoden

        Dim iox As New IO.StreamReader(My.Application.Info.DirectoryPath & "\version.txt", System.Text.Encoding.Default)
        Dim ot As String = iox.ReadToEnd
        iox.Close()

        If ot = My.Computer.Registry.GetValue("HKEY_CURRENT_USER\Software\Launchertutorial", "version", "1.0") Then
            MsgBox("Ihre version ist aktuell!")
            Me.Hide()

        Else
            'Hier euer Link/Pfad zu eurem Launcher einfügen
            client.DownloadFileAsync(New System.Uri("http://tutorial/tut/Launcher.zip"), My.Application.Info.DirectoryPath & "\Launcher.zip")
        End If
    End Sub
End Class