home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 December / chip12_99.iso / offline / internet / ssh / ttermp23 / dialup.tt_ / dialup.tt
Text File  |  1997-06-30  |  1KB  |  69 lines
  1. ; Sample macro for Tera Term
  2. ;  Dial-up login
  3.  
  4. ; open Tera Term
  5. ;   command line = 'TERATERM /C=1' (COM1 port)
  6. connect '/C=1'
  7.  
  8. DialPrefix = 'ATD'
  9.  
  10. ; set phone number, username, and password
  11. PhoneNumber = '0000000000'
  12. UsernamePrompt = 'Username:'
  13. Username = 'MYNAME'
  14. PasswordPrompt = 'Password:'
  15. ; get password from file
  16. getpassword 'password.dat' 'mypassword' Password
  17.  
  18. ; initialize modem (see the manual for your modem)
  19. sendln  'ATZ'
  20. wait 'OK'
  21.  
  22. ; dial up
  23.  
  24. :dial
  25. send   DialPrefix
  26. sendln PhoneNumber
  27.  
  28. ; set timeout (30 sec)
  29. timeout = 30
  30.  
  31. ; wait for strings from modem
  32. wait 'CONNECT' 'BUSY' 'NO CARRIER'
  33.  
  34. ; pause 2 sec
  35. pause 2
  36.  
  37. ; timeout?
  38. if result=0 goto error
  39.  
  40. ; 'CONNECT'?
  41. if result=1 goto conn
  42.  
  43. ; 'BUSY'?
  44. if result=2 goto redial
  45.  
  46. ; 'NO CARRIER'
  47. if result=3 goto error
  48.  
  49. ; error. stop macro
  50. :error
  51. messagebox 'Dialing error!' 'Tera Term'
  52. end
  53.  
  54. :redial
  55. yesnobox 'Busy! Try again?' 'Tera Term'
  56. if result goto dial
  57. end
  58.  
  59. ; connect!
  60. :conn
  61.  
  62. ; login
  63. wait   UsernamePrompt
  64. sendln Username
  65.  
  66. wait   PasswordPrompt
  67. sendln Password
  68.  
  69. ; OK, auto login complete.