[Pytanie] Minecraft Launcher!

[Ulltimatus]

Witam! Zrobiłem launcher do Minecraft mam tyko jeden problem ponieważ serwer jest na modach to szukam sposobu aby launcher pobierał z serwera cały ".minecraft" i podmieniał go, problem w tym że jak wiecie potrzebny jest link bezpośredni aby launcher wgl. go pobrał a jestem zielony z Visual Basic launcher zrobiłem na podstawie poradnika bo dopiero się uczę. Czy jest jakikolwiek sposób aby podmienić cały ".minecraft"? albo żeby ściągał pojedynczo foldery "mods", "config" itp?

[lexox]

Mógłbyś zrobić to tak:

Pobiera ci folder .minecraft tylko spakuj go w zpia.

 

Dim xxx As String = System.IO.Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData), "Gdzie ma pobrać/nazwa pliku.zip")
 

i tam niżej dodajesz:

 

My.Computer.Network.DownloadFile("link do pliku", xxx)
 

Pliki wstaw sobie na dropboxa (polecam)

a kod na rozpakowywanie znajdziesz gdzies w dziale

[Ulltimatus]

Gdzie wstawić ten kod na rozpakowanie Zip?

 

Imports System.Net

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

SprawdzUpdate()

End Sub

Public Sub SprawdzUpdate()

Dim jar As String = System.IO.Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData), ".minecraft/bin/minecraft.jar")

Dim update 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(Update)

Dim Version As String

Dim fileReader As String

fileReader = My.Computer.FileSystem.ReadAllText(Update)

Version = Klient.DownloadString("http://www.advancetech.ugu.pl/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://www.advancetech.ugu.pl/minecraft.jar", jar)

My.Computer.FileSystem.DeleteFile(update)

My.Computer.Network.DownloadFile("http://www.advancetech.ugu.pl/update.txt", Update)

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%/.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" & uruchom & TextBox1.Text)

Me.Close()

End Sub

End Class

[lexox]

Gdzie wstawić ten kod na rozpakowanie Zip?

Na końcu pobierania.

Możesz tam dać jeszcze sleepa żeby poczekało i rozpakowało na 100% dobrze

[Ulltimatus]

Znalazłem w google 2 takie do rozpakowywania i po wklejeniu każdego mam błędy a tu na forum nie ma żadnego takiego skryptu ;/

[lexox]

Znalazłem w google 2 takie do rozpakowywania i po wklejeniu każdego mam błędy a tu na forum nie ma żadnego takiego skryptu ;/

Pokaż ten kod tutaj

[Ulltimatus]

Trzymaj:

Imports System.IO
Imports System.IO.Compression

Module Module1

Sub Main()
Dim startPath As String = "c:\example\start"
Dim zipPath As String = "c:\example\result.zip"
Dim extractPath As String = "c:\example\extract"

ZipFile.CreateFromDirectory(startPath, zipPath)

ZipFile.ExtractToDirectory(zipPath, extractPath)
End Sub

End Module

[lexox]

