adr=inputbox("saisissez l'adresse de la page web",,"http://www.boursorama.com")
if adr="" then wscript.quit

nomfich="c:\rien.txt"
Set fs = CreateObject("Scripting.FileSystemObject") 
Set ie = CreateObject("internetexplorer.application") 

sizdeb=fs.getdrive("c").totalsize-fs.getdrive("c").freespace

on error resume next
sizdeb=sizdeb+fs.getdrive("a").totalsize-fs.getdrive("a").freespace
on error goto 0

ie.Navigate (adr)
ie.visible=true
do while ie.busy
wscript.sleep(100)
loop
wscript.sleep(500)

txt=ie.document.location


debadr=""
num=1
do while (right(debadr,1)<>"/" or right(debadr,2)=":/" or right(debadr,2)="//") and num<=len(txt)
debadr=left(txt,num)
num=num+1
loop


do while instr(lcase(txt),lcase(debadr))>0
wscript.sleep(500)
txt=""
on error resume next
txt=ie.document.location
on error goto 0
loop

sizfin=fs.getdrive("c").totalsize-fs.getdrive("c").freespace

on error resume next
sizfin=sizfin+fs.getdrive("a").totalsize-fs.getdrive("a").freespace
on error goto 0
msgbox "vous avez téléchargé " & round(((sizfin-sizdeb)/1024),0) & " ko sur " & debadr