home *** CD-ROM | disk | FTP | other *** search
/ Chip Hitware 7 / Chip_Hitware_Vol_07.iso / chiphit7 / online / tfind / com.mkr < prev    next >
Text File  |  1996-08-01  |  822b  |  48 lines
  1. # [INFO]
  2. # N:L÷sung des COM!-PreisrΣtsels senden
  3. # P:
  4. # I:Geben Sie das L÷sungswort zunΣchst offline ein und starten Sie dann die 
  5. # I:Anwahl zu T-Online.
  6.  
  7. # [CODE]
  8. # L÷sungswort erfassen und LΣnge in VAR
  9. # Len speichern
  10. input LWort: "L÷sungswort eingeben !", ""
  11. strlen Len of LWort
  12. # Sicherheitsabfrage, eingegebenes
  13. # L÷sungswort absenden?
  14. messagebox Return: "L÷sungswort absenden?", LWort, "YESNO"
  15. if Return == "NO" goto END
  16. # T-Online Anwahl
  17. connect
  18. # COM Gewinnspielseite aufrufen
  19. send "\*2088814404010\#"
  20. waitdct
  21. # L÷sungswort ⁿbergeben
  22. sendfield LWort, Len
  23. send "\r"
  24. waitdct
  25. # Absendername und Adresse bestΣtigen
  26. send "\r"
  27. waitdct
  28. send "\r"
  29. waitdct
  30. send "\r"
  31. waitdct
  32. send "\r"
  33. waitdct
  34. send "\r"
  35. waitdct
  36. # BestΣtigung Seite
  37. send "19"
  38. waitdct
  39.  
  40. END:
  41. send "\c\*0\#"
  42.  
  43.  
  44.  
  45.  
  46.  
  47.  
  48.