Cómo descargar archivos de Internet

  • 1 Respuestas
  • 2617 Vistas

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

Conectado ANTRAX

  • *
  • Administrator
  • Mensajes: 5636
  • Actividad:
    53.33%
  • Country: ar
  • Reputación 37
  • ANTRAX
  • Skype: underc0de.org
  • Twitter: @Underc0de
    • Ver Perfil
    • Underc0de
    • Email

Cómo descargar archivos de Internet

  • 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

Re:Cómo descargar archivos de Internet

  • 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

 

Como leer caracter por caracter de una cadena string

Iniciado por ANTRAX

Respuestas: 0
Vistas: 2332
Ú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: 2431
Ú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: 2064
Ú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: 2777
Último mensaje Julio 26, 2010, 11:11:14 am
por ANTRAX
Como Imprimir en tamaño especial en Impresoras Matriciales en XP

Iniciado por ANTRAX

Respuestas: 0
Vistas: 2458
Último mensaje Julio 26, 2010, 11:14:36 am
por ANTRAX