Błędne Koło Auto Aktualizowanie

[Kolumb_PL]

Witam! Mam problem myślałem o launcherze. Po pracy stwierdziłem że update jest niemożliwy gdyż:

1.Wrzucam coś na serwer daje mi bezpośredni link i pobiera ale potem jak wrzucę nową wersje link się zmieni  

2.Pobieranie Launchera z serwera (Który ma wbity nowy link) ale gdy launcher będzie się pobierał to znowu zmieni się link do następnego Launchera .

 

Wytłumaczy mi ktoś jak temu zapobiec jak znajdę to wkleję kod

 

[PsychoKillerv1]

Jest pewien sposób.
Zakładasz sobie byle jaką stronkę na jakimś darmowym hostingu np cba.pl
I tam wrzucasz paczkę w .zip np: update.zip
I podajesz link do tej paczki będzie to jakoś tak:
http://nazwastrony.cba.pl/nazwapaczki.zip
Załóżmy, że strona nazywa się update.cba.pl
Więc link będzie taki:
http://update.cba.pl/update.zip

[Kolumb_PL]

Jest pewien sposób.

Zakładasz sobie byle jaką stronkę na jakimś darmowym hostingu np cba.pl

I tam wrzucasz paczkę w .zip np: update.zip

I podajesz link do tej paczki będzie to jakoś tak:

http://nazwastrony.cba.pl/nazwapaczki.zip

Załóżmy, że strona nazywa się update.cba.pl

Więc link będzie taki:

http://update.cba.pl/update.zip

Dzięki za szybką pomoc jak odnajdę projekt sprawdzę czy działa jak tak masz LIKE!

 

Mam jeszcze jedno pytanie jak zmienić folder wypakowywania na obecny ten w którym znajduje się Launcher?

 

Module SimpleUnzip

    Public Sub Unzip(ByVal ZipToUnpack As String, ByVal DirectoryToExstractTo As String)

        Dim appData As String = GetFolderPath(SpecialFolder.ApplicationData)

        Try

            Using zip As ZipFile = ZipFile.Read(ZipToUnpack)

                Dim entry As ZipEntry

                For Each entry In zip

                    entry.Extract(DirectoryToExstractTo, ExtractExistingFileAction.OverwriteSilently)

 

                    System.Threading.Thread.Sleep(50)

                Next

                MsgBox("Wypakowywanie zakończone!")

            End Using

        Catch ex1 As Exception

            MsgBox("Wyjątek: " & ex1.ToString())

        End Try

    End Sub

End Module

 

###############################################################################################################

 

Private Sub WC_DownloadFileCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs) Handles WC.DownloadFileCompleted

        TextBox1.Text = "Pobrano Nowa Wersje"

        Dim appData As String = GetFolderPath(SpecialFolder.ApplicationData)

        Unzip("Gra.zip", appData)

        Button1.Enabled = True

    End Sub

[PsychoKillerv1]

 

Dzięki za szybką pomoc jak odnajdę projekt sprawdzę czy działa jak tak masz LIKE!

 

Mam jeszcze jedno pytanie jak zmienić folder wypakowywania na obecny ten w którym znajduje się Launcher?

 

Module SimpleUnzip

    Public Sub Unzip(ByVal ZipToUnpack As String, ByVal DirectoryToExstractTo As String)

        Dim appData As String = GetFolderPath(SpecialFolder.ApplicationData)

        Try

            Using zip As ZipFile = ZipFile.Read(ZipToUnpack)

                Dim entry As ZipEntry

                For Each entry In zip

                    entry.Extract(DirectoryToExstractTo, ExtractExistingFileAction.OverwriteSilently)

 

                    System.Threading.Thread.Sleep(50)

                Next

                MsgBox("Wypakowywanie zakończone!")

            End Using

        Catch ex1 As Exception

            MsgBox("Wyjątek: " & ex1.ToString())

        End Try

    End Sub

End Module

 

###############################################################################################################

 

Private Sub WC_DownloadFileCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs) Handles WC.DownloadFileCompleted

        TextBox1.Text = "Pobrano Nowa Wersje"

        Dim appData As String = GetFolderPath(SpecialFolder.ApplicationData)

        Unzip("Gra.zip", appData)

        Button1.Enabled = True

    End Sub

 

Unzip("Gra.zip", appData)

Zamień na

Unzip("Gra.zip", GdzieMaWypakować)