[HILFE] Visual Basic Launcher Login

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim Update As New Net.WebClient

        If Environment.SpecialFolder.ApplicationData & "\.minecraft\minecraft.jar" = Nothing Then
            Update.DownloadFile("https://s3.amazonaws.com/MinecraftDownload/launcher/Minecraft.exe", Environment.SpecialFolder.ApplicationData & "\.minecraft\bin\minecraft.jar")
        End If
    End Sub
    Private Sub login_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles login.Click
        Dim Update As New Net.WebClient

        If benutzername.Text = "" Then
            MsgBox("Bitte gib deinen Benutzernamen ein!")
        Else
            If benutzername.Text = "Username" Then
                MsgBox("Bitte gib deinen Benutzernamen ein!")
            Else
                If passwort.Text = "" Then
                    MsgBox("Bitte gib dein Passwort ein!")
                Else
                    If passwort.Text = "pwdummy" Then
                        MsgBox("Bitte gib dein Passwort ein!")
                    Else
                        If forceupdate.Checked Then
                            Update.DownloadFile("http://launcher.minamy.de/bin/minecraft.jar", Environment.SpecialFolder.ApplicationData & "\.minecraft\bin\minecraft.jar")
                            MessageBox.Show("Minecraft wurde Upgedatet!")
                        Else
                            If aufserver.Checked Then
                                Shell(Environment.SpecialFolder.ApplicationData & "\.minecraft\bin\minecraft.jar" & benutzername.Text & " " & passwort.Text & "mc.minamy.de")
                            Else
                                Shell(Environment.SpecialFolder.ApplicationData & "\.minecraft\bin\minecraft.jar" & benutzername.Text & " " & passwort.Text)
                            End If
                        End If
                    End If
                End If
            End If
        End If
    End Sub
    Private Sub benutzernamen_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles benutzername.KeyPress
        If e.KeyChar = Chr(13) Then
            e.Handled = True
            login.PerformClick()
        End If
    End Sub
    Private Sub passwort_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles passwort.KeyPress
        If e.KeyChar = Chr(13) Then
            e.Handled = True
            login.PerformClick()
        End If
    End Sub
End Class

Public Class Launcher


    Private Sub Login_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Login.Click
        If Passram.Checked = True Then
            Dim Sw As New System.IO.StreamWriter(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.crafterz\bin\login")
            Sw.WriteLine(IDtxt.Text)
            Sw.WriteLine(Passtxt.Text)
            Sw.Close()
            Process.Start(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.crafterz\bin\minecraft.exe", IDtxt.Text & " " & Passtxt.Text)
        ElseIf Passram.Checked = False Then
            Process.Start(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.crafterz\bin\minecraft.exe", IDtxt.Text & " " & Passtxt.Text)
        End If
        End
    End Sub

    Private Sub Need_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles Need.LinkClicked
        Process.Start("http://www.minecraft.net/register")
    End Sub

    Private Sub Launcher_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If System.IO.File.Exists("Minecraft Launcher New.exe") = True Then
            MsgBox("Bitte entferne den 'New' Namen und starte den Launcher!", MsgBoxStyle.Exclamation)
            End
        ElseIf System.IO.File.Exists("Minecraft Launcher New.exe") = False Then
            If System.IO.File.Exists(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.crafterz\bin\vbversion") = True Then
                My.Computer.Network.DownloadFile("http://crafterz.western-it.com/update/vbversion", Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.crafterz\vbversion")
                Dim vn As New System.IO.StreamReader(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.crafterz\bin\vbversion")
                Dim vni As New System.IO.StreamReader(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.crafterz\vbversion")
                Dim nk As String
                Dim nki As String
                nk = vn.ReadLine
                nki = vni.ReadLine
                vn.Close()
                vni.Close()
                Kill(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.crafterz\vbversion")
                If nk < nki Then
                    MsgBox("Ein Update ist verfügbar!", MsgBoxStyle.Information)
                End If
            End If
            If System.IO.File.Exists(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.crafterz\bin\vbversion") = False Then
                MsgBox("Das Spiel wurde noch nicht heruntergeladen!", MsgBoxStyle.Exclamation)
            End If
            If System.IO.File.Exists(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.crafterz\bin\login") Then
                Passram.Checked = True
                Dim sr As New System.IO.StreamReader(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.crafterz\bin\login")
                IDtxt.Text = sr.ReadLine
                Passtxt.Text = sr.ReadLine
                sr.Close()
            End If
        End If
    End Sub

    Private Sub options_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles options.Click
        MsgBox("Update wird jetzt durchgeführt ...", MsgBoxStyle.Information)
        If System.IO.File.Exists(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.crafterz\bin\vbversion") = True Then
            Kill(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.crafterz\bin\vbversion")
            Kill(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.crafterz\bin\minecraft.exe")
            My.Computer.Network.DownloadFile("https://s3.amazonaws.com/MinecraftDownload/launcher/Minecraft.exe", Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.crafterz\bin\minecraft.exe")
            My.Computer.Network.DownloadFile("http://crafterz.western-it.com/update/vbversion", Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.crafterz\bin\vbversion")
        ElseIf System.IO.File.Exists(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.crafterz\bin\vbversion") = False Then
            My.Computer.Network.DownloadFile("https://s3.amazonaws.com/MinecraftDownload/launcher/Minecraft.exe", Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.crafterz\bin\minecraft.exe")
            My.Computer.Network.DownloadFile("http://crafterz.western-it.com/update/vbversion", Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.crafterz\bin\vbversion")
        End If
        MsgBox("Update abgeschlossen!", MsgBoxStyle.Information)
        MsgBox("Lösch bitte den alten Launcher und nenne den neuen Launcher, Launcher", MsgBoxStyle.Exclamation)
        End
    End Sub

    Private Sub News_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles News.DocumentCompleted

    End Sub
End Class