home *** CD-ROM | disk | FTP | other *** search
/ PC World 1997 November / PCWorld_1997-11_cd.bin / software / programy / FBL / TCPBATCH / DEMO / SCRIPTS / UKAZKA04.TCP < prev    next >
Encoding:
Text File  |  1997-07-13  |  1.8 KB  |  46 lines
  1. // ukßzka Φ.4 - script demonstrujφcφ jedno z mo₧n²ch pou₧itφ check box∙
  2.  
  3. // Pou₧ity p°φkazy: Connect, Send, IfDef, ShowCheckBox, TestCheck, WaitCheck
  4. // Na konci scriptu z∙stßvß spojenφ otev°eno, je mo₧nΘ na n∞m pracovat za
  5. // pou₧itφ dalÜφho scriptu s jinou sadou p°φkaz∙
  6.  
  7. // Na zaΦßtku scriptu zobrazφm Üest check box∙, p°iΦem₧ poslednφ z nich je
  8. // oznaΦen tehdy, kdy₧ obsluha vlastn∞ potvrzuje sprßvnost oznaΦenφ vÜech
  9. // p°edchozφch check box∙ (konfigurujφcφch chovßnφ scriptu)
  10. ShowCheckBox cb_Conn_Netscape "Spojenφ s Netscape serverem"
  11. ShowCheckBox cb_Conn_Microsoft "Spojenφ s Microsoft serverem"
  12. ShowCheckBox cb_Conn_FBL "Spojenφ s FBL serverem"
  13. ShowCheckBox cb_Send_1 "Odeslat °ßdku s v²zvou"
  14. ShowCheckBox cb_Send_2 "Odeslat °ßdku s up°esn∞nφm obsahu"
  15. ShowCheckBox cb_Start "V²b∞r ukonΦen, spus¥ script"
  16.  
  17. WaitCheck cb_Start
  18. // P°φkaz poΦkß na oznaΦenφ check boxu cb_Start, b∞hem Φekßnφ m∙₧e obsluha
  19. // libovoln∞ m∞nit oznaΦenφ ostatnφch check box∙ myÜφ nebo klßvesami
  20.  
  21. TestCheck cb_Conn_Netscape
  22. IfDef CHECKED Connect www.netscape.com 80
  23. // Pokud je oznaΦen "Spojenφ s Netscape serverem", p°ipoj se tam
  24.  
  25. TestCheck cb_Conn_Microsoft
  26. IfDef CHECKED Connect www.microsoft.com 80
  27. // Pokud je oznaΦen "Spojenφ s Microsoft serverem", p°ipoj se tam
  28.  
  29. TestCheck cb_Conn_FBL
  30. IfDef CHECKED Connect www.fbl.cz 80
  31. // Pokud je oznaΦen "Spojenφ s FBL serverem", p°ipoj se tam
  32.  
  33. // v tuto chvφli ji₧ je spojenφ s jednφm ze subjekt∙ navßzßno, oΦekßvßme
  34. // toti₧, ₧e aspo≥ jeden z prvnφch t°φ check box∙ oznaΦen byl
  35.  
  36. TestCheck cb_Send_1
  37. IfDef CHECKED Send "GET /" nl
  38. // Pokud je oznaΦen "Odeslat °ßdku s v²zvou", odeÜli frßzi "GET"
  39.  
  40. TestCheck cb_Send_2
  41. IfDef CHECKED Send "Content-Type: text/plain" nl
  42. // Pokud je oznaΦen "Odeslat °ßdku s up°esn∞nφm obsahu", odeÜli frßzi
  43. // "Content-Type"
  44.  
  45. // spojenφ z∙stßvß otev°eno
  46.