Host, Check for Update

Question

Bonjour a tous,
Je voudrais vous posez une petite question assez bête..

Savez vous d'un host gratuit pour pouvoir stocker mes programmes, pour pouvoir faire des mise a jours.

Donc je cherche un host pour mettre des fichiers (.exe) avec accès ftp, ou je puisse créé des fichiers(folders).

Donc je me demandais si vous saviez de quelque host sympa..

J'utilisais Ifrance pour sa, mais fermer maintenant.
Webhost000 n'accepte pas les fichier (.exe) a moins de payer...

J&#8217;espère me faire comprendre.

Merci.

cs_Onin42 · Answer

Mon code pour qui sa peut aider:



Imports System.Net
Imports System.IO


Private Sub NewUpdateHtml()
        Try
            If My.Computer.Network.IsAvailable Then
                Dim Link As String = "http://www.votreSite.com/Execution/" & My.Application.Info.Title & "/version.html"
                Dim wRequest As WebRequest = WebRequest.Create(Link)
                Dim wResult As WebResponse = wRequest.GetResponse()
                Dim sReader As New StreamReader(wResult.GetResponseStream())
                Dim SourceCode As String = sReader.ReadToEnd()
                sReader.Close()
                wResult.Close()

                SourceCode = Split(SourceCode, "")(1)
                SourceCode = Split(SourceCode, "
")(0)

                If (SourceCode.Replace(" o", "") = My.Application.Info.Version.ToString) Then
                    MsgBox("You have the latest version of the software.", MsgBoxStyle.Information, "AutoUpdate")
                Else
                    Dim msgx As Object = MsgBox("An update is available, do you want to dowload ?", MsgBoxStyle.Information + MsgBoxStyle.YesNo, "Auto Update")
                    If msgx = vbYes Then

                        'System.Diagnostics.Process.Start("http://www.votreSite.com/Execution/" & My.Application.Info.Title & "/" & SourceCode.Replace(" o", "") & "/" & My.Application.Info.Title & ".exe")

                        If Not File.Exists(Application.ExecutablePath & "-Old.exe") Then
                            File.Move(Application.ExecutablePath, Application.ExecutablePath & "-Old.exe")
                        Else
                            File.Delete(Application.ExecutablePath & "-Old.exe")
                            System.Threading.Thread.Sleep(500)
                            File.Move(Application.ExecutablePath, Application.ExecutablePath & "-Old.exe")
                        End If

                        System.Threading.Thread.Sleep(500)

                        If Not File.Exists(My.Application.Info.DirectoryPath & "" & My.Application.Info.Title & ".exe") Then
                            My.Computer.Network.DownloadFile("http://www.votreSite.com/Execution/" & My.Application.Info.Title & "/" & SourceCode.Replace(" o", "") & "/" & My.Application.Info.Title & ".exe", My.Application.Info.DirectoryPath & "" & My.Application.Info.Title & ".exe")
                        Else
                            File.Delete(My.Application.Info.DirectoryPath & "" & My.Application.Info.Title & ".exe")
                            System.Threading.Thread.Sleep(500)
                            My.Computer.Network.DownloadFile("http://www.votreSite.com/Execution/" & My.Application.Info.Title & "/" & SourceCode.Replace(" o", "") & "/" & My.Application.Info.Title & ".exe", My.Application.Info.DirectoryPath & "" & My.Application.Info.Title & ".exe")
                        End If

                        AppendText(Environ("tmp") & "\update.bat", ":Repeat " & vbCrLf & "del '" & Application.ExecutablePath & "-Old.exe" & vbCrLf & "' if exist '" & Application.ExecutablePath & "-Old.exe" & "' goto Repeat" & vbCrLf & "del '" & Environ("tmp") & "\update.bat'")
                        Shell(Environ("tmp") & "\update.bat", AppWinStyle.Hide)

                        Shell(My.Application.Info.DirectoryPath & "" & My.Application.Info.Title & ".exe", AppWinStyle.NormalFocus, False)

                        MsgBox("Updated Sucessfully", MsgBoxStyle.Information, "AutoUpdate")

                        Application.Exit()

                    Else
                        If SourceCode.Contains(" o") Then End
                    End If
                End If
            End If
        Catch ex As Exception
            MsgBox("Error come, Details:" & vbCrLf & ex.Message.ToString, MsgBoxStyle.Exclamation, "AutoUpdate")
            Application.Exit()
        End Try
    End Sub

    Public Sub AppendText(ByVal vsFilePath As String, ByVal vsText As String)
        With New System.IO.StreamWriter(vsFilePath, True)
            .WriteLine(vsText)
            .Close()
        End With
    End Sub

acive · Answer

Salut Onin,
Alors moi j'utilise un site génial : https://www.dropbox.com/

Tu t'inscris (http://db.tt/pxQQoO4) en prenant la formule gratuite (t'as droit à 2 Go) à chaque fois que tu invites quelqu'un et qu'il l'installe t'as un cadeau de 250Mo.

La par exemple si tu me donnes ton mail et si tu l'installes, ils me rajoutent 250Mo 

Tu télécharges et installes la dropbox sur tous tes PC: https://www.dropbox.com/

Sinon à chaque fois que tu modifies quelque chose c'est synchronisé sur leur serveur et sur tous les PC automatiquement.

Tu peux partager des dossiers avec qui tu veux, moi je m'en suis servi pour aider des membres à faire des programmes, on peux même travailler tous au même temps sur le même projet.




CF2i - Guadeloupe
Ingénierie Informatique

acive · Answer

T'as aucun transfère FTP, un dossier 'Dropbox' va se créer dans ton disque (Mes Documents) et tu y travailles normalement sans te soucier d'enregistrer ou de transférer quoi que ce soit.

Tout s'enregistre physiquement sur ton DD et la dropbox fait une synchro automatiquement sur leur serveur.

Même quand tu te connectes avec un autre PC il suffit d'installer la dropbox dessus et t'as tout comme si rien était.



CF2i - Guadeloupe
Ingénierie Informatique

Host, Check for Update

3 réponses

Votre réponse

Discussions similaires