home *** CD-ROM | disk | FTP | other *** search
/ c't freeware shareware 2001 January / CT_SW0101.ISO / mac / software / kommunik / misc / zoc400wg.exe / setup.fil / script / RXSAMPLE / MANUAL / LOGIN2.ZRX < prev    next >
Text File  |  1996-09-16  |  2KB  |  70 lines
  1. /* Dieses REXX-Programm zeigt das automatische Einloggen in
  2.    eine Mailbox und startet automatisch einen Download */
  3.  
  4. CALL ZocTimeout 60   /* Maximale Wartezeit */
  5.  
  6. /***** auf Name warten und evtl. abbrechen *****/
  7. timeout= ZocWait("Name?")
  8. IF timeout=0 THEN DO
  9.    /* "Name?" empfangen */
  10.    CALL ZocSend "Zaphod^M"
  11. END
  12. ELSE DO
  13.    /* "Name?" nicht empfangen */
  14.    CALL ZocWriteln "FEHLER (Name)!!"
  15.    SIGNAL BailOut   /* hier wird zum Ende gesprungen */
  16. END
  17.  
  18. /***** auf Pa·wort warten und evtl. abbrechen *****/
  19. timeout= ZocWait("Pa·wort?")
  20. IF timeout=0 THEN DO
  21.    /* "Pa·wort?" empfangen */
  22.    CALL ZocSend "HeartOfGold^M"
  23. END
  24. ELSE DO
  25.    /* "Pa·wort?" nicht empfangen */
  26.    CALL ZocWriteln "FEHLER (Pa·wort)!!"
  27.    CALL ZocHangup
  28.    SIGNAL BailOut
  29. END
  30.  
  31. /***** öberspringe alle BegrÅ·ungsseiten und *****/
  32. /***** ggfs. eine Sicherheitsabfrage         *****/
  33.  
  34. CALL ZocReply "Weiter mit Return", "^M" 
  35. CALL ZocReply "Bitte Geburtsdatum eingeben", "180169^M" 
  36.  
  37. CALL ZocWait "HauptmenÅ"   /* wir hoffen, da· alles bis hierher */
  38.                            /* funktioniert hat                  */
  39.  
  40. CALL ZocReply "Weiter mit Return"         /* ZocReply's lîschen */
  41. CALL ZocReply "Bitte Geburtsdatum eingeben"
  42.  
  43. /***** Auf Prompt warten und alle Befehle     *****/
  44. /***** senden, um das Nachrichten-Paket       *****/
  45. /***** per Zmodem zu empfangen                *****/
  46.  
  47. CALL ZocWait "Befehl>"
  48. CALL ZocSend "MAIL^M"
  49.  
  50. CALL ZocWait "Befehl>"
  51. CALL ZocSend "RECEIVE^M"
  52.  
  53. CALL ZocWait "Protokoll>"
  54. CALL ZocSend "ZMODEM^M"
  55.  
  56. /* Download ins Verzeichnis C:\MAIL starten */
  57. CALL ZocDownload "ZMODEM", "C:\MAIL"
  58.  
  59. /***** ZurÅck ins HauptmenÅ und Mailbox       *****/
  60. /***** mit LOGOUT verlassen                   *****/
  61.  
  62. CALL ZocSend "QUIT^M"
  63.  
  64. CALL ZocWait "Befehl>"
  65. CALL ZocSend "LOGOUT^M"
  66.  
  67. BailOut:  /* der SIGNAL Befehl von oben landet hier */ 
  68. CALL ZocHangup
  69. EXIT
  70.