Estimados, recurro a su experiencia y conocimiento con la finalidad de implementar un procedimiento para la actualización de un aplicativo de escritorio en linea. Le doy mantenimiento y/o soporte a un aplicativo de registro de formatos y cuento con aproximadamente 1000 usuarios, el procedimiento actual es enviar el ejecutable y un maestros(bak de mysql) por correo electrónico y. Las actualizaciones son constantes, aprox 3 veces al mes, el problema es que hay usuarios que no revisan sus correos y por ende no actualizan sus aplicativos, lo que genera data inconsistente. Lo que deseo hacer es implementar una opción en el aplicativo para que cuando haya una actualización de la versión se actualice con solo dar un clik, u otra opción para actualizar. Espero que me hayan entendido, les agradecería por su apoyo.


Gracias.

Marco.

Hola Marco
Si conoces la URL de donde vas a realizar la descarga y el nombre del archivo a descargar puedes utilizar un control Inet. Te explico como funciona:
1. Vas al Menu Project/Components y en la pestaña Controls activas Microsoft Internet Tranfer.
2. Agregas un control CommandButton (lo vamos a llamar Command1), un control ProgressBar (lo llamamos ProgressBar1) y un control Inet que lo llamaremos Inet1.
3. En el evento Click del Command1 pones este codigo:

Código:

Private Sub Command1_Click()
     ProgressBar1.Value = 0
     Inet1.AccessType = icUseDefault
     Dim strURL as String                 'en este string vamos a almacenar la direccion URL de Descarga
     Dim NombreArchivo as String      'en esta otra almacenamos el nombre del archivo a descargar
     NombreArchivo = "Nombre del archivo a descargar"
     strURL = "http://URLdeDescarga.com & "/" & NombreArchivo
     Inet1.URL = strURL
     Inet1.Execute , "GET" 'con esta instruccion indicamos que vamos a obtener un archivo, y aqui se activa el evento StateChanged del control Inet1
End Sub

4. En la ultima linea de ese codigo (la funcion Execute) se llama al evento StateChanged. Esto es lo que debemos poner en ese evento:

Código:

Private Sub Inet1_StateChanged(ByVal State As Integer)
     Dim vtData As Variant 
     Dim NombreArchivo as String
     NombreArchivo = "Nombre del archivo descargado"
     Select Case State
          Case icResponseCompleted
               Dim bDone As Boolean: bDone = False
               Dim tempArray() As Byte 
               Dim FileSize as Integer
               FileSize = Inet1.GetHeader("Content-length")
               ProgressBar1.Max = FileSize
               Dom ContentType as String
               ContentType = Inet1.GetHeader("Content-type")
               'al descargar el archivo con Inet este se almacena en el path del ejecutable del proyecto
               NombreArchivo = App.Path & NombreArchivo
               Open NombreArchivo For Binary Access Write As #1
               vtData = Inet1.GetChunk(1024, icByteArray)
               DoEvents
               'esto es muy importante ya que si no se pone bDone = True se produciria un bucle recursivo
               If Len(vtData) = 0 Then bDone = True
               Do While Not bDone
                    tempArray = vtData
                    Put #1, , tempArray
                    ProgressBar1.Value = ProgressBar1.Value + Len(vtData) * 2
                    vtData = Inet1.GetChunk(1024, icByteArray)
                    DoEvents
                    If Len(vtData) = 0 Then bDone = True
               Loop
          Close #1
          ProgressBar1.Value = 0
     End Select
End Sub

Este codigo me lo habia encontrado hace algunos años en otra web y lo utilice varias veces (solo le hice algunas mejoras)
5. Si el archivo descargado es un .exe puedes utilizar la API ShellExecute para correr el ejecutable o si lo que tienes que hacer es copiar los files en una ruta especifica del cliente puedes utilizar la funcion FileCopy
Suerte

Ejemplo, proporcionado por Microsoft, de como actualizar aplicaciones creadas con VB6:
Automatically Updating Visual Basic 6 Applications: Part I
Automatic Updating of Visual Basic Applications: Part II

Lo que no termino de entender es la frecuencia de las actualizaciones (segun tu 3 veces al mes). A mi esto no me parece normal, ¿exactamente, que es lo que se actualiza?. Dependiendo de lo que se deba "actualizar" el metodo para actualizar podriar variar.

La opcion que da jar me parece que no es aplicable para este caso. En esa opcion se utiliza ClickOnce, que es un paquete que viene con .NET Framework a partir de la version 2.0, por lo tanto no es aplicable a VB6. Es utilizable si lo que se quiere es actualizar una aplicacion de VB6 a VB.NET pero no para actualizar en el entorno VB6.
Para utilizar esa opcion es necesario tener Visual Studio .NET instalado, y el aplicativo de actualizacion se desarrolla en esa plataforma.
Ademas requiere el uso de IIS (Internet Information Server) que si bien es un servicio incluido en Windows, si este no esta bien configurado puede causar algunos problemas al utilizarlo con ClickOnce