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] Co w tym kodzie jest źle ?


smierdziszxd

Rekomendowane odpowiedzi

Opublikowano

Witam robie sobie launcher i nie chce sie on odpalic co w nim jest źle ?

 

 

 

Imports System.Net
Public Class Form1

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

    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://athoria.cba.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://athoria.cba.pl/launcher/minecraft.jar", jar)
            My.Computer.FileSystem.DeleteFile(kaktus)
            My.Computer.Network.DownloadFile("http://athoria.cba.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%/.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
 

 

 

Opublikowano

Ale co jest tak źle? Kiedy wyrzuca błąd, gdzie? :D

A poza tym, jaki to jest język programowania? xD

Zarchiwizowany

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

×
×
  • Dodaj nową pozycję...