XProfan

Français

p.specht

avant Jahrzehnten donnais es la fois un nützliches kleines DOS-Tool nommé GrabURL.exe, cela mais dans qui 64-bit-monde de aujourd'hui malheureusement pas plus funktioniert. Anbei un funktionell ähnliches partie zum rohen Downloaden einzelner Files de Internetseiten sur den eigenen Desktop. attention: Gemäß EU-droite sommes Datenbanken avant Raubkopien avec besonders strengen Strafen geschützt!

DRINGENDER HINWEIS: Geladene Fichiers anschließend IMMER SOFORT sur Viren / Malware vérifier, si Windows cela pas selbst pouvoir!

Kompilieren Marque Séparation

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-on---The-Game.swf"
path$=getenv$("USERPROFILE")+"//desktop//":fnam$=path$+"PeeMan.swf.txt"
imprimer "FROM URL incl.'http' part: ";:input u$:cas u$>»:url$=u$
imprimer "TO Filename on Desktop: ";:input u$:cas u$>»:fnam$=path$+u$

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

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

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

        si stat&>0:CLS:d'autre :imprimer "Sorry, no DL possible!":beep:waitinput 60000:end :endif

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

                stat&=&BytesRead:si stat&=-1:locate 1,1:imprimer "Error after trying DL!"
                d'autre :cls:locate 1,1:imprimer stat&;" byte downloaded dans total.\n":endif
                imprimer "File ";fnam$;" ready.\n\nAlways check for viruses!!!":beep:waitinput 10000:end