VB/VB.Net AutoUpdate

[Apokah]

Bonjours !

J'ai tester des tutoriels pour AutoUpdate mon programme
Mais je ne trouve vraiment pas ce que j'en ai besoin :/

- Je veux que mon logiciel cherche une mise à jours
- SI il y 'a, Il télécharge le .zip et dézip le tout !

Pourquoi un .zip ? Car les fichiers à télècharger après la màj changent..

 

[tifoux]

sa te dirait un avertissement pour double post si tu est pour faire te faire remarquer la porte de sortis et grande ouvert.
breff.

je veux je veux, si tu veux tu t'applique a essayer de faire car on n'est pas la pour coder pour toi mon cher.

 

[ToOnS]

y'a tout ce qu'il faut chez castro :

mais t'es serieux la ? les fichiers apres la MAJ changent ? c'est revolutionnaire ca

 

[Apokah]

Tu n'a pas compris.
Serveur privé D., L'UpLauncher télécharge la config
un autre jour il télécharge des maps
Un autre jour des annimations...
Dans le code (à ce que je pense) on a le droit qu'a un fichier non ?
c'est pour sa un fichier .rar sera bon
Merci !

EDIT : je ne trouve pas le tutoriel :/
Sinon, la décompression d'un fichier .rar est-elle possible ?

 

[ToOnS]

j'ai tres bien compris et le screen sert a faire ce que tu veux faire sans s'embeter avec .rar , .zip , .maSuperUpdateDeLaMort , peu etre qu'en appuyant sur "application files" et que si tu as la version francaise ca sera plus simple , y'a juste a lire pas besoin de tuto pour ca

 

[Apokah]

Le screen je l'es bien lu
Dans le screen on a la v1.0.0.0, On met un fichier .txt et on met par exemple 1.0.0.1 et on met :

 Dim update As String = web.DownloadString("http://blabla.bla/bla.txt")
        If update.Contains(Application.ProductVersion) Then
            MsgBox("No Updates !")
        Else
            MsgBox("New Update !")
            on télécharge le fichier
        End If

Mais comme j'ai dis, Je veux qu'il télécharge à chaque fois un nouveau fichier !
Genre aujourd'hui il télécharge la config
Demain une map
Après demain... bla bla bla

Merci encore !

EDIT

Je test l'application files ! désolé.

EDIT 2 (Désolé)

Euh, j'ai pas bien compris :/

 

[ToOnS]

si tu veux vraiment faire comme tu dis (avec un fichier texte et l'usine a gaz qui va avec) c'est facile tu decompresses un zip comme quand tu decompresses une map :mrgreen: (mais pourquoi je suis aussi mechant ?) , les maps c'est des fichiers zip deguisés :shock:

 

[Apokah]

Euh ?

 

[ToOnS]

http://msdn.microsoft.com/fr-fr/library ... tream.aspx

 

[Apokah]

J'ai lu dans un forum que le Gzip décompresse que les .gzip non pas les .rar non ?
En toute cas je test, Gros merci ♥

 

[ToOnS]

oui mais c'est pas un probleme tu compresses en gzip (ou en zip) a la place de rar tu as meme la methode pour compresser avant de decompresser dans le lien

 

[Apokah]

 For Each fi As FileInfo In di.GetFiles()
            Compress(fi)
        Next

        ' Decompress all *.gz files in the directory.
        For Each fi As FileInfo In di.GetFiles("*.gz")
            Decompress(fi)
        Next

".gz" ?

 

[ToOnS]

ou "*.zip" , gz et zip c'est la meme chose , une combinaison des algorithmes LZ77 et Huffman

 

[Apokah]

Private Sub Compress(ByVal fi As FileInfo)
        ' Get the stream of the source file.
        Using inFile As FileStream = fi.OpenRead()
            ' Compressing:
            ' Prevent compressing hidden and already compressed files.

            If (File.GetAttributes(fi.FullName) And FileAttributes.Hidden) _
                <> FileAttributes.Hidden And fi.Extension <> ".zip" Then
                ' Create the compressed file.
                Using outFile As FileStream = File.Create(fi.FullName + ".zip")
                    Using Compress As GZipStream = _
                    	New GZipStream(outFile, CompressionMode.Compress)
                    	
                        ' Copy the source file into the compression stream.
                        inFile.CopyTo(Compress)

                        Console.WriteLine("Compressed {0} from {1} to {2} bytes.", _
                                          fi.Name, fi.Length.ToString(), outFile.Length.ToString())

                    End Using
                End Using
            End If
        End Using
    End Sub

C'est où les fichiers à compresser ?
La destination ?

Je sais pas pourquoi je comprend rien en sa U_u

 

[ToOnS]

' Path to directory of files to compress.
        Dim dirpath As String = "c:\leDossierDeMamie\photos\x" ' <----------------------- c'est la pour les 2
       Dim di As DirectoryInfo = New DirectoryInfo(dirpath)
       ' Compress the directory's files.
        For Each fi As FileInfo In di.GetFiles()
            Compress(fi)
        Next

 

[tifoux]

ToOnS comment t'est trop gentille <3 mais bon après si copie colle un code bêtement.....

 

[Apokah]

En toute cas j'ai pas C/C !
J'ai utiliser ICSharp Dll pour les .zip !

Mais Y'a un autre problème U_u
Quand je

my.computer.network.downloadfile("url", "déstination")

Je lance le programme, Au lieu de télécharger update.zip, Il me met un fichier qui s'appelle UpdateRealse U_u

Screen :

 

[anodu94]

Sinon plus simplement, tu loues un FTP, tu mets tes fichiers dessus, tu fais un Try/Catch pour tester si y'a les fichiers et le tour est joué. T'as juste à faire un code qui télécharge sur ton FTP, ou même plus facile, si t'as un nom de domaine ( même .open.com ou autres de ce type ) tu as juste à mettre le lien de téléchargement toujours avec un try/catch et comme ça ça t'évitera une connexion FTP avec ID et Mdp. Comme tu veux mais vu comment tu galères avec tes décompressions et tes bidouilles, je te conseille ça, tout le monde peut le faire.

 

[tifoux]

Salut pour son propre cryptage c'est comme si tu remplace a par &, n par ~, mais bon sa c'est la façon basic.

 

[Anonymous]

Voila essaye avec sa:

Spoiler

For Each strFile As String In System.IO.Directory.GetFiles(Application.StartupPath & "chemin") 'chemin du fichier
If strFile.Contains(".gz") Then 'si le fichier contient cette extension

End If
Next