Code?
This works fine:
website$="http://www.google.com"
filename$="tempfile.txt"
ok=download(website$,filename$)
if ok=1
print "Downloaded OK"
else
print "Error Downloading"
endif
website$="http://www.google.com"
filename$="tempfile2.txt"
ok=download(website$,filename$)
if ok=1
print "Downloaded OK"
else
print "Error Downloading"
endif
wait key
end
function download(w$,f$)
if file exist(f$) then delete file f$
load dll "urlmon",1
a=CALL DLL(1,"URLDownloadToFileA",0,w$,f$,0,0)
delete dll 1
ok=0
if a=0 then ok=1
endfunction ok
Boo!