Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: Neoow en 20 Noviembre 2006, 21:23 pm



Título: Descargar Y Guardar
Publicado por: Neoow en 20 Noviembre 2006, 21:23 pm
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


Título: Re: Descargar Y Guardar
Publicado por: CeLaYa en 20 Noviembre 2006, 21:31 pm
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.


Título: Re: Descargar Y Guardar
Publicado por: [VolkS] en 20 Noviembre 2006, 21:47 pm
Código:
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

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

Código:
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

Código:
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


Título: Re: Descargar Y Guardar
Publicado por: 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.


Título: Re: Descargar Y Guardar
Publicado por: [VolkS] en 20 Noviembre 2006, 21:53 pm
yo tengo una pregunta... ¿donde se ponen esos codigos?...
perdonen mi ignorancia pero soy nuevo en esto...

Gracias.

(http://img113.imageshack.us/img113/4422/mspaintba5.png)

Programacion en Visual Basic, tenes que bajarte el VB 6.0(ya ta quedando viejo igual :( )


Título: Re: Descargar Y Guardar
Publicado por: 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.


Título: Re: Descargar Y Guardar
Publicado por: [VolkS] en 20 Noviembre 2006, 21:58 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


Título: Re: Descargar Y Guardar
Publicado por: newbY en 20 Noviembre 2006, 21:59 pm
¿En castellano porfavor?... ¿De donde me bajo el VB 6.0?


Título: Re: Descargar Y Guardar
Publicado por: Neoow en 20 Noviembre 2006, 22:12 pm
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


Título: Re: Descargar Y Guardar
Publicado por: ranslsad en 21 Noviembre 2006, 00:30 am
¿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


Título: Re: Descargar Y Guardar
Publicado por: newbY en 21 Noviembre 2006, 18:03 pm
Muchas gracias :D


Título: Re: Descargar Y Guardar
Publicado por: [VolkS] en 21 Noviembre 2006, 19:01 pm
que error te da?, puede que porque declaro todo public, me manejo con modulos, fijate poniendole private a la api y ponerla en el form.

y decime que error te da