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

[PYTANIE] Logowanie premium

WellyPL

Rekomendowane odpowiedzi

WellyPL Odkrywca

WellyPL

Opublikowano
Odkrywca

WellyPL

Opublikowano

Witam ponownie :D Tym razem nie proszę o gotowca...

Mam oto taki kod przed oczami :P

 

 

 

 

Public Class Form1
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Dim launch As String
launch = "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 "
Shell("cmd.exe /c" & launch & TextBox1.Text)
Close()
End Sub
Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click
Imports System.Net
Imports System.Text
Me(Me)
End Sub
Public Sub TextBox_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) Handles Maskowany.MaskInputRejected
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
odpalMC(login:=TextBox.Text, haslo:=Maskowany.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 = 1024, Optional ByVal wersja As Integer = 147)
Dim sciezka As String = Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\"
'ścieżka do appdata
If Not System.IO.File.Exists(String.Format("{0}.minecraft/bin/minecraft.jar", sciezka)) Then
'jeżeli minecraft nie znajduje się na dysku...
Return
End If
'wychodzimy z funkcji
Dim psi As New System.Diagnostics.ProcessStartInfo("java")
psi.WindowStyle = System.Diagnostics.ProcessWindowStyle.Normal
'ukrywamy konsolę od mc
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
'jeżeli nie istnieje konto o z podanym loginem i hasłem uzyskamy "Bad login"
MsgBox("Problem z zalogowaniem")
Return
End If
'opuszczamy funkcję
psi.Arguments = String.Format("-Xms{0}M -Xmx{1}M -Djava.library.path={2}.minecraft/bin/natives -cp {2}.minecraft/bin/minecraft.jar;{2}.minecraft/bin/jinput.jar;{2}.minecraft/bin/lwjgl.jar;{2}.minecraft/bin/lwjgl_util.jar net.minecraft.client.Minecraft {3} {4}", minimumRam, maksRam, sciezka, 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 "
'argumenty dla javy
System.Diagnostics.Process.Start(psi)
'Custom start
'Shell("start javaw -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))
'uruchamiamy MC
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

 

I mam 2x Syntax error w pogrubionym na początku i 1x Expression is not a method w pochylonym ;3
Chciałbym, aby ktoś przerobił tylko te 3 linijkii kodu, żeby nie było błędów 8S 8S 8S
Błagam, pomóżcie :D
@EDIT
z linijką:

Me(Me)

Już sobie poradziłem ;p Teraz tylko te Syntaxy ;x

 

 

 

Public Class Form1
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Dim launch As String
launch = "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 "
Shell("cmd.exe /c" & launch & TextBox1.Text)
Close()
End Sub
Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click
Imports System.Net
Imports System.Text
Launcher(Me)
End Sub
Public Sub TextBox_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) Handles Maskowany.MaskInputRejected
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
odpalMC(login:=TextBox.Text, haslo:=Maskowany.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 = 1024, Optional ByVal wersja As Integer = 147)
Dim sciezka As String = Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\"
'ścieżka do appdata
If Not System.IO.File.Exists(String.Format("{0}.minecraft/bin/minecraft.jar", sciezka)) Then
'jeżeli minecraft nie znajduje się na dysku...
Return
End If
'wychodzimy z funkcji
Dim psi As New System.Diagnostics.ProcessStartInfo("java")
psi.WindowStyle = System.Diagnostics.ProcessWindowStyle.Normal
'ukrywamy konsolę od mc
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
'jeżeli nie istnieje konto o z podanym loginem i hasłem uzyskamy "Bad login"
MsgBox("Problem z zalogowaniem")
Return
End If
'opuszczamy funkcję
psi.Arguments = String.Format("-Xms{0}M -Xmx{1}M -Djava.library.path={2}.minecraft/bin/natives -cp {2}.minecraft/bin/minecraft.jar;{2}.minecraft/bin/jinput.jar;{2}.minecraft/bin/lwjgl.jar;{2}.minecraft/bin/lwjgl_util.jar net.minecraft.client.Minecraft {3} {4}", minimumRam, maksRam, sciezka, 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 "
'argumenty dla javy
System.Diagnostics.Process.Start(psi)
'Custom start
'Shell("start javaw -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))
'uruchamiamy MC
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

694101439111178842252.png

WellyPL Odkrywca

WellyPL

Opublikowano
Odkrywca

WellyPL

  • Autor
Opublikowano

Problem ROZWIĄZANY!

P.S.

"Imports [...]" ZAWSZE DAWAJCIE NA POCZĄTKU!!! 2X KLIK W OKIENKO I WKLEJAJCIE IMPROTSY!

694101439111178842252.png

  • 4 tygodnie później...

Zarchiwizowany

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

Tematy
×
×
  • Dodaj nową pozycję...