home *** CD-ROM | disk | FTP | other *** search
- // ukßzka Φ.6 - script pou₧φvajφcφ ji₧ d°φve navßzanΘ spojenφ. Toto spojenφ
- // ------------ navßzalo pou₧itφ parametr∙ -c/-a nebo p°edchozφ script
- // analogick² ukßzkßm Φ.4 a Φ.5 (po skonΦenφ scriptu obsluha
- // na dotaz programu nezvolila variantu "ukonΦit spojenφ")
-
- // Pou₧ity p°φkazy: Send, WaitFor, OutputFile, CloseOutput, Input
- // Respektuje d°φve navßzanΘ spojenφ
-
- // Script nßsleduje typicky po parametru "-c <adresa> 80" a umo₧nφ p°ijmout
- // jeden soubor protokolem http
-
- Input "Zadejte jmΘno souboru, kter² chcete p°ijmout:"
- // Do systΘmovΘ prom∞nnΘ line je ulo₧eno jmΘno souboru zadanΘ obsluhou
-
- Send "GET /" 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
-
- 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.
-