[Tutorial] Arma 3 Launcher erstellen

Imports System.Net
Imports System.IO
Imports System.Text

Public Class Form1
    Friend WithEvents MyWebClient As New Net.WebClient
    Dim client As New Net.WebClient

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

        My.MyProject.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\EUERNAME Launcher", "Version", "1.0") 'Bei einem Update bitte hier die version  ändern
        Me.client.DownloadFile("http://EUREIP/Launcher/version.txt", My.MyProject.Application.Info.DirectoryPath & "\version.txt")
        Me.FlatTextBox1.Text = My.MyProject.Computer.FileSystem.ReadAllText(My.MyProject.Application.Info.DirectoryPath & "\pfad.txt")
        Me.FlatTextBox2.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()
        If ot = My.Computer.Registry.GetValue("HKEY_CURRENT_USER\Software\Royal-Streets.de", "version", "1.0") Then 'Bei einem Update bitte hier die version  ändern
        Else
            FlatAlertBox1.Show()
            'Hier kann auch MsgBox.Show("") verwendet werden 
        End If
    End Sub

    Private Sub MyWebClient_DownloadProgressChanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles MyWebClient.DownloadProgressChanged
        FlatProgressBar1.Value = e.ProgressPercentage

        Dim totalbytes As Long = e.TotalBytesToReceive / 1024
        Dim bytes As Long = e.BytesReceived / 1024
        ToString()

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

        If FlatProgressBar1.Value = 100 Then
            FlatLabel2.Text = ("Fertig! Arma 3 wird gestartet.")
            Process.Start(Me.FlatTextBox1.Text & "\arma3battleye.exe ", " 0 1 -connect=HIERIPEINTRAGEN " & FlatTextBox2.Text)
        End If
    End Sub

    Private Sub DownloadProgress(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs)
        Me.FlatProgressBar1.Value = e.ProgressPercentage
    End Sub

    Private Sub FlatButton1_Click(sender As Object, e As EventArgs) Handles FlatButton1.Click
        MyWebClient.DownloadFileAsync(New Uri("http://EUREIP/Launcher/Mission.pbo"), Environment.GetFolderPath(Environment.SpecialFolder.LocalApplicationData) & "\Arma 3\MPMissionsCache\Mission.pbo") 'Hier downloaded ihr direkt die Mission in euren MPMissionCache ordner
    End Sub

    Private Sub FlatButton2_Click(sender As Object, e As EventArgs) Handles FlatButton2.Click
        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.FlatTextBox1.Text = FolderBrowser.SelectedPath
        End If
    End Sub

    Private Sub FlatButton4_Click(sender As Object, e As EventArgs) Handles FlatButton4.Click
        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\EUERNAME Launcher", "version", "1.0") Then
            MsgBox("Ihre version ist aktuell!")
            Me.Hide()

        Else
            MsgBox("Update verfügbar!")
            FlatButton5.BaseColor = Color.FromArgb(35, 168, 109)
            FlatButton5.Visible = True
            FlatButton5.Enabled = True
        End If
    End Sub

    Private Sub FlatButton3_Click(sender As Object, e As EventArgs) Handles FlatButton3.Click
        My.Computer.FileSystem.WriteAllText("pfad.txt", FlatTextBox1.Text, False)
        My.Computer.FileSystem.WriteAllText("para.txt", FlatTextBox2.Text, False)
    End Sub

    Private Sub FlatButton6_Click(sender As Object, e As EventArgs) Handles FlatButton6.Click
        Process.Start("ts3server://EURETSIP/")
    End Sub

    Private Sub FlatButton7_Click(sender As Object, e As EventArgs) Handles FlatButton7.Click
        Process.Start("http://EUREHOMPAGE.de")
    End Sub

    Private Sub LinkLabel1_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
        Process.Start("https://native-network.net/user/2322-devilcraft/") 'Bitte immer eine Verlinkung zu meinem Profil da lassen wenn ihr diesen Code nutzt
    End Sub
End Class