[Szukam]Kod sprawdzajacy pliki i pobierajace aktualizacje z www

[HusamPL]

Witam, zaczynam dopiero zabawe w VB2010 i poszukuje kodu ktory przy wlaczeniu launchera sprawdzilby czy pliki sa aktualne z tymi na WWW a jezeli nie to kasuje te nieaktualne i pobiera aktualne pliki. Szukalem i znalazlem tylko ze pobiera mi paczke cala i wypakowuje do wyznaczonego folderu.

Jezeli jest jakis VTuT to tez by sie przydal, lub opisanie z grubsza.

 

Tutaj jest kod ktory udalo mi sie posklejac z TuT'ow:

Imports System.Net
Imports System.Net.Sockets
Imports System.Diagnostics
Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        TextBox2.Text = My.Settings.Ram
        TextBox1.Text = My.Settings.Nick
        If CheckBox1.Checked = True Then
            My.Settings.Nick = TextBox1.Text
            My.Settings.Ram = TextBox2.Text
            My.Settings.Java = TextBox3.Text
        End If
    End Sub

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

        launch = "start" & TextBox3.Text & "-Xmx" & TextBox2.Text & "m -Djava.library.path=%APPDATA%\.minecraft\versions\natives -cp %APPDATA%/.minecraft/libraries/net/sf/jopt-simple/jopt-simple/4.5/jopt-simple-4.5.jar;%APPDATA%/.minecraft/libraries/com/paulscode/codecjorbis/20101023/codecjorbis-20101023.jar;%APPDATA%/.minecraft/libraries/com/paulscode/codecwav/20101023/codecwav-20101023.jar;%APPDATA%/.minecraft/libraries/com/paulscode/libraryjavasound/20101123/libraryjavasound-20101123.jar;%APPDATA%/.minecraft/libraries/com/paulscode/librarylwjglopenal/20100824/librarylwjglopenal-20100824.jar;%APPDATA%/.minecraft/libraries/com/paulscode/soundsystem/20120107/soundsystem-20120107.jar;%APPDATA%/.minecraft/libraries/org/lwjgl/lwjgl/lwjgl/2.9.0/lwjgl-2.9.0.jar;%APPDATA%/.minecraft/libraries/org/lwjgl/lwjgl/lwjgl_util/2.9.0/lwjgl_util-2.9.0.jar;%APPDATA%/.minecraft/libraries/argo/argo/2.25_fixed/argo-2.25_fixed.jar;%APPDATA%/.minecraft/libraries/org/bouncycastle/bcprov-jdk15on/1.47/bcprov-jdk15on-1.47.jar;%APPDATA%/.minecraft/libraries/com/google/guava/guava/14.0/guava-14.0.jar;%APPDATA%/.minecraft/libraries/org/apache/commons/commons-lang3/3.1/commons-lang3-3.1.jar;%APPDATA%/.minecraft/libraries/commons-io/commons-io/2.4/commons-io-2.4.jar;%APPDATA%/.minecraft/libraries/net/java/jinput/jinput/2.0.5/jinput-2.0.5.jar;%APPDATA%/.minecraft/libraries/net/java/jutils/jutils/1.0.0/jutils-1.0.0.jar;%APPDATA%/.minecraft/libraries/com/google/code/gson/gson/2.2.2/gson-2.2.2.jar;%APPDATA%/.minecraft/versions/1.6.2/1.6.2.jar net.minecraft.client.main.Main --session SessionID --version 1.6.2 --gameDir %APPDATA%/.minecraft --assetsDir %APPDATA%/.minecraft/assets "

        Shell("cmd.exe /c" & launch & TextBox1.Text)
        Me.Close()
    End Sub
    Private Sub UpdaterAPP(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Try
            Dim File As String = Application.StartupPath & "version.txt"
            Dim MyVer As String = My.Application.Info.Version.ToString
            My.Application.Info.Version.ToString()
            If My.Computer.FileSystem.FileExists(File) Then
                My.Computer.FileSystem.DeleteFile(File)
            End If
            My.Computer.Network.DownloadFile("http://xaappx.ugu.pl/version.txt", File)
            Dim LastVer As String = My.Computer.FileSystem.ReadAllText(File)
            If Not MyVer = LastVer Then
                MsgBox("Aktualizacja Dostępna")
                My.Computer.Network.DownloadFile("http://xaappx.ugu.pl/Launcher1.x.exe", "Launcher1.x.exe")
                Rename("Launcher1.x.exe", "Launcher1.1.exe")     '<========= Zmieniamy co release.
                MsgBox("Została Pobrana Nowa Wersja Programu, nowa wersja została uruchomiona")
                Shell("Launcher1.x.exe")
            Else
                MsgBox("Posiadasz najnowszą wersję programu")
            End If
        Catch
            MsgBox("Błąd Podczas Łączenia Z Serwerem")
        End Try
    End Sub
End Class

Mam tez maly problem bo nie wiem jeszcze jak ustawic zeby launcher znajdowal jave x64. Zrobilem cos takiego, bo myslalem ze bedzie sciezke wczytywac z textbox3.text

 launch = "start" & TextBox3.Text & "-Xmx"

Znalazlem tutaj: http://www.mpcforum.pl/topic/564544-tutkilka-przydatnych-kodow-i-opisow/

			 If My.Computer.FileSystem.FileExists("Lokalizacja Pliku *1") Then
			My.Computer.FileSystem.DeleteFile("Lokalizacja Pliku *1")
			My.Computer.Network.DownloadFile("Strona z plikem najlepiej mieć własną np. darmową na cba.pl", "Lokalizacja Pliku *1 gdzie ma on być zapisany")
			'Lokalizacja Pliku *1 - musi być wszędzie taka sama!!
		Else
			My.Computer.Network.DownloadFile("Strona z plikem najlepiej mieć własną np. darmową na cba.pl", "Lokalizacja Pliku *1 gdzie ma on być zapisany")
		End If

Jezeli chce zeby mi kazdy mod sprawdzilo to musze do kazdej modyfikacji uzyc tego kodu?

[HusamPL]

Potrafi ktos pomoc, lub nakierowac na trop zeby samemu jakos sprobowac?

[TCQ]

Close na prośbę autora (raport).