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

Kody do mimecraft premium


Rekomendowane odpowiedzi

Opublikowano

Poszukuję działających kodów do logowania do minecraft premium.

Narazie mam:

 

Imports System.Net
Imports System.Text
Public Class Form1
    Private Sub InitializeMyControl()
        TextBox1.PasswordChar = "*"
        TextBox1.MaxLength = 14
    End Sub
    Public Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
    End Sub
    Public Sub MaskedTextBox1_MaskInputRejected(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MaskInputRejectedEventArgs)
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        odpalMC(login:=TextBox1.Text, haslo:=TextBox2.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)
        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 -Xmx1024m -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://minecraft.net/login?user={0}&password={1}&version={2}", login, haslo, wersja)).GetResponse().GetResponseStream()).ReadToEnd()
    End Function
End Class
Opublikowano

Co masz na myśli działających kodów? Czy ty aby nie liczysz że ktoś ci tu da nieaktywowany kod?. 

Opublikowano

Możesz użyć IF na przycisku. IF zalogowałeś się then start process ("gra") else msgbox("zły login/haslo"). Tylko zostaje pytanie jak sprawdzisz czy się logowanie udało.

Zarchiwizowany

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

×
×
  • Dodaj nową pozycję...