Aplicación Actualizable

[XresH]

Hola XresH

En Realidad el archivo de DarkMatrix ya no existe por que MEGAUPLOAD ya no Existe  por lo tanto no se puede descargar el Codigo de DarkMatrix

Deberias de Leer XresH Antes de decir que esta Todo:

Hola DarkMatrix podrias subir nuevamente el archivo con el Codigo si  fueras tan amable.

Muchas Gracias de Antemano

Código [Seleccionar] Expandir

    Private Sub Form_Load()
     
    1         On Error GoTo Form_Load_Error
     
    2         Call RegisterComponent(App.Path & "\unzip32.dll", DllRegisterServer)
     
    3         TempUpdateList = App.Path & "\updatelist.txt"     ' Archivo que guarda la informacion de los archivos actualizados
    4         TempFileList = App.Path & "\filelist.txt"         ' Donde seran almacenados los archivos actuales
     
    5         If Command = "GenerateUpdateList" Then
    6             If mArchivos.ArchivoExiste(App.Path & "\updatelist.txt") Then Call mArchivos.BorrarArchivo(App.Path & "\updatelist.txt")
    7             Call Generate_FileList(App.Path, 1, App.Path & "\updatelist.txt", HostUrl)
    8             MsgBox "Listo"
    9             End
    10        End If
     
    11        If mArchivos.ArchivoExiste(TempUpdateList) Then mArchivos.BorrarArchivo TempUpdateList
    12        If mArchivos.ArchivoExiste(TempFileList) Then mArchivos.BorrarArchivo TempFileList
    13        If mArchivos.ArchivoExiste(App.Path & "\updatelist.zip") Then mArchivos.BorrarArchivo App.Path & "\updatelist.zip"
    14        If mArchivos.ArchivoExiste(App.Path & "\updatelist.txt") Then mArchivos.BorrarArchivo App.Path & "\updatelist.txt"
     
    15        Set Download = New CDownload
     
    16        Me.Show
     
    17        If Descargar_Updatelist = True Then               ' Descarga el Updatelist
    18            Call Generar_Lista_De_Archivos                ' Genera la lista de archivos
    19            Call Comprobar_Actualizaciones(App.Path)      ' Compara archivos en busca de actualizaciones
    20            Call Descargar_Actualizaciones                ' Descargar Actualizaciones
    21            Call SetStatus("Actualizacion Completa...")   ' Establece el Mensaje de que se completo todo
    22            cmdAceptar.Enabled = True                     ' Activa el mensaje para activar la aplicacion Principal
    23        Else
    24            Call SetStatus("Fallo al Tratar de Actualizar...")    ' Fallo la actualizacion.
    25        End If
     
    26        Exit Sub
     
    Form_Load_Error:
     
    27        MsgBox "Error " & Err.Number & " (" & Err.Description & ") En La Linea Nº " & Erl & " Del Procedimiento Form_Load del Formulario frmDownloader", vbCritical + vbOKOnly, "Error"
     
    End Sub

Yo lo hice funcionar con eso, si tu capacidad no te dá, entonces no digas cosas que no son.

Saludos.

[fervabi22]

De Verdad que eres un Novato. XresH

Bueno de Todas Formas te digo que deberias ver el siguiente post
http://www.codeproject.com/Articles/19623/Adding-automatic-updates-to-your-program-Part-1

No hables cosas que no sabes antes de preguntar

Att

[raul338]

Dejen el flame para otros lugares. No inciten a la discusion que no sirve de nada...

@XresH: fervabi22 no esta pidiendo una tarea, esta pidiendo si alguien puede volver a subir el source que ya no esta online.

El código que figura en el post principal es un ejemplo de como usarlo, no es el código entero (si te fijas, hay funciones y el modulo mArchivos que falta, eso no compila ni en pedo)

Si alguien tiene el source y lo puede subir sera bienvenido. Yo tengo una versión muy modificada por mi que dudo que funcione, pero si nadie lo sube en un par de dias lo reviso y veo si lo subo...

[DarkMatrix]

He modificado un poco el source y agregue un archivo Leeme.txt, donde explica un poco el funcionamiento del programa y un ejemplo de como usarlo. Aqui esta el source resubido: http://www.multiupload.nl/YI6IVZ4T42 espero que les ayude

Nota: Deben modificar el archivo config.ini y agregar la URL del servidor donde alojaran sus archivos.

Aqui un video de como podrian utilizarlo:

[youtube=640,360]GxqwSBEcudY[/youtube]

Saludos ^^,

[zetaperu]

Amigo, me es interesante este módulo para personalizarlo, podrias subirlo a mediafire u otro hosting actual.

Gracias!

[zetaperu]

Ya vi esto, no habia revisado la página 3


Gracias x compartir!

[DarkMatrix]

Aqui esta el link amigo: http://www.mediafire.com/download/vt8xrnm38zn8a14/Actualizador_Source.rar

[rapbyone]

muchas gracias por compartir el archivo amigo