Skocz do zawartości
  • 👋 Witaj na MPCForum!

    Przeglądasz forum jako gość, co oznacza, że wiele świetnych funkcji jest jeszcze przed Tobą! 😎

    • Pełny dostęp do działów i ukrytych treści
    • Możliwość pisania i odpowiadania w tematach
    • System prywatnych wiadomości
    • Zbieranie reputacji i rozwijanie swojego profilu
    • Członkostwo w jednej z największych społeczności graczy

    👉 Dołączenie zajmie Ci mniej niż minutę – a zyskasz znacznie więcej!

    Zarejestruj się teraz

Logowanie do minecraft premium


Rekomendowane odpowiedzi

Opublikowano

Mam taki kod ale nie działa :(

Co w nim jest nie tak?

Imports System.Net
Imports System.Text
Public Class Form8
Public Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
End Sub
Public Sub MaskedTextBox1_MaskInputRejected(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MaskInputRejectedEventArgs) Handles MaskedTextBox1.MaskInputRejected
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
         odpalMC(login:=TextBox1.Text, haslo:=MaskedTextBox1.Text)
End Sub

Public Sub odpalMC(ByVal login As String, ByVal haslo As String, Optional ByVal minimumRam As Integer = 512, Optional ByVal maksRam As Integer = 3200, Optional ByVal wersja As Integer = 147)
         Dim sciezka As String = Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\"
         If Not System.IO.File.Exists(String.Format("{0}.minecraft/bin/minecraft.jar", sciezka)) Then
                 Return
         End If
         Dim psi As New System.Diagnostics.ProcessStartInfo("java")
         psi.WindowStyle = System.Diagnostics.ProcessWindowStyle.Normal
         Dim response As String = pobierzDane(login, haslo, wersja)
         'pobieramy dane w formacie ?:deprecated:login:sesja (jeżeli wersja jest starsza niż aktualna (147) będzie posiadała - na początku):?
         If response.Contains("Bad") Then
                 MsgBox("Problem z zalogowaniem")
                 Return
         End If
         psi.Arguments = String.Format("-Xmx1000M -Djava.library.path=%APPDATA%/.minecraft/bin/natives -cp %APPDATA%/.minecraft/bin/minecraft.jar;%APPDATA%/.minecraft/bin/jinput.jar;%APPDATA%/.minecraft/bin/lwjgl.jar;%APPDATA%/.minecraft/bin/lwjgl_util.jar net.minecraft.client.Minecraft", login, response.Split(":"c)(3))
         'launch = "start javaw -Xmx" & TextBox1.Text & "m -Djava.library.path=%APPDATA%/.minecraft/bin/natives -cp %APPDATA%/.minecraft/bin/minecraft.jar;%APPDATA%/.minecraft/bin/jinput.jar;%APPDATA%/.minecraft/bin/lwjgl.jar;%APPDATA%/.minecraft/bin/lwjgl_util.jar net.minecraft.client.Minecraft "
         System.Diagnostics.Process.Start(psi)
End Sub
Public Function pobierzDane(ByVal login As String, ByVal haslo As String, ByVal wersja As Integer) As String
         Return New System.IO.StreamReader(System.Net.HttpWebRequest.Create(String.Format("https://login.minecraft.net?user={0}&password={1}&version={2}", login, haslo, wersja)).GetResponse().GetResponseStream()).ReadToEnd()
End Function

End Class

Zarchiwizowany

Ten temat przebywa obecnie w archiwum. Dodawanie nowych odpowiedzi zostało zablokowane.

×
×
  • Dodaj nową pozycję...