This site uses cookies own and third. If you continue to browse consider to accept the use of cookies. OK More Info.

Actualizador para tus programa [modulo]

  • 3 Replies
  • 7125 Views

0 Members and 1 Guest are viewing this topic.

Offline Alex

  • *
  • Moderador Global
  • Posts: 883
  • Actividad:
    0%
  • Country: 00
  • Reputación 11
    • View Profile
    • MI github
    • Email

Actualizador para tus programa [modulo]

  • on: January 26, 2013, 03:14:34 am
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.

Code: (vb) You are not allowed to view links. Register or Login
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 = "You are not allowed to view links. Register or Login"

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

Const pagdown = "You are not allowed to view links. Register or Login"

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
« Last Edit: May 12, 2014, 03:40:06 pm by Expermicid »

Marked as best answer by on January 29, 2023, 09:35:49 am

Offline Roodaka

  • *
  • Underc0der
  • Posts: 8
  • Actividad:
    0%
  • Reputación 0
    • View Profile
    • vCard

Re:actualizador para tus programa [modulo]

  • on: September 01, 2013, 03:28:26 pm
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. You are not allowed to view links. Register or Login

Offline Alex

  • *
  • Moderador Global
  • Posts: 883
  • Actividad:
    0%
  • Country: 00
  • Reputación 11
    • View Profile
    • MI github
    • Email

Re:actualizador para tus programa [modulo]

  • on: September 01, 2013, 08:05:02 pm
You are not allowed to view links. Register or Login
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!

Offline noxonsoftwares

  • *
  • Ex-Staff
  • *****
  • Posts: 364
  • Actividad:
    0%
  • Country: ar
  • Reputación 10
  • Ayudar es Crecer, Crecer es Mejorar
    • View Profile
    • NOXONSOFTWARES

Re:Actualizador para tus programa [modulo]

  • on: July 14, 2016, 10:16:11 pm
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.