hymmm moze ten kod ci w czyms pomoze...
Call Shell("C:\Program Files\WinRAR\winrar.exe x -o+ ""C:\Documents and Settings\uzytkownik\Desktop\test.zip"" *.* ""c:\wypakowane pliki\""", vbHide)C:\Program Files\WinRAR\winrar.exe ->Lokalizacja WinRar'a
C:\Documents and Settings\uzytkownik\Desktop\test.zip -> lokalizacja danego pliku....
c:\wypakowane pliki\ -> gdzie ma byc wypakowany plik.... 
 

Przed chwilą na tym forum znalazłem

[Ulltimatus]

 

hymmm moze ten kod ci w czyms pomoze...
Call Shell("C:\Program Files\WinRAR\winrar.exe x -o+ ""C:\Documents and Settings\uzytkownik\Desktop\test.zip"" *.* ""c:\wypakowane pliki\""", vbHide)C:\Program Files\WinRAR\winrar.exe ->Lokalizacja WinRar'a
C:\Documents and Settings\uzytkownik\Desktop\test.zip -> lokalizacja danego pliku....
c:\wypakowane pliki\ -> gdzie ma byc wypakowany plik.... 
 

Przed chwilą na tym forum znalazłem

 

W tym moim mam problem z ilością spacji przy tym:

Module Module1

a to co ty mi podałeś wgl. nie pasuje, miliony błędów...

[lexox]

W tym moim mam problem z ilością spacji przy tym:

a to co ty mi podałeś wgl. nie pasuje, miliony błędów...

Pokombinuj z modułami (module)

sa filmiki na yt i zrozumiesz

[Ulltimatus]

Jedyny problem jaki mam przy tym moim kodzie to ten:

[lexox]

Jedyny problem jaki mam przy tym moim kodzie to ten:

Dodaj moduł do całego projektu

PPM na windows application czy coś tam i potem add i potem module

[Ulltimatus]

Dodaj moduł do całego projektu

PPM na windows application czy coś tam i potem add i potem module

Dzięki podziałało nie ma już błędów, tylko jeszcze nie wiem jak to:

Imports System.IO

Imports System.IO.Compression

 

Module Module1

 

Sub Main()

Dim startPath As String = "c:\example\start"

Dim zipPath As String = "c:\example\result.zip"

Dim extractPath As String = "c:\example\extract"

 

ZipFile.CreateFromDirectory(startPath, zipPath)

 

ZipFile.ExtractToDirectory(zipPath, extractPath)

End Sub

 

End Module

Ma wyglądać bo tu potrzebuję pozmieniać te ścieżki tylko nie wiem jak żeby rozpakowało mi pliki do ".minecraft", myślę że to może wyglądać tak ale popraw mnie jeśli się mylę ;/

 

Imports System.IO

Imports System.IO.Compression

 

Module Module1

 

Sub Main()

Dim startPath As String = "c:\example\start"

Dim zipPath As String = "c:\example\result.zip"

Dim extractPath As String = "C:\Users\xXx\AppData\Roaming\.minecraft"

 

ZipFile.CreateFromDirectory(startPath, zipPath)

 

ZipFile.ExtractToDirectory(zipPath, extractPath)

End Sub

 

End Module

[Maciek2699]

nie chce mi sie czytac calego tematu, zamieszczam kod na pobieranie pliku

 

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Try

Dim wc As New WebClient

wc.DownloadFile("Link do pliku z http", _

Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\majkraft\.minecraft.jar")

MsgBox("p;obrano")

Catch ex As Exception

MsgBox(ex.Message)

End Try

End Sub

nie mam minecrafta wiec dokladnej lokalizacji gdzie to ma byc umieszczonre ci nie podam ale dostep do %appdata% juz masz tylko to po ukosniku pozmieniaj,

[Ulltimatus]

 

nie chce mi sie czytac calego tematu, zamieszczam kod na pobieranie pliku

 

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Try

Dim wc As New WebClient

wc.DownloadFile("Link do pliku z http", _

Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\majkraft\.minecraft.jar")

MsgBox("p;obrano")

Catch ex As Exception

MsgBox(ex.Message)

End Try

End Sub

nie mam minecrafta wiec dokladnej lokalizacji gdzie to ma byc umieszczonre ci nie podam ale dostep do %appdata% juz masz tylko to po ukosniku pozmieniaj,

Jakbyś miał oczy to byś widział że 2 post w tym temacie już był odpowiedzią której szukałem, a ty spamujesz tu tylko kodem z WebClienta i nie widzisz że w ostatnim moim poście jest nowy problem i zamiast pomóc mi z aktualnym problemem, to ty tylko nabijasz sobie posty myśląc że ci to przejdzie...

[XxChackerxX]

Jeżeli chcesz mogę ci dać kod do launchera w c# który pobiera tylko te pliki które się zmieniły

 

http://www.mpcforum.pl/topic/770581-dl-minecraft-launcherc/#entry5628708