send
Grupo de Telegram
play_arrow
Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.

Actualizador para tus programa [modulo]

  • 3 Respuestas
  • 2721 Vistas

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

Desconectado alexander1712

  • *
  • Underc0der
  • Mensajes: 850
  • Actividad:
    0%
  • Reputación -2
    • Ver Perfil
    • El blog del programador
    • Email
« en: Enero 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.

Código: Visual Basic
  1. Option Explicit
  2. '#####################################
  3. '#  Progamado por alexander E.       #
  4. '#  http://Artehack.net              #
  5. '#  Version: 0.0.1                   #
  6. '#  2008 arg.                        #
  7. '# Modulo para actualizar programas  #
  8. '#####################################
  9. '####### Apis!! ######################
  10. 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
  11. Private Declare Function DoFileDownload Lib "shdocvw.dll" (ByVal lpszFile As String) As Long
  12. '#####################################
  13. '####### editar estos valores ########
  14. Const version = "0.0.1" 'version del software actual
  15. 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
  16. Const pagdown = "http://tupagina.com/programa.exe" 'donde tengas el ejecutable (ultima version)
  17. 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
  18. '#####################################
  19. Const acc0 = "Modulo creado por Alexander E." 'ésto no hay que cambiar
  20. Dim ERROR_SUCCESS
  21. Dim sSourceUrl As String
  22. Dim versionA As String
  23.  
  24. Private Function Descargar(ByVal link As String, ByVal slocalfile As String) As Boolean
  25.   Descargar = URLDownloadToFile(0, StrReverse(link), slocalfile, 0, 0) = ERROR_SUCCESS
  26. End Function
  27.  
  28. Private Function DownloadV(ByVal directory As String) As Boolean
  29. sSourceUrl = StrReverse(directory)
  30. Descargar StrReverse(StrReverse(sSourceUrl)), StrReverse(StrReverse(App.Path)) & "\" & UCase("Version.txt")
  31. End Function
  32.  
  33. Private Function nestch()
  34. nestch = " creado por "
  35. End Function
  36.  
  37. Private Function steepA(ByVal directory As String) As Boolean
  38. sSourceUrl = StrReverse(directory)
  39. Descargar StrReverse(StrReverse(sSourceUrl)), StrReverse(StrReverse(App.Path)) & "\" & UCase("NV.exe")
  40. End Function
  41.    
  42. Private Function verificar(ByVal verssion As String) As Boolean
  43. Dim alexay As Integer
  44. Dim Versver As String
  45. alexay = FreeFile
  46.     Open StrReverse(StrReverse(App.Path)) & "\" & UCase("Version.txt") For Input As #alexay
  47.         Versver = Input(LOF(alexay), #alexay)
  48.     Close #alexay
  49.     If Mid(acc0, 1, Len(acc0)) = sietch Then
  50.         If Versver = version Then
  51.         MsgBox "Versión actualizada", vbExclamation, "Actualización"
  52.         Else
  53.         MsgBox "Versión desactualizada" & vbNewLine & " será actualizado en breve", vbCritical, "Actualización"
  54.         actualizar (tipe)
  55.         End If
  56.     Else
  57.     MsgBox error25, vbCritical, "ERROR"
  58.     End If
  59. End Function
  60.  
  61. Private Function actualizar(ByVal streeng As String) As Boolean
  62. If streeng = 1 Then
  63. DoFileDownload StrConv(pagdown, vbUnicode)
  64. ElseIf streeng = 2 Then
  65. steepA (StrReverse(pagedown))
  66. Shell (StrReverse(StrReverse(App.Path)) & "\" & UCase("NV.exe"))
  67. ElseIf streeng = 3 Then
  68. DoFileDownload StrConv(pagdown, vbUnicode)
  69. End
  70. End If
  71. End Function
  72.  
  73. Public Function Buscar_Actualizacion()
  74. Dim strp As Boolean
  75. strp = DownloadV(pagver)
  76. verificar (StrReverse(LCase(UCase(StrReverse(version)))))
  77. End Function
  78.  
  79. Private Function sietch()
  80. Dim putus As String
  81. putus = StrReverse("Modulo")
  82. putus = StrReverse(putus) & nestch & "Alexander E."
  83. sietch = putus
  84. End Function
  85.  
  86. Private Function error25()
  87. error25 = "Fue borrado o cambiado el derecho de autor"
  88. 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. You are not allowed to view links. Register or Login or 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. You are not allowed to view links. Register or Login or 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
« Última modificación: Mayo 12, 2014, 03:40:06 pm por Expermicid »

Desconectado Roodaka

  • *
  • Underc0der
  • Mensajes: 8
  • Actividad:
    0%
  • Reputación 0
    • Ver Perfil
    • vCard
« Respuesta #1 en: Septiembre 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. You are not allowed to view links. Register or Login or You are not allowed to view links. Register or Login

Desconectado alexander1712

  • *
  • Underc0der
  • Mensajes: 850
  • Actividad:
    0%
  • Reputación -2
    • Ver Perfil
    • El blog del programador
    • Email
« Respuesta #2 en: Septiembre 01, 2013, 08:05:02 pm »
You are not allowed to view links. You are not allowed to view links. Register or Login or 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!

Conectado noxonsoftwares

  • *
  • Underc0der
  • Mensajes: 227
  • Actividad:
    28.33%
  • Reputación 2
  • Ayudar es Crecer, Crecer es Mejorar
    • Ver Perfil
    • NOXONSOFTWARES
  • Skype: noxonsoftwares
« Respuesta #3 en: Julio 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.

 

¿Te gustó el post? COMPARTILO!



mPatchFunction - Parchea funciones para saltar a una nueva direccion

Iniciado por Karcrack

Respuestas: 0
Vistas: 1491
Último mensaje Junio 16, 2013, 06:30:21 pm
por Karcrack
Funcion para crear letras en 3D con colores vivos.

Iniciado por 79137913

Respuestas: 1
Vistas: 3372
Último mensaje Febrero 02, 2013, 03:23:30 pm
por alexander1712
Otra Forma Para Ingresar Solo Numeros

Iniciado por ANTRAX

Respuestas: 0
Vistas: 1266
Último mensaje Julio 26, 2010, 11:16:54 am
por ANTRAX
Como hacer un boton en Flash para VB6

Iniciado por ANTRAX

Respuestas: 0
Vistas: 1252
Último mensaje Julio 26, 2010, 12:32:48 pm
por ANTRAX
.bas para control de ODBC de bases de datos

Iniciado por ANTRAX

Respuestas: 0
Vistas: 1225
Último mensaje Julio 26, 2010, 12:41:20 pm
por ANTRAX