Actualizador para tus programa [modulo]

Iniciado por alexander1712, Enero 26, 2013, 03:14:34 AM

Tema anterior - Siguiente tema

0 Miembros y 1 Visitante están viendo este tema.

Enero 26, 2013, 03:14:34 AM Ultima modificación: Mayo 12, 2014, 03:40:06 PM por Expermicid
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.

Código: vb
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 = "No tienes permitido ver los links. Registrarse o Entrar a mi cuenta"

el archivo de texto en tu pagina web que contendra la ultima version

Const pagdown = "No tienes permitido ver los links. Registrarse o Entrar a mi cuenta"

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!
Atte. No tienes permitido ver los links. Registrarse o Entrar a mi cuenta

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.