VB 2010 : Mise à jour de mon application

racacax Messages postés 117 Date d'inscription   Statut Membre Dernière intervention   -  
racacax Messages postés 117 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,
Je suis entrain de créer une application. Pour l'instant, tout va bien mais j'aimerai que lorsque je publie une nouvelle version, un message comme quoi il y en a une s'affiche. Je créerai un fichier texte sur mon serveur qui indiquera le numéro de la dernière version.
Comment faire pour récupérer les données de mon fichier texte sur mon serveur ?

2 réponses

  1. Utilisateur anonyme
     
    Bonjour,

    Ceci devrait t'aider :

    https://support.microsoft.com/en-us/help/301102

    Il permet de lire le contenu d'une URL.
    0
    1. racacax Messages postés 117 Date d'inscription   Statut Membre Dernière intervention   17
       
      Merci mais je n'arrive pas à l'utiliser.
      0
  2. racacax Messages postés 117 Date d'inscription   Statut Membre Dernière intervention   17
     
    Je n'arrive pas lancer le code automatiquement. Je suis obligé d'utiliser un bouton. Comment faire pour qu'il se lance automatiquement ?
    Le code : 
        Private Sub Workbook_Open()
            Dim source As New System.Text.StringBuilder
            Dim html As String = ""
            Dim maximum As Integer
            Dim request As HttpWebRequest = WebRequest.Create("http://forum-racacax.ga/allfrtv/allfrtvversion.txt")
            Dim response As WebResponse = request.GetResponse()
            Dim reader As StreamReader = New StreamReader(response.GetResponseStream())
            Do
                source.Append(reader.ReadLine() + vbCrLf)
            Loop Until reader.ReadLine() Is Nothing
            maximum = source.Length - 2
            For i As Integer = 0 To maximum
                html = html + source(i)
            Next
            reader.Close()
            response.Close()
            If html = "0.1 Alpha v2" Then
            Else
                If MsgBox("Une nouvelle version est disponible, voulez-vous la télécharger ?", vbYesNo + vbInformation, "Mise à jour") = vbYes Then
                    Process.Start("http://forum-racacax.ga/viewforum.php?f=69")
                Else
                End If
            End If
        End Sub
    0