Launcher LFW

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

Public Class LifeForWar


    Private Sub Connect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Connect.Click

    End Sub

    Private Sub Connect(ByVal PlayerName As String, ByVal PlayerPassword As String)

        ' Authentification
        Dim UserCredentials As String() = Authenticate(PlayerName, PlayerPassword)
        Dim UserToken As String = UserCredentials(2)
        Dim UUID As String = UserCredentials(3)

        ' Lancement
        Dim G As String = """"
        Dim gamedir As String = "%APPDATA%" & "\.lifeforwar"
        Dim natives As String = gamedir & "\natives"
        Dim libraries As String = gamedir & "\libraries"
        Dim assets As String = gamedir & "\assets"
        Dim version As String = "1.7.10"
        Dim jarver As String = gamedir & "\versions\lfw\lfw-1.7.10.jar" & G
        Dim mainclass As String = "net.minecraft.launchwrapper.Launch"
        Dim userproperties As String = "{}"
        Dim usertype As String = "mojang"
        Dim tweakclass As String = "cpw.mods.fml.common.launcher.FMLTweaker"

        Dim exe As String = "java" '"""C:\Program Files\Java\jre7\bin\java.exe"""
        Dim libs As String = ""
        For Each file In IO.Directory.GetFiles(libraries, "*.jar", IO.SearchOption.AllDirectories)
            libs &= """" & file & """;"
        Next


        Dim params As String = _
            "-Djava.library.path=" & G & natives & G & _
            " -cp " & G & gamedir & "\libraries\net\minecraftforge\forge\1.7.10-10.13.2.1230\forge-1.7.10-10.13.2.1230.jar;" & gamedir & "\libraries\net\minecraft\launchwrapper\1.11\launchwrapper-1.11.jar;" & gamedir & "\libraries\org\ow2\asm\asm-all\5.0.3\asm-all-5.0.3.jar;" & gamedir & "\libraries\com\typesafe\akka\akka-actor_2.11\2.3.3\akka-actor_2.11-2.3.3.jar;" & gamedir & "\libraries\com\typesafe\config\1.2.1\config-1.2.1.jar;" & gamedir & "\libraries\org\scala-lang\scala-actors-migration_2.11\1.1.0\scala-actors-migration_2.11-1.1.0.jar;" & gamedir & "\libraries\org\scala-lang\scala-compiler\2.11.1\scala-compiler-2.11.1.jar;" & gamedir & "\libraries\org\scala-lang\plugins\scala-continuations-library_2.11\1.0.2\scala-continuations-library_2.11-1.0.2.jar;" & gamedir & "\libraries\org\scala-lang\plugins\scala-continuations-plugin_2.11.1\1.0.2\scala-continuations-plugin_2.11.1-1.0.2.jar;" & gamedir & "\libraries\org\scala-lang\scala-library\2.11.1\scala-library-2.11.1.jar;" & gamedir & "\libraries\org\scala-lang\scala-parser-combinators_2.11\1.0.1\scala-parser-combinators_2.11-1.0.1.jar;" & gamedir & "\libraries\org\scala-lang\scala-reflect\2.11.1\scala-reflect-2.11.1.jar;" & gamedir & "\libraries\org\scala-lang\scala-swing_2.11\1.0.1\scala-swing_2.11-1.0.1.jar;" & gamedir & "\libraries\org\scala-lang\scala-xml_2.11\1.0.2\scala-xml_2.11-1.0.2.jar;" & gamedir & "\libraries\net\sf\jopt-simple\jopt-simple\4.5\jopt-simple-4.5.jar;" & gamedir & "\libraries\lzma\lzma\0.0.1\lzma-0.0.1.jar;" & gamedir & "\libraries\com\mojang\realms\1.3.5\realms-1.3.5.jar;" & gamedir & "\libraries\org\apache\commons\commons-compress\1.8.1\commons-compress-1.8.1.jar;" & gamedir & "\libraries\org\apache\httpcomponents\httpclient\4.3.3\httpclient-4.3.3.jar;" & gamedir & "\libraries\commons-logging\commons-logging\1.1.3\commons-logging-1.1.3.jar;" & gamedir & "\libraries\org\apache\httpcomponents\httpcore\4.3.2\httpcore-4.3.2.jar;" & gamedir & "\libraries\java3d\vecmath\1.3.1\vecmath-1.3.1.jar;" & gamedir & "\libraries\net\sf\trove4j\trove4j\3.0.3\trove4j-3.0.3.jar;" & gamedir & "\libraries\com\ibm\icu\icu4j-core-mojang\51.2\icu4j-core-mojang-51.2.jar;" & gamedir & "\libraries\com\paulscode\codecjorbis\20101023\codecjorbis-20101023.jar;" & gamedir & "\libraries\com\paulscode\codecwav\20101023\codecwav-20101023.jar;" & gamedir & "\libraries\com\paulscode\libraryjavasound\20101123\libraryjavasound-20101123.jar;" & gamedir & "\libraries\com\paulscode\librarylwjglopenal\20100824\librarylwjglopenal-20100824.jar;" & gamedir & "\libraries\com\paulscode\soundsystem\20120107\soundsystem-20120107.jar;" & gamedir & "\libraries\io\netty\netty-all\4.0.10.Final\netty-all-4.0.10.Final.jar;" & gamedir & "\libraries\com\google\guava\guava\16.0\guava-16.0.jar;" & gamedir & "\libraries\org\apache\commons\commons-lang3\3.2.1\commons-lang3-3.2.1.jar;" & gamedir & "\libraries\commons-io\commons-io\2.4\commons-io-2.4.jar;" & gamedir & "\libraries\commons-codec\commons-codec\1.9\commons-codec-1.9.jar;" & gamedir & "\libraries\net\java\jinput\jinput\2.0.5\jinput-2.0.5.jar;" & gamedir & "\libraries\net\java\jutils\jutils\1.0.0\jutils-1.0.0.jar;" & gamedir & "\libraries\com\google\code\gson\gson\2.2.4\gson-2.2.4.jar;" & gamedir & "\libraries\com\mojang\authlib\1.5.16\authlib-1.5.16.jar;" & gamedir & "\libraries\org\apache\logging\log4j\log4j-api\2.0-beta9\log4j-api-2.0-beta9.jar;" & gamedir & "\libraries\org\apache\logging\log4j\log4j-core\2.0-beta9\log4j-core-2.0-beta9.jar;" & gamedir & "\libraries\org\lwjgl\lwjgl\lwjgl\2.9.1\lwjgl-2.9.1.jar;" & gamedir & "\libraries\org\lwjgl\lwjgl\lwjgl_util\2.9.1\lwjgl_util-2.9.1.jar;" & gamedir & "\libraries\tv\twitch\twitch\5.16\twitch-5.16.jar;" & jarver & " " & mainclass & _
            " --username " & PlayerName & _
            " --version " & version & _
            " --gameDir " & G & gamedir & G & _
            " --assetsDir " & G & assets & G & _
            " --assetsIndex " & version & _
            " --uuid " & UUID & _
            " --accessToken " & UserToken & _
            " --userProperties " & userproperties & _
            " --userType " & usertype & _
            " --tweakClass " & tweakclass

        ' Débogage
        'IO.File.WriteAllText("start__.bat", exe & " " & params & vbNewLine & "pause")
        'Process.Start("notepad++", "start__.bat")

        Try
            Process.Start(exe, params)
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

    Private Function Authenticate(ByVal PlayerName As String, ByVal PlayerPassword As String) As String()

        ' Variables
        Dim RequestResult As String = ""
        Dim RequestHeader As String = "{""agent"": {""name"": ""Minecraft"",""version"": 1},""username"": """ & PlayerName & """,""password"": """ & PlayerPassword & """}"
        Dim UserToken As String = ""
        Dim UUID As String = ""
        Dim AuthServer As String = "https://authserver.mojang.com/authenticate"

        ' Requête d'authentification
        Dim AuthRequest As WebRequest
        AuthRequest = WebRequest.Create(AuthServer)
        Dim RequestResponse As WebResponse
        Dim PostData As String = RequestHeader
        Dim data As Byte() = Encoding.UTF8.GetBytes(PostData)

        AuthRequest.Method = "POST"
        AuthRequest.ContentType = "application/json"
        AuthRequest.ContentLength = data.Length

        Dim RequestStream As Stream = AuthRequest.GetRequestStream()
        Try
            RequestStream.Write(data, 0, data.Length)
            RequestStream.Close()
        Catch
            ' TODO log
        End Try

        Try
            RequestResponse = AuthRequest.GetResponse()
            Dim ResponseReader As New StreamReader(RequestResponse.GetResponseStream())
            RequestResult = (ResponseReader.ReadToEnd)
            MsgBox(RequestResult)

            Dim ResponseArray As String() = RequestResult.Split(New Char() {":"c})

            UserToken = ResponseArray(1).ToString.Split(New Char() {","c})(0).Replace("""", "")
            UUID = ResponseArray(4).ToString.Split(New Char() {","c})(0).Replace("""", "")

            Return {PlayerName, PlayerPassword, UserToken, UUID}

        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

        Return {"Erreur inconnue."}

    End Function

End Class