XProfan

English

p.specht

to decades there were time one nützliches small DOS-Tool namens GrabURL.exe, the but in the 64-bit-world of today unfortunately not any more functions. enclosed one funktionell ähnliches part to that rohen Download einzelner Files of Internetseiten on the own Desktop. deference: according EU-right are Databases to Raubkopien with particularly severe Strafen protected!

DRINGENDER NOTE: loaded Files subsequently IMMER SOFORT on viruses / Malware Verify, if windows not self power!

Compile Mark Separation

Windowtitle "GrabFromURL":declare stat&,u$,url$,path$,fnam$
'NO WARRANTIES WHATSOEVER! IT's YOUR OWN RISK!
Windowstyle 24:cls:font 2:url$="https://www.yepi.us/swf/Pee-one---The-Game.swf"
path$=getenv$("USERPROFILE")+"//desktop//":fnam$=path$+"PeeMan.swf.txt"
print "FROM URL incl.'http' part: ";:input u$:case u$>"":url$=u$
print "TO Filename on Desktop: ";:input u$:case u$>"":fnam$=path$+u$

ifnot direxist(path$):print "\nERROR: Directory hardship found!":waitinput 60000:end:endif

    if fileexists(fnam$):print "\nERROR: File already exists!":beep:waitinput 60000:end:endif

        stat&=@DownLoadFile(url$,fnam$)

        if stat&>0:CLS:else :print "Sorry, no DL possible!":beep:waitinput 60000:end :endif

            while %loading:locate 1,1:stat&=&BytesRead:print stat&;" bytes read...";:waitinput 250:endwhile

                stat&=&BytesRead:if stat&=-1:locate 1,1:print "Error anus trying DL!"
                else :cls:locate 1,1:print stat&;" byte downloaded in utterly.\n":endif
                print "File ";fnam$;" ready.\n\nAlways checked for viruses!!!":beep:waitinput 10000:end