09/01/2005, 09:40
|
| | | Fecha de Ingreso: enero-2005
Mensajes: 15
Antigüedad: 20 años, 3 meses Puntos: 0 | |
| el ejemplo que postie solo se descarga los primero 1000 bytes de una página
y para descargarlo completamente tienes que hacer esta midificafícacion
dim intCanal as integer
intCAnal=freefile
open DireccionArchivo for binary as #intCanal
do
sbuffer=space(2024)
InternetReadFile hFile, sBuffer, 2024, Ret
'la variable ret devuelve la cantidad de datos escritos en la variable sBuffer
'si devuelve 0 es que termino la descarga
doevents
if ret >0 then
put #intCanal, sbuffer
end if
loop while ret >0
close #intcanal
usa la instrucción open para abrir un archivo y vas guardando los datos de la
variable sbuffer |