21 lines
563 B
Plaintext
21 lines
563 B
Plaintext
result = DownloadToFile( "http://rosettacode.org/wiki/Main_Page", "in.html")
|
|
timer 2000, [on]
|
|
wait
|
|
[on]
|
|
timer 0
|
|
if result <> 0 then print "Error downloading."
|
|
|
|
end
|
|
|
|
Function DownloadToFile( urlfile$, localfile$)
|
|
open "URLmon" for dll as #url
|
|
calldll #url, "URLDownloadToFileA",_
|
|
0 as long,_ 'null
|
|
urlfile$ as ptr,_ 'url to download
|
|
localfile$ as ptr,_ 'save file name
|
|
0 as long,_ 'reserved, must be 0
|
|
0 as long,_ 'callback address, can be 0
|
|
DownloadToFile as ulong '0=success
|
|
close #url
|
|
end function
|