A-M baby

Task/HTTP/Liberty-BASIC/http.liberty

@@ -0,0 +1,20 @@
+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