Bueno ya lo tengo terminado (ahora solo falta el diseño, ventanas, control de errores, mensajes al usuario, etc.... Pero la "base" ya está funcionando perfectamente. Además, dada la naturaleza del propio updater, también sirve como Web-Installer; es decir, que el propio actualizador se podría utilizar como instalador del programa. El funcionamiento es muy sencillo:

El programador genera una lista que incluye el nombre de los ficheros de su APP, su tamaño en bytes y su hash CRC32. Dicha lista se almacena en la web/ftp. El updater descarga esa lista y efectua 3 comparaciones:

Si existe el fichero del listado en el equipo -> Si no existe lo descarga
Si el fichero en local tiene los mismos bytes que el fichero remoto -> Si no coincide lo descarga
Si el fichero en local tiene un CRC32 distinto al fichero remoto -> si no coincide lo descarga.

Además permite auto-actualizar el modulo principal de tu APP, incluso si está en ejecución. Y si añadimos un fichero llamado whatsnew.txt, lo descarga y lo ejecuta para que el user vea los cambios de tus actualizaciones. Tambien el programa permite el parámetro /auto, para lanzar la auto-actualización de golpe

Bueno, lo dicho, voy a terminar de trabajar el diseño y abre un hilo nuevo

Bueno, por hoy ya he terminado, te explico hasta donde he llegado:

Tengo finalizado el programa para generar automáticamente el updater.lst, básicamente tú le indicas la carpeta donde tienes instalado el programa actualizado y te genera un fichero con el siguiente contenido:


No tienes que editarlo a mano, ya que el programa te lo calcula automáticamente, aparece el fichero y su ruta, tamaño y el CRC32, con esas 3 datos ya funciona correctamente el updater.

Y luego, el programa (actualizador principal) funciona d ela siguiente manera; se descarga el updater.lst y lee el fichero de 3 en 3 líneas, en cada lectura obtiene el fichero, tamaño y CRC, los compara con el fichero local y si uno de los 3 datos no es correcto, descarga la copia del fichero en remoto (el fichero actualizado). Si el fichero está dentro de una carpeta, también crea la carpeta y actualiza los ficheros de su interior.

** Por el momento el programa trabaja con los ficheros de la raíz y un 1º nivel de sub-carpeta, mañana cuando vuelva del trabajo hago un bucle recursivo para que pueda ir desde el nivel 2 de sub-carpeta hasta el nivel N (infinito).

El programa acepta el parámetro /auto para que auto-actualice y si descarga el fichero whatsnew.txt lo ejecuta y lo muestra al usuario para que vea los cambios actualizados.

El programa sirve como WebInstaller o Actualizador, puede actualizar incluso si la aplicación principal está en ejecución. Cosas que me faltan terminar?

- Nivel N-Subcarpeta (mañana lo termino)
- Posibilidad de auto-actualizar el propio instalador. (No se hasta que punto es interesante implementar la opción...)

El código es "bonito", corto y sencillo. Como a mi me gustan, es el siguiente:

Function StartUpdate()
    Dim RootPath As String
    Dim WhatsNew As Boolean
 
    Set Files = CreateObject("Scripting.FileSystemObject")
    WhatsNew = False
    m_CRC.Algorithm = 1
 
    Open App.Path & "\smart.cfg" For Input As #1
        Line Input #1, RootPath
    Close #1
    DoEvents
 
    If DownloadFile(RootPath & "updater.lst", "updater.lst") = False Then
        MsgBox "Error al descargar el fichero de actualización"
    Else
        Open App.Path & "\updater.lst" For Input As #1
            Do While Not EOF(1)
                Line Input #1, Archivo
                Line Input #1, Bytes
                Line Input #1, CRC
                Label1.Caption = Archivo & " (" & Bytes & ") = " & CRC
                If Files.FileExists(App.Path & "\" & Archivo) Then
                    If FileLen(App.Path & "\" & Archivo) = Bytes Then
                        CRC2 = "$" & Hex(m_CRC.CalculateFile(App.Path & "\" & Archivo))
                        If CRC <> CRC2 Then
                            Call DownloadFile(RootPath & Archivo, Archivo)
                            If Archivo = "whatsnew.txt" Then WhatsNew = True
                        End If
                    Else
                        Call DownloadFile(RootPath & Archivo, Archivo)
                        If Archivo = "whatsnew.txt" Then WhatsNew = True
                    End If
                Else
                    Call DownloadFile(RootPath & Archivo, Archivo)
                    If Archivo = "whatsnew.txt" Then WhatsNew = True
                End If
                DoEvents
            Loop
        Close #1
        DoEvents
        Kill App.Path & "\updater.lst"
        If WhatsNew = True Then ShellExecuteA 0&, "Open", App.Path & "\whatsnew.txt", vbNullString, vbNullString, 1
    End If
End Function
 
Function DownloadFile(ByVal URL As String, ByVal Target As String) As Boolean
    On Error GoTo dError
 
    Set oHTTP = CreateObject("WinHttp.WinHttpRequest.5.1")
    Set oStream = CreateObject("ADODB.Stream")
 
    URL = Replace(URL, "\", "/")
    oHTTP.Open "GET", URL, False
    oHTTP.Send
 
    If (oHTTP.Status = 200) Then
        oStream.Open
        oStream.Type = 1
        oStream.Write oHTTP.ResponseBody
        If InStr(Target, "\") > 0 And Target <> "updater.lst" Then
            Call MkDir(Split(Target, "\")(0))
        End If
        oStream.SaveToFile App.Path & "\" & Target, 2
        oStream.Close
        DownloadFile = True
        Exit Function
    End If
dError:
    DownloadFile = False
End Function
 

Por cierto, como has pensado en pagarme el trabajo que estoy haciendo? Yo no programo gratis... te mando un MP informando de mis precios por horas.

Saludos y hasta mañana!

jajjaa, era broma hombre!! Has picado de lleno.

Yo no cobro por programar. A la tarde cuando llegue a casa termino el programa y lo subo ok? No te preocupes.

Bueno, ya lo tengo terminado. Voy a crear un nuevo hilo para publicar mi código. Dejaré colgado aquí el link para que lo veas

http://foro.elhacker.net/programacion_visual_basic/app_source_smart_updater_anade_un_autoactualizador_a_tus_programas_facil-t400743.0.html;new#new