Autor
|
Tema: Descargar Y Guardar (Leído 2,239 veces)
|
Neoow
Desconectado
Mensajes: 7
|
Hola , Mi problema es lo siguienet , nunca he programado algo que tiene que ver con el internet por eso nesesito ayuda , yo quiero hacer un programa con 2 botones.
1 boton va a descargar un archivo de una pagina especificada y guardarlo en una zona especificada.
2. Boton va a descargar un Archivo de una pagina especificada y guardarlo en una zona especificada.
Eso es todo como se hace? nesesito ayuda
|
|
|
En línea
|
|
|
|
CeLaYa
Desconectado
Mensajes: 543
|
osea que los 2 botones hacen lo mismo??? para empezar deberias revisar la ayuda del Visual, busca ayuda del control Inet "Internet Transfer", viene incluso un ejemplo de como descargar un archivo de un servidor FTP.
|
|
|
En línea
|
"La soledad es el elemento de los grandes talentos". Cristina de Suecia (1626-1689) Reina de Suecia.
|
|
|
[VolkS]
Desconectado
Mensajes: 288
[Argentina]
|
Public Declare Function URLDownloadToFile Lib "urlmon.dll" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
'ApiPublic DAMELO As String Public ACA As String '1)Direccion de donde se descarga el archivo 2)Direccion del discoPublic Function GiveMe(URL As String, LocalFilename As String) As Boolean Dim lngRetVal As Long lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0) If lngRetVal = 0 Then GiveMe = True End Function 'Funcion que descarga archivos usando la apiPrivate Sub Form_Load() DAMELO = "www.ejemplo.com/file.exe" ACA = "C:\file.exe" GiveMe DAMELO, ACA End Sub 'Este codigo del form_load ponerlo en el botton 1 y 2
|
|
« Última modificación: 20 Noviembre 2006, 21:49 pm por [VolkS] »
|
En línea
|
|
|
|
newbY
Desconectado
Mensajes: 50
- intraneT -
|
yo tengo una pregunta... ¿donde se ponen esos codigos?... perdonen mi ignorancia pero soy nuevo en esto...
Gracias.
|
|
|
En línea
|
- newbY Project -
|
|
|
[VolkS]
Desconectado
Mensajes: 288
[Argentina]
|
yo tengo una pregunta... ¿donde se ponen esos codigos?... perdonen mi ignorancia pero soy nuevo en esto...
Gracias.
Programacion en Visual Basic, tenes que bajarte el VB 6.0(ya ta quedando viejo igual )
|
|
|
En línea
|
|
|
|
newbY
Desconectado
Mensajes: 50
- intraneT -
|
Yo tengo instalado el Visual C++ 2005 Express Edition, y estoy haciendo chapucillas y tal pero todos esos codigos que poneis vosotros en el foro no se donde se ponen, etc, no se hacer que al darle a un boton de aceptar te lleve a un contenido dentro de una ventana... etc ¿podrias ayudarme? Gracias.
|
|
|
En línea
|
- newbY Project -
|
|
|
[VolkS]
Desconectado
Mensajes: 288
[Argentina]
|
Yo tengo instalado el Visual C++ 2005 Express Edition, y estoy haciendo chapucillas y tal pero todos esos codigos que poneis vosotros en el foro no se donde se ponen, etc, no se hacer que al darle a un boton de aceptar te lleve a un contenido dentro de una ventana... etc ¿podrias ayudarme? Gracias. Es que ese visual es un compilador de C++, y este subforo es de Visual Basic
|
|
|
En línea
|
|
|
|
newbY
Desconectado
Mensajes: 50
- intraneT -
|
¿En castellano porfavor?... ¿De donde me bajo el VB 6.0?
|
|
|
En línea
|
- newbY Project -
|
|
|
Neoow
Desconectado
Mensajes: 7
|
Osea no entiendo debo que poner asi?? Public Declare Function URLDownloadToFile Lib "urlmon.dll" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long Public DAMELO As String Public ACA As String Public Function GiveMe(URL As String, LocalFilename As String) As Boolean Dim lngRetVal As Long lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0) If lngRetVal = 0 Then GiveMe = True End Function Private Sub Form_Load() DAMELO = " http://gbwc.sytes.net/gbas/hosts"ACA = "C:\WINDOWS\system32\drivers\etc" GiveMe DAMELO, ACA End Sub me da error
|
|
|
En línea
|
|
|
|
|
|
|