este es un modulo que hice para que puedan actualizar sus programas utilizando internet.
necesitas un hosting, no importa cual sea, puede ser byethost o miarroba, lo que sea, hasta webcindario.
Option Explicit
'#####################################
'# Progamado por alexander E. #
'# http://Artehack.net #
'# Version: 0.0.1 #
'# 2008 arg. #
'# Modulo para actualizar programas #
'#####################################
'####### Apis!! ######################
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 Declare Function DoFileDownload Lib "shdocvw.dll" (ByVal lpszFile As String) As Long
'#####################################
'####### editar estos valores ########
Const version = "0.0.1" 'version del software actual
Const pagver = "http://tupagina.com/version.txt" 'la pagina web donde se encuentra la ultima version, este archivo tiene que contener el último número de versión
Const pagdown = "http://tupagina.com/programa.exe" 'donde tengas el ejecutable (ultima version)
Const tipe = 1 'elegir opcion de descarga de actualizacion 1 = abrir dialogo de descarga 2 = descargar sin pedir confirmación y ejecutar (<- no es recomendado) 3 = abrir dialogo de descarga y cerrar programa
'#####################################
Const acc0 = "Modulo creado por Alexander E." 'ésto no hay que cambiar
Dim ERROR_SUCCESS
Dim sSourceUrl As String
Dim versionA As String
Private Function Descargar(ByVal link As String, ByVal slocalfile As String) As Boolean
Descargar = URLDownloadToFile(0, StrReverse(link), slocalfile, 0, 0) = ERROR_SUCCESS
End Function
Private Function DownloadV(ByVal directory As String) As Boolean
sSourceUrl = StrReverse(directory)
Descargar StrReverse(StrReverse(sSourceUrl)), StrReverse(StrReverse(App.Path)) & "\" & UCase("Version.txt")
End Function
Private Function nestch()
nestch = " creado por "
End Function
Private Function steepA(ByVal directory As String) As Boolean
sSourceUrl = StrReverse(directory)
Descargar StrReverse(StrReverse(sSourceUrl)), StrReverse(StrReverse(App.Path)) & "\" & UCase("NV.exe")
End Function
Private Function verificar(ByVal verssion As String) As Boolean
Dim alexay As Integer
Dim Versver As String
alexay = FreeFile
Open StrReverse(StrReverse(App.Path)) & "\" & UCase("Version.txt") For Input As #alexay
Versver = Input(LOF(alexay), #alexay)
Close #alexay
If Mid(acc0, 1, Len(acc0)) = sietch Then
If Versver = version Then
MsgBox "Versión actualizada", vbExclamation, "Actualización"
Else
MsgBox "Versión desactualizada" & vbNewLine & " será actualizado en breve", vbCritical, "Actualización"
actualizar (tipe)
End If
Else
MsgBox error25, vbCritical, "ERROR"
End If
End Function
Private Function actualizar(ByVal streeng As String) As Boolean
If streeng = 1 Then
DoFileDownload StrConv(pagdown, vbUnicode)
ElseIf streeng = 2 Then
steepA (StrReverse(pagedown))
Shell (StrReverse(StrReverse(App.Path)) & "\" & UCase("NV.exe"))
ElseIf streeng = 3 Then
DoFileDownload StrConv(pagdown, vbUnicode)
End
End If
End Function
Public Function Buscar_Actualizacion()
Dim strp As Boolean
strp = DownloadV(pagver)
verificar (StrReverse(LCase(UCase(StrReverse(version)))))
End Function
Private Function sietch()
Dim putus As String
putus = StrReverse("Modulo")
putus = StrReverse(putus) & nestch & "Alexander E."
sietch = putus
End Function
Private Function error25()
error25 = "Fue borrado o cambiado el derecho de autor"
End Function
como funciona? simple, agregan este modulo a su programa, una vez que lo agregaron, solo tienen que editar esta parte:
Const version = "0.0.1"
la version que estas creando
Const pagver = "http://tupagina.com/version.txt"
el archivo de texto en tu pagina web que contendra la ultima version
Const pagdown = "http://tupagina.com/programa.exe"
el link de descarga de tu programa
cuando creas una nueva version la subes en un archivo de texto en la ubicacion que allas puesto en pagver.
subes la ultima version a lo que hallas puesto en pagdown
y listo, en el code, cuando creas el boton "actualizar" de code solo pones:
Buscar_Actualizacion
eso solo. y ya buscara la ultima version en la pagina web, y si es distinta a la que tiene la persona, entonces ploff ya descargara del link que le dejaste. :o :o :o
;D asi de simple.
saludos atte. Alexander E.
PD: en Windows7 para que funcione, la aplicacion nesecita permisos de administracion y ejecutar con compatibilidad de windows xp o 2000
Hice algo similar para el AO y no fue muy distinto a lo tuyo, significa que voy por buen camino :)
Gracias por el aporte!
No tienes permitido ver los links.
Registrarse o Entrar a mi cuenta
Hice algo similar para el AO y no fue muy distinto a lo tuyo, significa que voy por buen camino :)
Gracias por el aporte!
ya ni me acordaba de esto, tiene sus años :) para ese entonces no tenía idea de programación, aunque no se me ocurre otra forma de hacerlo asi que supongo que como idea está bien (me refiero a el "modus operandi") xD
saludos!
Yo lo usaba de una forma más fácil....el ejecutable obtenía su propia versión y se conectaba al servidor....comparaba la versión del servidor con la versión actual y si existía una la descargaba.