home *** CD-ROM | disk | FTP | other *** search
/ com!online 2001 December / COMCD1201.iso / tonline / software / data1.cab / Software / MAKRO / BEISPIEL / WAITDCT.MKR < prev    next >
Encoding:
Text File  |  2001-08-13  |  861 b   |  28 lines
  1. #   -----------------------------------------
  2. #   - Beispielmakro fuer den Befehl waitdct -
  3. #   -----------------------------------------
  4.  
  5. #   Protokollfensterausgaben ermoeglichen
  6. set PROTWIN = "on"
  7. debug "Makroname: ", argv_0, "\n"
  8.  
  9. #   Nullseite aufrufen, wenn keine Verbindung zu T-Online
  10. #   besteht, wird automatisch eine Anwahl durchgefuehrt
  11. send "\*0\#"
  12. #   Auf Seitenende warten.
  13. waitdct
  14.  
  15. #   EInige Muellzeichen in die Eingabezeile streuen
  16. send "AA"
  17.  
  18. #   Timeout fuer waitdct-Befehl setzen (10 Sekunden)
  19. messagebox Antwort: "Hinweis", "Wir erzeugen jetzt absichtlich einen Timeout-Fehler\nBitte nach \"OK\" 10 Sekunden warten", "OK"
  20. set DCTTIME = "10"
  21.  
  22. #   Wegen der Muellzeichen (s.o.) wird keine Seitenwahl ausgefuehrt
  23. #   also kommt auch kein Seitenende => Timeout schlaegt bei waitdct zu
  24. send "\*telekom\#"
  25. waitdct
  26.  
  27. end
  28.