Autor
|
Tema: Actualizacion automatica en vb (Leído 2,891 veces)
|
sebas369
Desconectado
Mensajes: 31
Professional VB Programer
|
Hola , estoy haciendo un software , y necesito el codigo para q al apretar en un boton , baje un archivo desde internet y lo coloque en la carpeta del .exe , lo q haria el software seria comparar el archivo q baja,con el archivo q esta recientemente y si son distintos le baja la nueva version , alguna idea ? saludos
|
|
|
En línea
|
|
|
|
<--v1c1ous-->
Desconectado
Mensajes: 776
¡Operadora! ¡Deme el número para el 911! - Homero
|
Simplemente podes crear un ejecutable instalable y al pulsar comrueba si es una nueva versión y lo descarga, ejecuta la instalacion y se cierra para que el usuario siga la nueva instalacion y suplante la antigua.
Pero si lo que queres es especificamente reemplazar archivos en donde se encuentra el programa de instalacion, proseguis de igual forma chequeando nuevas actualizacion y cuando el usuario diga que quiere actualizar descargar los archivos de actualizacion a la carpeta (Con un nombre diferente) y luego el programa ejecuta un ejecutable de actualizacion y se cierra dejando que el mismo programa de actualizacion reemplace los nombre y elimine los archivos antiguos para prevenir errores en tiempo de ejecucion.
|
|
|
En línea
|
|
|
|
sebas369
Desconectado
Mensajes: 31
Professional VB Programer
|
claro ,eso es lo q quiero hacer , pero necesito bajar los archivos desde inet , por q si no los baja no puede comprobar nada ,
|
|
|
En línea
|
|
|
|
|
|
NYlOn
Desconectado
Mensajes: 842
OOOOHHHHHH, TARAGÜIIII xDDDDDD
|
Si quieres podes usar la API URLDownloadToFile, es muy facil. Aca te dejo una funcion En un modulo: 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 ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Public Function BajarArchivo(ByVal URL As String, ByVal LocalFilename As String, Optional ByVal EXE As Boolean) As Boolean Dim Ret As Long Ret = URLDownloadToFile(0, URL, LocalFilename, 0, 0) 'bajas el archivo... If Ret = 0 Then ' si se bajo correctamente If EXE = True Then ShellExecute 0, "", LocalFilename, "", "", 0 'lo ejecutamos (esto es opcional) End If BajarArchivo = Ret 'devolvemos el resultado de la funcion (TRUE si hubo problemas) End Function
Para usarla seria asi: BajarArchivo("http://www.world-cs.com.ar/amd.jpg", "C:\asd.jpg", True)
Si te devuelve False es pq no hubo problemas, sino es q no se pudo bajar el archivo (ya sea por URL invlaida o porque indicaste mal la ruta local). Espero que te sirva, slaudos.-
|
|
|
En línea
|
|
|
|
sebas369
Desconectado
Mensajes: 31
Professional VB Programer
|
jeje , gracias nylon , me ahorraste trabajo , no me gusta mucho estar leyendo todo , VAGO !
|
|
|
En línea
|
|
|
|
|
Mensajes similares |
|
Asunto |
Iniciado por |
Respuestas |
Vistas |
Último mensaje |
|
|
Actualización automática ¿Bendición o condena?
Noticias
|
wolfbcn
|
0
|
1,356
|
27 Junio 2012, 14:06 pm
por wolfbcn
|
|
|
Desactivar la actualización automática de redes wifi
Android
|
arenoide
|
2
|
4,131
|
11 Enero 2013, 18:00 pm
por arenoide
|
|
|
ACTUALIZACIÓN AUTOMÁTICA
Desarrollo Web
|
Zitros
|
5
|
2,601
|
27 Abril 2014, 19:43 pm
por miloscorp
|
|
|
Evitar respuesta automatica tcp/ip
Redes
|
patilanz
|
0
|
1,695
|
18 Agosto 2014, 07:23 am
por patilanz
|
|
|
¿Actualización automática de Lubuntu, si o no?
GNU/Linux
|
novicio
|
6
|
2,606
|
12 Septiembre 2018, 21:31 pm
por Slava_TZD
|
|