API tools faq
paste
Guest User

Untitled

a guest
May 7th, 2017
233
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 15.65 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 Form1
  6.  
  7. Public ifFileExist As Boolean
  8. Public Property RemplirChamps As Object
  9. Public Property ErrorAuthMessage As Object
  10.  
  11. Private Sub Connect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  12.  
  13.  
  14.  
  15.  
  16. ' Se souvenir de moi
  17. If (ifFileExist = False) Then
  18. If (CheckBox1.Checked = True) Then
  19. Dim log As New System.IO.StreamWriter("log.txt")
  20. log.WriteLine(TextBox1.Text)
  21. log.WriteLine(TextBox2.Text)
  22. log.Close()
  23. End If
  24. ElseIf (ifFileExist = True) Then
  25. If (CheckBox1.Checked = False) Then
  26. Kill("log.txt")
  27. End If
  28. End If
  29.  
  30.  
  31.  
  32. Dim PlayerName As String = TextBox1.Text
  33. Dim PlayerMdp As String = TextBox2.Text
  34. If (TextBox1.Text <> "" And TextBox2.Text <> "") Then
  35. ConnectServ(PlayerName, PlayerMdp)
  36. Else
  37. RemplirChamps.Visible = True
  38.  
  39. End If
  40.  
  41. End Sub
  42.  
  43. Private Sub ErrorMessage()
  44. Dim ErrorMess As String = "Une erreur est survenue lors de la lecture de vos identifiants! Veuillez réessayez en complétant tous les champs !"
  45. MsgBox(ErrorMess)
  46. End Sub
  47.  
  48. Private Sub ErrorMessageAuth()
  49. Dim ErrorMessAuth As String = "Une erreur est survenue lors de l'authentification ! Mot de passe ou nom de compte incorrect !"
  50. MsgBox(ErrorMessAuth)
  51. End Sub
  52.  
  53. Private Function Authenticate(ByVal PlayerName As String, ByVal PlayerPassword As String) As String()
  54.  
  55. ' Variables
  56. Dim RequestResult As String = ""
  57. Dim RequestHeader As String = "{""agent"": {""name"": ""Minecraft"",""version"": 1},""username"": """ & PlayerName & """,""password"": """ & PlayerPassword & """}"
  58. Dim UserToken As String = ""
  59. Dim UUID As String = ""
  60. Dim AuthServer As String = "https://authserver.mojang.com/authenticate"
  61.  
  62. ' Requête d'authentification
  63. Dim AuthRequest As WebRequest
  64. AuthRequest = WebRequest.Create(AuthServer)
  65. Dim RequestResponse As WebResponse
  66. Dim PostData As String = RequestHeader
  67. Dim data As Byte() = Encoding.UTF8.GetBytes(PostData)
  68.  
  69. AuthRequest.Method = "POST"
  70. AuthRequest.ContentType = "application/json"
  71. AuthRequest.ContentLength = data.Length
  72.  
  73. Dim RequestStream As Stream = AuthRequest.GetRequestStream()
  74. Try
  75. RequestStream.Write(data, 0, data.Length)
  76. RequestStream.Close()
  77. Catch
  78. ' TODO log
  79. End Try
  80.  
  81. Try
  82. RequestResponse = AuthRequest.GetResponse()
  83. Dim ResponseReader As New StreamReader(RequestResponse.GetResponseStream())
  84. RequestResult = (ResponseReader.ReadToEnd)
  85. 'MsgBox(RequestResult) 'ICI, CA RENVOIE LES TOKEN, UUID, ETC...SI ON FAIT AVEC EMAIL
  86.  
  87.  
  88. Dim ResponseArray As String() = RequestResult.Split(New Char() {":"c})
  89.  
  90. UserToken = ResponseArray(1).ToString.Split(New Char() {","c})(0).Replace("""", "")
  91. UUID = ResponseArray(4).ToString.Split(New Char() {","c})(0).Replace("""", "")
  92.  
  93. Return {PlayerName, PlayerPassword, UserToken, UUID}
  94.  
  95. Catch ConnexionFailed As WebException
  96. ''Log.Debug("Une erreur est survenue lors de la requête d'identification.")
  97. Dim ResponseReader As New StreamReader(ConnexionFailed.Response.GetResponseStream())
  98. RequestResult = (ResponseReader.ReadToEnd)
  99.  
  100. Dim ErrorType As String = RequestResult.Split(":")(1).Split(",")(0).Replace("""", "")
  101. Dim ErrorMessage As String = RequestResult.Split(":")(2).Replace("}", Nothing).Replace("""", "")
  102. Catch ex As Exception
  103. MsgBox(ex.Message)
  104.  
  105. End Try
  106.  
  107. Return {"Erreur inconnue."}
  108.  
  109. End Function
  110.  
  111. Private Sub ConnectServ(ByVal PlayerName As String, ByVal PlayerPassword As String)
  112.  
  113.  
  114.  
  115. ' Authentification
  116. Dim UserCredentials As String() = Authenticate(PlayerName, PlayerPassword)
  117. If (UserCredentials.Length >= 4) Then
  118. Dim UserToken As String = UserCredentials(2)
  119. Dim UUID As String = UserCredentials(3)
  120.  
  121.  
  122. ' Lancement
  123. Dim G As String = """"
  124. Dim gamedir As String = "%appdata%" & "\.arares"
  125. Dim natives As String = gamedir & "\natives"
  126. Dim libraries As String = gamedir & "\libraries"
  127. Dim assets As String = gamedir & "\assets"
  128. Dim version As String = "1.7.10"
  129. Dim jarver As String = gamedir & "\versions\lfw\lfw-1.7.10.jar" & G
  130. Dim mainclass As String = "net.minecraft.launchwrapper.Launch"
  131. Dim userproperties As String = "{}"
  132. Dim usertype As String = "mojang"
  133. Dim tweakclass As String = "cpw.mods.fml.common.launcher.FMLTweaker"
  134.  
  135. Dim exe As String = "java" '"""C:\Program Files\Java\jre7\bin\java.exe"""
  136. Dim libs As String = ""
  137. ' For Each file In IO.Directory.GetFiles(libraries, "*.jar", IO.SearchOption.AllDirectories)
  138. ' libs &= """" & File & """;"
  139. ' Next
  140.  
  141. '" -cp " & G & libs & jarver & G & " " & mainclass & _
  142. '" -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;" & _
  143. 'jarver & """ " & mainclass & _
  144. Dim params As String =
  145. "-Djava.library.path=" & G & natives & G &
  146. " -cp " & G & gamedir & "\libraries\net\minecraftforge\forge\1.7.10-10.13.4.1558-1.7.10\forge-1.7.10-10.13.4.1558-1.7.10.jar;" & gamedir & "\libraries\net\minecraft\launchwrapper\1.11\launchwrapper-1.7.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 &
  147. " --username " & PlayerName &
  148. " --version " & version &
  149. " --gameDir " & G & gamedir & G &
  150. " --assetsDir " & G & assets & G &
  151. " --assetIndex " & version &
  152. " --uuid " & UUID &
  153. " --accessToken " & UserToken &
  154. " --userProperties " & userproperties &
  155. " --userType " & usertype &
  156. " --tweakClass " & tweakclass
  157.  
  158. ' Débogage ("start__.bat", exe & " " & params & vbNewLine & "pause")
  159. IO.File.WriteAllText("start__.bat", exe & " " & params & vbNewLine & "pause")
  160. Process.Start("notepad", "start__.bat")
  161.  
  162.  
  163. Try
  164. Process.Start(exe, params)
  165. Catch ex As Exception
  166. MsgBox(ex.Message)
  167. End Try
  168.  
  169. ElseIf (UserCredentials.Length = 1) Then
  170.  
  171. ElseIf (UserCredentials.Length = 0) Then
  172. ErrorMessage()
  173. End If
  174.  
  175.  
  176.  
  177. End Sub
  178.  
  179. Private Sub Form1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  180. If (File.Exists("log.txt") = True) Then
  181. CheckBox1.Checked = True
  182. Dim logRead As New StreamReader("log.txt")
  183. TextBox1.Text = logRead.ReadLine
  184. TextBox2.Text = logRead.ReadLine
  185. ' PictureBox1.Image = New System.Drawing.Bitmap(New IO.MemoryStream(New System.Net.WebClient().DownloadData("https://minotar.net/avatar/" & TextBox1.Text)))
  186. ifFileExist = True
  187. logRead.Close()
  188. ElseIf (File.Exists("log.txt") = False) Then
  189. ifFileExist = False
  190. CheckBox1.Checked = False
  191. End If
  192. End Sub
  193.  
  194.  
  195. Private Sub pictureBox_PlayerHead_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
  196.  
  197. End Sub
  198.  
  199. Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
  200. Form2.Show()
  201.  
  202. End Sub
  203.  
  204. Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
  205. Process.Start("https://google.fr")
  206. End Sub
  207.  
  208. Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
  209. Form3.Show()
  210. End Sub
  211.  
  212. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
  213. Dim MOTD As String = "http://arares.hol.es/motd.txt"
  214. Dim MOTDTemp As String = My.Computer.FileSystem.SpecialDirectories.Temp & "\motd.txt"
  215. My.Computer.Network.DownloadFile(MOTD, MOTDTemp, "", "", True, 2000, True)
  216. RichTextBox1.Text = System.IO.File.ReadAllText(MOTDTemp)
  217.  
  218. End Sub
  219.  
  220. Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click
  221. 'PictureBox1.Image = New System.Drawing.Bitmap(New IO.MemoryStream(New System.Net.WebClient().DownloadData("http://arares.hol.es/avatar" & )))
  222. End Sub
  223. End Class
Advertisement
Add Comment
Please, Sign In to add comment
Public Pastes
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!