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] Jak zrobić launcher serwerowy?


Rekomendowane odpowiedzi

Opublikowano

Cześć.
Mam do was pytanie,zależy mi na bardzo na szybkiej odpowiedzi.

Generalnie mam stworzony własny launcher do serwera MC-tylko problem tkwi w tym,że kiedy klikam "graj" to MC sam się wyłącza :/ Launcher był robiony w Virtual basic studio 2010.

Zamieszczam kod źródłowy Launchera:

Imports System.Net
Public Class Form1
Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
SprawdzUpdate()
End Sub
Public Sub SprawdzUpdate()
Dim jar As String = System.IO.Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData), ".minecraft/bin/minecraft.jar")
Dim kaktus As String = System.IO.Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData), ".minecraft/update.txt")
Dim Klient As New Net.WebClient
Dim Wersja As String = My.Computer.FileSystem.ReadAllText(kaktus)
Dim Version As String
Dim fileReader As String
fileReader = My.Computer.FileSystem.ReadAllText(kaktus)
Version = Klient.DownloadString("http://www.naszastrona.pl/launcher/update.txt")
If Version > Wersja Then
MessageBox.Show("Nowa wersja jest dostępna i wlasnie jest pobierana. Launcher uruchomi sie po pobraniu.", "AutoUpdater")
My.Computer.FileSystem.DeleteFile(jar)
My.Computer.Network.DownloadFile("http://naszastrona.pl/launcher/minecraft.jar", jar)
My.Computer.FileSystem.DeleteFile(kaktus)
My.Computer.Network.DownloadFile("http://naszastrona.pl/launcher/update.txt", kaktus)
Else
MessageBox.Show("Brak nowej wersji do pobrania. Launcher i pliki sa aktualne", "AutoUpdater")
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim uruchom As String
uruchom = "javaw -Xmx1024m -Djava.library.path=%APPDATA%/roaming/.minecraft/bin/natives -cp %APPDATA%/roaming/.minecraft/versions/1.6.4/1.6.4.jar;%APPDATA%/roaming/.minecraft/bin/jinput.jar;%APPDATA%/roaming/.minecraft/bin/lwjgl.jar;%APPDATA%/roaming/.minecraft/bin/lwjgl_util.jar net.minecraft.client.Minecraft "
Shell("cmd.exe /c" & uruchom & TextBox1.Text)
Me.Close()
End Sub
Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub PictureBox2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
End Class
Gdzie tkwi błąd?Proszę was bardzo o pomoc ;x
Opublikowano

Na jaką wersje chcesz zrobić ten launcher?

 uruchom = "javaw -Xmx1024m -Djava.library.path=%APPDATA%/roaming/.minecraft/bin/natives -cp %APPDATA%/roaming/.minecraft/versions/1.6.4/1.6.4.jar;%APPDATA%/roaming/.minecraft/bin/jinput.jar;%APPDATA%/roaming/.minecraft/bin/lwjgl.jar;%APPDATA%/roaming/.minecraft/bin/lwjgl_util.jar net.minecraft.client.Minecraft "

Ten kod to eeeeeee.. jest dziwny^^ to jest kod na minecraft 1.5.2 (do mc 1.5.2) a ty wplotłeś tam wersje 1.6.4. musisz albo napisać albo znaleźć kod który uruchamia 1.6.4.

Opublikowano

@up zrób tak jak kolega mówi albo jest jeszcze jedno wyjście że pomiędzy jakimiś wersami jest za mało lub za dużo linijek

Zarchiwizowany

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

×
×
  • Dodaj nową pozycję...