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

Cómo descargar archivos de Internet

  • 1 Respuestas
  • 2584 Vistas

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

Conectado ANTRAX

  • *
  • Administrator
  • Mensajes: 5609
  • Actividad:
    100%
  • País: ar
  • Reputación 37
  • ANTRAX
    • Ver Perfil
    • Underc0de
    • Email
  • Skype: underc0de.org
  • Twitter: @Underc0de
« en: Julio 26, 2010, 04:15:10 pm »
Código: Visual Basic
  1. 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

Código: Visual Basic
  1. Dim Reply As Long
  2. Reply = URLDownloadToFile(0, "http://dirección", "C:\archivo_destino", 0, 0)
  3. If Reply = 0 Then
  4.     'Descargado
  5. Else
  6.     'Error al descargar
  7. End If
« Última modificación: Mayo 12, 2014, 03:26:27 pm por Expermicid »


Desconectado _katze_

  • *
  • Underc0der
  • Mensajes: 37
  • Actividad:
    0%
  • Reputación 0
    • Ver Perfil
    • Email
« Respuesta #1 en: Julio 27, 2010, 12:24:46 pm »
Dim Reply As Long, direccion as string, destino as string
direccion = text1.text ' ingresamos la url completa tal cual sino podemos concatenarlas con el http:// :P
destino = text2.text ' lo ago de esta manera para no entrar en detalles con el commondialog pero supongamos q lo 'hicimos asi con el common y carga la ruta en un txt
Reply = URLDownloadToFile(0, direccion, destino, 0, 0)
If Reply = 0 Then
    'Descargado
Else
    'Error al descargar
End If


un pokito mejor esta :D mas prof

 

¿Te gustó el post? COMPARTILO!



Como leer caracter por caracter de una cadena string

Iniciado por ANTRAX

Respuestas: 0
Vistas: 2275
Último mensaje Julio 26, 2010, 11:42:21 am
por ANTRAX
Cómo ajustar la cadena introducida a formato de hora "00:00:00"

Iniciado por ANTRAX

Respuestas: 0
Vistas: 2403
Último mensaje Julio 26, 2010, 12:36:23 pm
por ANTRAX
Cómo ajustar la cadena introducida a formato numérico: "#,##"

Iniciado por ANTRAX

Respuestas: 0
Vistas: 2036
Último mensaje Julio 26, 2010, 12:38:04 pm
por ANTRAX
Manual de como bloquear CTRL+ALT+SUP, ALT+TAB, Y OTROS con Visual Basic en WinXP

Iniciado por ANTRAX

Respuestas: 0
Vistas: 2714
Último mensaje Julio 26, 2010, 11:11:14 am
por ANTRAX
Como pasar de un TextBox a otro pulsando ENTER

Iniciado por ANTRAX

Respuestas: 0
Vistas: 12839
Último mensaje Julio 26, 2010, 03:41:24 pm
por ANTRAX