Quiero alertar al usuario de actualizaciones

[vicentecamesella]

Quiero construir en mi sistema una opcion donde alerte al usuario de que existe una nueva actualizacion o version en el servidor algo asi como el messenger que te dice existe una nueva actualizacion espero me ayuden

[erbuson]

Yo para comprobar si tengo actualizada la versión de mi aplicación lo hago bajando un archivo de una URL y leyendo su contenido.

Código vb:

Public 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
 

Bajar un pequeño archivo es cuestión de milisegundos, entonces enseñas el texto donde tu quieras. Evidentemente no tiene porque ser TXT puede ser una pequeña imagen, un html, la decisión es tuya.

Código vb:

Dim Problema As Boolean, FicheroURL As String
FicheroURL = "http://www.dominio.com/pagina.htm"
Problema = URLDownloadToFile(0, FicheroURL, App.Path & "\TuArchivo.txt" , 0, 0)
If Not Problema Then 
  ' Procesar TuArchivo.txt haciendo las comparaciones necesarias
Else
  ' No pudo descargarlo
End If
 

Espero te sirva, saludos.