XProfan

Italia

p.specht

Vor Jahrzehnten gab es mal ein nützliches kleines DOS-Tool namens GrabURL.exe, das aber in der 64-bit-Welt von heute leider nicht mehr funktioniert. Anbei ein funktionell ähnliches Teil zum rohen Downloaden einzelner Files von Internetseiten auf den eigenen Desktop. Achtung: Gemäß EU-Recht sind Datenbanken vor Raubkopien mit besonders strengen Strafen geschützt!

DRINGENDER HINWEIS: Geladene File anschließend IMMER SOFORT auf Viren / Malware prüfen, falls Windows das nicht selbst macht!

Kompilieren Markieren Separieren

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-Man---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 dirExists(path$):print "\nERROR: Directory not 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 after trying DL!"
                else :cls:locate 1,1:print stat&;" byte downloaded in total.\n":endif
                print "File ";fnam$;" ready.\n\nAlways check for viruses!!!":beep:waitinput 10000:end