Form1

Imports System.Security.Cryptography
Imports System.Text

Public Class Form1
    Dim wc As New Net.WebClient
    Private WebCode As String = "milky77771/"
    Private WebSite As String = "http://users.atw.hu/" & WebCode
    Private WebClient As String = WebSite & "Client/"
    Private WebUsers As String = WebClient & "Felhasználók/"
    Private Username As String
    Private Files As String = WebClient & "/Kliens/Fájlok"
    Private Version As String
    Dim appdata As String = Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData)
    Private Sub PictureBox1_Click(sender As Object, e As EventArgs)

    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Download.Show()
    End Sub
    Public Sub UpdateJar()
        System.IO.Directory.CreateDirectory(appdata & "\.firemc")
        Me.Hide()
        Download.Show()
        wc.DownloadFile(Files & "/servers.dat", appdata & "\.firemc\servers.dat")
    End Sub

    Private Sub PictureBox2_Click(sender As Object, e As EventArgs)
        Me.Close()
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        If System.IO.Directory.Exists(appdata & "\.firemc") Then
            wc.DownloadFile(Files & "/servers.dat", appdata & "\.firemc\servers.dat")
            Me.Enabled = True
        Else
            System.IO.Directory.CreateDirectory(appdata & "\.firemc")
            Me.Hide()
            Download.Show()
            wc.DownloadFile(Files & "/servers.dat", appdata & "\.firemc\servers.dat")
        End If
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If Not TextBox1.Text = "" Then
            If Not TextBox2.Text = "" Then
                Try
                    Me.Enabled = False
                    RichTextBox1.Text = wc.DownloadString(WebUsers & TextBox1.Text)
                    Username = RichTextBox1.Lines(1)
                    Dim password As String = ToSHA(TextBox2.Text)

                    If TextBox1.Text = RichTextBox1.Lines(1) And password = RichTextBox1.Lines(2) Then
                        wc.DownloadFile(Files & "/servers.dat", appdata & "\.firemc\servers.dat")
                        StartMC(Username)
                        Application.Exit()
                        Me.Enabled = True
                    Else
                        Me.Enabled = True
                        MsgBox("Hibás jelszó vagy felhasználónév!", MsgBoxStyle.Information)
                    End If
                Catch ex As Exception
                    Me.Enabled = True
                    MsgBox(ex.Message, MsgBoxStyle.Information)
                    MsgBox("Hibás jelszó vagy felhasználónév!", MsgBoxStyle.Information)

                End Try
            End If
        Else

        End If
    End Sub
    Private Sub StartMC(name As String)
        Dim installPath As String = GetJavaInstallationPath()
        Dim filePath As String = installPath & "\bin\javaw.exe"

        Dim mc As ProcessStartInfo = New ProcessStartInfo
        With mc
            .FileName = filePath
            .WorkingDirectory = appdata & "\.firemc"
            .CreateNoWindow = False
            .UseShellExecute = False
            .Arguments = "-XX:HeapDumpPath=MojangTricksIntelDriversForPerformance_javaw.exe_minecraft.exe.heapdump -Xmx1G -XX:+UseConcMarkSweepGC -XX:+CMSIncrementalMode -XX:-UseAdaptiveSizePolicy -Xmn128M -Djava.library.path=" & appdata & "\.firemc\versions\Kliens\Kliens-natives -cp " & appdata & "\.firemc\libraries\java3d\vecmath\1.5.2\vecmath-1.5.2.jar;" & appdata & "\.firemc\libraries\net\sf\trove4j\trove4j\3.0.3\trove4j-3.0.3.jar;" & appdata & "\.firemc\libraries\com\ibm\icu\icu4j-core-mojang\51.2\icu4j-core-mojang-51.2.jar;" & appdata & "\.firemc\libraries\net\sf\jopt-simple\jopt-simple\4.6\jopt-simple-4.6.jar;" & appdata & "\.firemc\libraries\com\paulscode\codecjorbis\20101023\codecjorbis-20101023.jar;" & appdata & "\.firemc\libraries\com\paulscode\codecwav\20101023\codecwav-20101023.jar;" & appdata & "\.firemc\libraries\com\paulscode\libraryjavasound\20101123\libraryjavasound-20101123.jar;" & appdata & "\.firemc\libraries\com\paulscode\librarylwjglopenal\20100824\librarylwjglopenal-20100824.jar;" & appdata & "\.firemc\libraries\com\paulscode\soundsystem\20120107\soundsystem-20120107.jar;" & appdata & "\.firemc\libraries\io\netty\netty-all\4.0.15.Final\netty-all-4.0.15.Final.jar;" & appdata & "\.firemc\libraries\com\google\guava\guava\17.0\guava-17.0.jar;" & appdata & "\.firemc\libraries\org\apache\commons\commons-lang3\3.3.2\commons-lang3-3.3.2.jar;" & appdata & "\.firemc\libraries\commons-io\commons-io\2.4\commons-io-2.4.jar;" & appdata & "\.firemc\libraries\commons-codec\commons-codec\1.9\commons-codec-1.9.jar;" & appdata & "\.firemc\libraries\net\java\jinput\jinput\2.0.5\jinput-2.0.5.jar;" & appdata & "\.firemc\libraries\net\java\jutils\jutils\1.0.0\jutils-1.0.0.jar;" & appdata & "\.firemc\libraries\com\google\code\gson\gson\2.2.4\gson-2.2.4.jar;" & appdata & "\.firemc\libraries\com\mojang\authlib\1.5.21\authlib-1.5.21.jar;" & appdata & "\.firemc\libraries\com\mojang\realms\1.6.1\realms-1.6.1.jar;" & appdata & "\.firemc\libraries\org\apache\commons\commons-compress\1.8.1\commons-compress-1.8.1.jar;" & appdata & "\.firemc\libraries\org\apache\httpcomponents\httpclient\4.3.3\httpclient-4.3.3.jar;" & appdata & "\.firemc\libraries\commons-logging\commons-logging\1.1.3\commons-logging-1.1.3.jar;" & appdata & "\.firemc\libraries\org\apache\httpcomponents\httpcore\4.3.2\httpcore-4.3.2.jar;" & appdata & "\.firemc\libraries\org\apache\logging\log4j\log4j-api\2.0-beta9\log4j-api-2.0-beta9.jar;" & appdata & "\.firemc\libraries\org\apache\logging\log4j\log4j-core\2.0-beta9\log4j-core-2.0-beta9.jar;" & appdata & "\.firemc\libraries\org\lwjgl\lwjgl\lwjgl\2.9.1\lwjgl-2.9.1.jar;" & appdata & "\.firemc\libraries\org\lwjgl\lwjgl\lwjgl_util\2.9.1\lwjgl_util-2.9.1.jar;" & appdata & "\.firemc\libraries\tv\twitch\twitch\6.5\twitch-6.5.jar;" & appdata & "\.firemc\versions\Kliens\Kliens.jar net.minecraft.client.main.Main --username " & name & " --version 1.8 --gameDir " & appdata & "\.firemc --assetIndex 1.8 --assetsDir " & appdata & "\.firemc\assets --userProperties {} --accessToken " & appdata & "\.firemc\launcher_profiles.json --uuid null"
        End With
        Process.Start(mc)
    End Sub
    Private Function GetJavaInstallationPath()
        Dim environmentPath As String = Environment.GetEnvironmentVariable("JAVA_HOME")
        If Not String.IsNullOrEmpty(environmentPath) Then

            Return environmentPath
        End If

        Dim javaKey As String = "SOFTWARE\JavaSoft\Java Runtime Environment\"
        Using rk As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.LocalMachine.OpenSubKey(javaKey)

            Dim currentVersion As String = rk.GetValue("CurrentVersion").ToString()
            Using key As Microsoft.Win32.RegistryKey = rk.OpenSubKey(currentVersion)
                Return key.GetValue("JavaHome").ToString()
            End Using
        End Using

    End Function
    Public Function ToSHA(Password As String)
        Dim InByte() As Byte = Encoding.UTF8.GetBytes(Password)
        Dim OutByte() As Byte
        Dim shaman As New SHA512Managed
        OutByte = shaman.ComputeHash(InByte)

        Dim OutPut = Convert.ToBase64String(OutByte)
        Return OutPut
    End Function

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Form2.Show()
    End Sub


End Class