home *** CD-ROM | disk | FTP | other *** search
- // ukßzka Φ.7 - script podobn² ukßzce Φ.6, ovÜem stahujφcφ soubor p°es proxy
- // ------------ server (typu http-proxy)
-
- // Pou₧ity p°φkazy: Send, WaitFor, OutputFile, CloseOutput, Input
- // Respektuje d°φve navßzanΘ spojenφ
-
- // Script nßsleduje typicky po parametru "-c <proxy-server> <proxy-port>" a
- // umo₧nφ p°ijmout jeden soubor z http-proxy protokolem http, ftp nebo gopher
-
- Input "Zadejte protokol (http, ftp nebo gopher):"
- // Do systΘmovΘ prom∞nnΘ line je ulo₧en text protokolu
-
- Send "GET " line "://"
- // Zaslßn prefix protokolu
-
- Input "Zadejte jmΘno poΦφtaΦe (IP-adresu nebo DNS-jmΘno):"
- // Do systΘmovΘ prom∞nnΘ line je ulo₧eno jmΘno poΦφtaΦe, z n∞ho₧ se mß soubor
- // stßhnout
-
- Send line "/"
- // Zaslßno jmΘno poΦφtaΦe
-
- Input "Zadejte jmΘno souboru, kter² chcete p°ijmout:"
- // Do systΘmovΘ prom∞nnΘ line je ulo₧eno jmΘno souboru zadanΘ obsluhou
-
- Send line " HTTP/1.0" nl
- Send "User-Agent: TCPBatch (Win95)" nl
- Send "Accept: image/gif, image/jpeg" nl
- Send nl
- // Zaslßna typickß ₧ßdost o soubor. Nßsledujφcφ Φßsti jsou ji₧ shodnΘ
- // s ukßzkou Φ.6
-
- WaitFor EmptyLine
- // P°eskoΦφ zßhlavφ dokumentu, kterΘ je ukonΦeno prßzdnou °ßdkou
-
- OutputFile PRIJATO.DAT
- // Od tohoto okam₧iku budou p°ijφmanß data binßrn∞ opisovßna do souboru
- // PRIJATO.DAT v tomtΘ₧ adresß°i, kde je ulo₧en script
-
- WaitFor End
- // NaΦte data a₧ do ukonΦenφ spojenφ, souΦasn∞ je zapisuje do souboru. Spojenφ
- // se uzav°e samo, nenφ nutnΘ provßd∞t Disconnect
-
- CloseOutput
- // Uzav°e soubor (nenφ nutnΘ explicitn∞, ukonΦenφ interpretace vÜech script∙
- // uzavφrß soubor samo od sebe). Soubor je nynφ pou₧iteln² jin²mi programy.
-