Descarga de ficheros desde Internet con visual basic
Con el uso de estos controles podemos bajar el archico que se nos de la gana (archivo ejecutable, imagen, fichero MP3, vídeo,etc.) del que tengamos su dirección en la Red. Además, podemos darle la ruta exacta del destino de toda esta información tanto a nivel de nombre
como de ruta dentro de nuestros discos duros.
Usamos un control llamado «iNet»,aunque antes de poder utilizarlo es necesario registrarlo en la paleta de controles.
(Por las dudas explico como hacerlo vamos al menú Proyecto\Componentes
y seleccionamos el archivo C:\Windows\System32\Msinet.ocx desde el botón Examinar.
También es posible conseguir esto mismo navegando por el listado
que nos ofrece VB y activando la casilla titulada «Microsoft Internet
Transfer Control 6.0».y listo ya esta registrado.)
Una vez hecho esto lo ponemos en un formulario, asignarle un nombre (por ej
«Descarga») y vamos a su método OpenURL:
objeto.OpenUrl url [,tipoDatos]
Donde objeto hace referencia al nombre de un objeto del tipo iNet(nuestro «Descarga»),
url es la dirección a la que queremos acceder y tipoDatos es opcional que indica cómo se van
a interpretar los datos devueltos, si como una cadena de texto o
como una secuencia de bytes.
La instrucción que podemos usar es:
bytes() = Descarga.OpenURL(txtURL.Text, icByteArray)
Donde txtURL.Text es el contenido de la caja de texto que recoge la dirección a la que deseamos
acceder a través del programa que hemos preparado, e icByteArrayinforma
a la función que los datos recibidos deben tratarse como
una secuencia de bytes.
Por último una vez recibido el archivo para guardarlo usamos:
fnum = FreeFile
Open txtArchivo.Text For Binary Access Write As #fnum
Put #fnum, , bytes()
Close #fnum
Estos cumplen la función de obtener un descriptor de archivo libre, abrir para escritura un
documento (utilizando el nombre que le hemos dado), volcar (utilizando
el id del fichero) la información recibida a través de Internet, y
por último, cerrar el fichero recién creado.
