ayuda para crear sistema de aviso de actualizacion

[franko1809]

Puedes hacerlo algo asi, ojo que lo probe en host donde no se puede ver un archivo .txt directamente por eso utilize el .htm(Descarga un .htm pero lo guarda con extension .txt), solo es una guia y el codigo es para vb6, espero te sirva de algo por que seguro hay formas de hacerlo con menos codigo y mas optimizado, haber si alguien del foro ayuda.

El contenido del archivo debe ser 1.1.0

Código:

Option Explicit
Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long

Private Sub Command1_Click()
Dim Problema As Boolean, FicheroURL As String, VersionEXE As String
FicheroURL = "dominio.com/version.htm"
Problema = URLDownloadToFile(0, FicheroURL, App.path & "\version.txt", 0, 0)
If Problema Then
  ' No pudo acceder al archivo del FTP
  'MsgBox "Error al comprobar versión", vbCritical, "Error"
Else
  'MsgBox "Descarga de versión correcta", vbInformation, "Actualización"
  VersionEXE = App.Major & "." & App.Minor & "." & App.Revision
  ' Comparamos string's
  Dim x As String
  Cargar_archivo App.path & "/version.txt", x
  If Not VersionEXE = x Then
  MsgBox "Hay una nueva version disponible", vbInformation, "Actualización"
  End If
End If
End Sub

Public Sub Cargar_archivo(path As String, salida As String)
Dim Linea As String
If path = vbNullString Then Exit Sub
   salida = ""
   Open path For Input As #1
        Line Input #1, Linea
     salida = Linea
   Close
End Sub