This script downloads the internet file and keeps it in the memory,
not to the disk. The usage is:

.DownloadToVar(sUrl)

---------------------- DownloadToVar.PowerPro ------------------------
Function DownloadToVar(sUrl)

local hInet=dll.call("wininet|InternetOpenA|s- ui ui ui ui";;+
,"PowerPro",4,0,0,0)
local hFile=dll.call("wininet|InternetOpenUrlA|ui s+ ui ui ui ui";;+
,hInet,"sUrl",0,0,0x84000000,0)

local nSize,sData,sTemp=repeat(" ",1024)

for()
dll.call("wininet|InternetReadFile|ui s+ ui ui*";;+
,hFile,"sTemp",1024,"nSize")
if(!nSize)
break
sData ++= sTemp
endfor

dll.call("wininet|InternetCloseHandle|ui",hFile)
dll.call("wininet|InternetCloseHandle|ui",hInet)

quit(sData)
----------------------------------------------------------------------

Sean

Reply via email to