Español
Fuente/ Codesnippets

GrabFromURL

 

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!
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
 
XProfan 11
Computer: Gerät, daß es in Mikrosekunden erlaubt, 50.000 Fehler zu machen, zB 'daß' statt 'das'...
11.05.2021  
 



Zum Quelltext


Título del Tema, max. 100 Signo.
 

Systemprofile:

Kein Systemprofil creado. [anlegen]

XProfan:

 Contribución  Font  Smilies  ▼ 

Bitte registro en una Contribución a verfassen.
 

Tema opciones

591 Views

Untitledvor 0 min.
ScanMaster07.08.2024
Ernst21.07.2021
Uwe ''Pascal'' Niemeier13.06.2021
R.Schneider28.05.2021
Más...

Themeninformationen

Dieses Thema ha 1 subscriber:

p.specht (1x)


Admins  |  AGB  |  Applications  |  Autores  |  Chat  |  Política de Privacidad  |  Descargar  |  Entrance  |  Ayuda  |  Merchantportal  |  Pie de imprenta  |  Mart  |  Interfaces  |  SDK  |  Services  |  Juegos  |  Búsqueda  |  Support

Ein Projekt aller XProfan, el lo son!


Mi XProfan
Privado Noticias
Eigenes Ablageforum
Temas-Merkliste
Eigene Beiträge
Eigene Temas
Zwischenablage
Cancelar
 Deutsch English Français Español Italia
Traducciones

Política de Privacidad


Wir uso Cookies sólo como Session-Cookies wegen el technischen Notwendigkeit y en uns hay no Cookies de Drittanbietern.

Wenn du hier en unsere Webseite klickst oder navigierst, stimmst du unserer Erfassung de Informationen en unseren Cookies en XProfan.Net a.

Weitere Informationen a unseren Cookies y dazu, como du el Kontrolle darüber behältst, findest du en unserer nachfolgenden Datenschutzerklärung.


einverstandenDatenschutzerklärung
Yo möchte no Cookie