XProfan

Español

p.specht

Vor Jahrzehnten gab lo veces una nützliches kleines DOS-Tool nombre GrabURL.exe, el aber en el 64-bit-Welt de heute por desgracia, no mehr funktioniert. Anbei una funktionell ähnliches Teil para rohen Downloaden einzelner Files de Internetseiten en el eigenen Desktop. Achtung: Gemäß EU-Recht son Datenbanken antes Raubkopien con besonders strengen Strafen geschützt!

DRINGENDER HINWEIS: Geladene Archivos anschließend IMMER SOFORT en Viren / Malware prüfen, si Windows el no incluso macht!

Kompilieren Marca Separación

Windowtitle "GrabFromURL":declarar 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"
imprimir "FROM URL incl.'http' part: ";:input u$:caso u$>"":url$=u$
imprimir "TO Filename on Desktop: ";:input u$:caso u$>"":fnam$=path$+u$

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

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

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

        if stat&>0:CLS:más :imprimir "Sorry, no DL possible!":beep:waitinput 60000:end :endif

            mientras que %loading:locate 1,1:stat&=&BytesRead:imprimir stat&;" bytes read...";:waitinput 250:endwhile

                stat&=&BytesRead:if stat&=-1:locate 1,1:imprimir "Error after trying DL!"
                más :cls:locate 1,1:imprimir stat&;" byte downloaded en total.\n":endif
                imprimir "File ";fnam$;" ready.\n\nAlways check for viruses!!!":beep:waitinput 10000:end