API tools faq
paste
Advertisement
Guest User

aaa

a guest
Feb 24th, 2015
289
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
VB.NET 12.44 KB | None | 0 0
raw download clone embed print report
  1. Imports System.IO
  2. Imports System.Text
  3. Imports System.Net
  4.  
  5. Public Class LifeForWar
  6.  
  7.  
  8.     Private Sub Connect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Connect.Click
  9.  
  10.         Dim PlayerName As String = TextBox_pseudo.Text
  11.         Dim PlayerMdp As String = TextBox_mdp.Text
  12.  
  13.         ConnectServ(PlayerName, PlayerMdp)
  14.  
  15.  
  16.     End Sub
  17.  
  18.     Private Sub ErrorMessage()
  19.         Dim ErrorMess As String = "Une erreur est survenue lors de l'entrée de vos identifiants !"
  20.         MsgBox(ErrorMess)
  21.     End Sub
  22.  
  23.     Private Sub ErrorMessageAuth()
  24.         Dim ErrorMessAuth As String = "Une erreur est survenue lors de l'authentification !"
  25.         MsgBox(ErrorMessAuth)
  26.     End Sub
  27.  
  28.     Private Function Authenticate(ByVal PlayerName As String, ByVal PlayerPassword As String) As String()
  29.  
  30.         ' Variables
  31.         Dim RequestResult As String = ""
  32.         Dim RequestHeader As String = "{""agent"": {""name"": ""Minecraft"",""version"": 1},""username"": """ & PlayerName & """,""password"": """ & PlayerPassword & """}"
  33.         Dim UserToken As String = ""
  34.         Dim UUID As String = ""
  35.         Dim AuthServer As String = "https://authserver.mojang.com/authenticate"
  36.  
  37.         ' Requête d'authentification
  38.         Dim AuthRequest As WebRequest
  39.         AuthRequest = WebRequest.Create(AuthServer)
  40.         Dim RequestResponse As WebResponse
  41.         Dim PostData As String = RequestHeader
  42.         Dim data As Byte() = Encoding.UTF8.GetBytes(PostData)
  43.  
  44.         AuthRequest.Method = "POST"
  45.         AuthRequest.ContentType = "application/json"
  46.         AuthRequest.ContentLength = data.Length
  47.  
  48.         Dim RequestStream As Stream = AuthRequest.GetRequestStream()
  49.         Try
  50.             RequestStream.Write(data, 0, data.Length)
  51.             RequestStream.Close()
  52.         Catch
  53.             ' TODO log
  54.         End Try
  55.  
  56.         Try
  57.             RequestResponse = AuthRequest.GetResponse()
  58.             Dim ResponseReader As New StreamReader(RequestResponse.GetResponseStream())
  59.             RequestResult = (ResponseReader.ReadToEnd)
  60.             MsgBox(RequestResult)
  61.  
  62.             Dim ResponseArray As String() = RequestResult.Split(New Char() {":"c})
  63.  
  64.             UserToken = ResponseArray(1).ToString.Split(New Char() {","c})(0).Replace("""", "")
  65.             UUID = ResponseArray(4).ToString.Split(New Char() {","c})(0).Replace("""", "")
  66.  
  67.             Return {PlayerName, PlayerPassword, UserToken, UUID}
  68.  
  69.         Catch ex As Exception
  70.             MsgBox(ex.Message)
  71.         End Try
  72.  
  73.         Return {"Erreur inconnue."}
  74.  
  75.     End Function
  76.  
  77.     Private Sub ConnectServ(ByVal PlayerName As String, ByVal PlayerPassword As String)
  78.  
  79.         ' Authentification
  80.         Dim UserCredentials As String() = Authenticate(PlayerName, PlayerPassword)
  81.         If (UserCredentials.Length = 4) Then
  82.             Dim UserToken As String = UserCredentials(2)
  83.             Dim UUID As String = UserCredentials(3)
  84.  
  85.             ' Lancement
  86.             Dim G As String = """"
  87.             Dim gamedir As String = "%APPDATA%" & "\.lifeforwar"
  88.             Dim natives As String = gamedir & "\natives"
  89.             Dim libraries As String = gamedir & "\libraries"
  90.             Dim assets As String = gamedir & "\assets"
  91.             Dim version As String = "1.7.10"
  92.             Dim jarver As String = gamedir & "\versions\lfw\lfw-1.7.10.jar" & G
  93.             Dim mainclass As String = "net.minecraft.launchwrapper.Launch"
  94.             Dim userproperties As String = "{}"
  95.             Dim usertype As String = "mojang"
  96.             Dim tweakclass As String = "cpw.mods.fml.common.launcher.FMLTweaker"
  97.  
  98.             Dim exe As String = "java" '"""C:\Program Files\Java\jre7\bin\java.exe"""
  99.             Dim libs As String = ""
  100.             For Each file In IO.Directory.GetFiles(libraries, "*.jar", IO.SearchOption.AllDirectories)
  101.                 libs &= """" & file & """;"
  102.             Next
  103.  
  104.             '" -cp " & G & libs & jarver & G & " " & mainclass & _
  105.             '" -cp """ & 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;" & _
  106.             'jarver & """ " & mainclass & _
  107.             Dim params As String = _
  108.                 "-Djava.library.path=" & G & natives & G & _
  109.                 " -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 & _
  110.                 " --username " & PlayerName & _
  111.                 " --version " & version & _
  112.                 " --gameDir " & G & gamedir & G & _
  113.                 " --assetsDir " & G & assets & G & _
  114.                 " --assetsIndex " & version & _
  115.                 " --uuid " & UUID & _
  116.                 " --accessToken " & UserToken & _
  117.                 " --userProperties " & userproperties & _
  118.                 " --userType " & usertype & _
  119.                 " --tweakClass " & tweakclass
  120.  
  121.             ' Débogage
  122.             'IO.File.WriteAllText("start__.bat", exe & " " & params & vbNewLine & "pause")
  123.             'Process.Start("notepad++", "start__.bat")
  124.  
  125.             Try
  126.                 Process.Start(exe, params)
  127.             Catch ex As Exception
  128.                 MsgBox(ex.Message)
  129.             End Try
  130.         ElseIf (UserCredentials.Length = 1) Then
  131.             ErrorMessageAuth()
  132.  
  133.         End If
  134.         ErrorMessage()
  135.  
  136.  
  137.     End Sub
  138.  
  139.     Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
  140.  
  141.     End Sub
  142.  
  143. End Class
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!