Descargar Y Guardar

Iniciado por Neoow, 20 Noviembre 2006, 21:23 PM

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

Neoow

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

CeLaYa

osea que los 2 botones hacen lo mismo???  :huh:


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.
"La soledad es el elemento de los grandes talentos".
Cristina de Suecia (1626-1689) Reina de Suecia.

[VolkS]

#2
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
'Api

Public DAMELO As String
Public ACA As String
'1)Direccion de donde se descarga el archivo 2)Direccion del disco

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
'Funcion que descarga archivos usando la api

Private 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

newbY

yo tengo una pregunta... ¿donde se ponen esos codigos?...
perdonen mi ignorancia pero soy nuevo en esto...

Gracias.


- newbY Project -

[VolkS]

Cita de: newbY en 20 Noviembre 2006, 21:50 PM
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 :( )

newbY

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? :P

Gracias.


- newbY Project -

[VolkS]

Cita de: newbY en 20 Noviembre 2006, 21:56 PM
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? :P

Gracias.

Es que ese visual es un compilador de C++, y este subforo es de Visual Basic

newbY

¿En castellano porfavor?... ¿De donde me bajo el VB 6.0?


- newbY Project -

Neoow

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

ranslsad

Cita de: newbY en 20 Noviembre 2006, 21:59 PM
¿En castellano porfavor?... ¿De donde me bajo el VB 6.0?

Hola amigo, antes de nada lee esto:
http://foro.elhacker.net/index.php/topic,68352.0.html

y si quieres aprender un poco te dejo un minicursillo que hice a un amigo para aprender 10 cosillas sobre VB6:
http://comunidad-archangel.no-ip.info/cursovb6.rar
(seguro que se descarga lento porque es mi propio host y a veces tengo el Emule :D

Bueno espero que te sirva....

Salu2

Ranslsad