Aug 22
En este ejemplo utilizando el control InetCtls para descargar un archivo de internet; podemos hasta crear una barra de progreso a medida que se descarga el archivo.
oInet = Create("InetCtls.Inet")
oInet.RemotePort =
"8080"
oInet.RequestTimeOut = 1000
* En caso de necesitar Proxy
* oInet.proxy = "192.168.6.3"
cUrl = "http://www.davphantom.net/img/log2.png"
oDatos = oInet.OpenURL(cUrl, 1)
nHF = Fcreate("log2.png")
For i = 1
To Alen(oDatos)
Fwrite(nHF,
Chr(oDatos[i]))
EndFor
FClose(nHF)
Si tienes inquietudes, sígueme en Twitter para contactarme.
Seguir a @davamadort¿Deseas que tu sitio web aparezca en buscadores como google, yahoo, msn?
Contrata un plan de hosting en www.winnethost.com y recibes totalmente gratis el registro de tu sitio web en más de 24 buscadores, entre ellos google, yahoo, msn
El Sitio La Web de Davphantom se encuentra hospedado en WinNetHost.com
