[PYTANIE] AutoUpdater Minecraft

[WellyPL]

Witam... Mam taki oto kod:

 

 

 

Public Class Form1

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

Dim launch As String

launch = "start javaw -Xmx" & TextBox2.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 "

Shell("cmd.exe /c" & launch & TextBox1.Text)

Me.Close()

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

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

If My.Computer.FileSystem.FileExists(minkraft) Then

My.Computer.FileSystem.DeleteFile(minkraft)

My.Computer.Network.DownloadFile("http://s3.amazonaws.com/MinecraftDownload/minecraft.jar", minkraft)

Else

My.Computer.Network.DownloadFile("http://s3.amazonaws.com/MinecraftDownload/minecraft.jar", minkraft)

End If

End Sub

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

End Sub

Private Sub Button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

End Sub

Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged

End Sub

Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

MsgBox("Tu kiedyś będą DODATKI :D")

End Sub

End Class

TAM GDZIE POGRUBIONE TAM AUTOUPDATER!

I prosiłbym o przerobienie tego kodu tak, żeby był ProgressBar1 z procentami pobierania... Nie mogę tego za Chiny Ludowe ogarnąć :X

[Gość]

Nie prosimy o gotowce.