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

[Problem]Luncher minecraft niedziala jak nalezy


NewEgypt

Rekomendowane odpowiedzi

Opublikowano

Witam próbuje zrobić własny luncher minecraft aby działało Non Premium logowanie, Premium logowanie i Auto update. Tylko jest mały problem z kilkoma z tych rzeczy ponieważ auto update nie działa tak jak należny i logowania premium nie umiał bym zrobić a to co zrobiłem w auto updaterze:

Prosił bym kogoś kto by mógł to zmienić aby działało. Z góry dziękuję

 

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
PobieranieAktualizacji()
End Sub
Public Sub PobieranieAktualizacji()
Dim minecraft As String = System.IO.Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData), "Nazwa")
Dim update As String = System.IO.Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData), "Nazwa/update.txt")
Dim klient As New Net.WebClient
Dim Wersja As String = My.Computer.FileSystem.ReadAllText(update)
Dim Version As String
Dim fileReader As String
fileReader = My.Computer.FileSystem.ReadAllText(update)
Version = klient.DownloadString("Link do notepada z wersja")
Dim Wc As New WebClient
If Version > Wersja Then
MessageBox.Show("Aktualizowanie plików serwera. Luncher uruchomi się po pobraniu.", "updater")
My.Computer.FileSystem.DeleteFile(update)
My.Computer.Network.DownloadFile("Link do notepada z wersja", update)
My.Computer.FileSystem.DeleteFile(minecraft)
Wc.DownloadFileAsync(New Uri("Link do paczki minecraft"), minecraft)
Else
MessageBox.Show("Wszystkie pliki są aktulane!", "updater")
End If
End Sub

 

I to moje logowanie non premium chciał bym aby było jeszcze logowanie premium..


 

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
uruchom = "javaw -Xmx1024m -Djava.library.path=%APPDATA%/SkallCraft/bin/natives -cp %APPDATA%/Nazwa/bin/minecraft.jar;%APPDATA%/Nazwa/bin/jinput.jar;%APPDATA%/Nazwa/bin/lwjgl.jar;%APPDATA%/Nazwa/bin/lwjgl_util.jar net.minecraft.client.Minecraft "
Shell("cmd.exe /c" & uruchom & TextBox1.Text)
End Sub

 

Opublikowano

To jest pod 1.6.x czy 1.5.2? Jeśli nowsza wersja to nie pójdzie ci to. Polecam napisać temat w Dziale z Visual Basic tam pewnie lepiej się orientują .

Toć w kodzie, który dał wyraźnie napisane jest:

 

uruchom = "javaw -Xmx1024m
-Djava.library.path=%APPDATA%/SkallCraft/bin/natives -cp
%APPDATA%/Nazwa/bin/minecraft.jar;%APPDATA%/Nazwa/bin/jinput.jar;%APPDATA%/Nazwa/bin/lwjgl.jar;%APPDATA%/Nazwa/bin/lwjgl_util.jar

Z tego co wiem to w +.1.6 nie ma już folderu bin -_-

Zarchiwizowany

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

×
×
  • Dodaj nową pozycję...