; GetURL
; ------
; Download specified page from Internet and store
; in result.txt
; 
;report on
;debug on
;step on
setvar J,result.txt
setfont verdana,12,B
banner Get URL File
delay 15
banoff
setfont verdana,8,
EditBox GetURL,Enter the URL to retrieve,A
ifmsg CANCEL,exit
banner Retrieving file from Internet...
delay 15

geturl %A,F
banoff
delay 10
iferror noserver
dbgbox, %F
copyfile %F,%J,YES
getdir D
msgbox GetURL,File is stored as %D\\%J,0
goto exit

:noserver
msgbox GetURL,Couldn't contact server,0
goto exit

:exit