home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1997 May / VPR9705A.ISO / OLS / Internet / TTERMP20 / DIALUP.TTL < prev    next >
Text File  |  1995-12-18  |  1KB  |  68 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. Password = 'MYPASSWORD'
  16.  
  17. ; initialize modem (see the manual for your modem)
  18. sendln  'ATZ'
  19. wait 'OK'
  20.  
  21. ; dial up
  22.  
  23. :dial
  24. send   DialPrefix
  25. sendln PhoneNumber
  26.  
  27. ; set timeout (30 sec)
  28. timeout = 30
  29.  
  30. ; wait for strings from modem
  31. wait 'CONNECT' 'BUSY' 'NO CARRIER'
  32.  
  33. ; pause 2 sec
  34. pause 2
  35.  
  36. ; timeout?
  37. if result=0 goto error
  38.  
  39. ; 'CONNECT'?
  40. if result=1 goto conn
  41.  
  42. ; 'BUSY'?
  43. if result=2 goto redial
  44.  
  45. ; 'NO CARRIER'
  46. if result=3 goto error
  47.  
  48. ; error. stop macro
  49. :error
  50. messagebox 'Dialing error!' 'Tera Term'
  51. end
  52.  
  53. :redial
  54. yesnobox 'Busy! Try again?' 'Tera Term'
  55. if result goto dial
  56. end
  57.  
  58. ; connect!
  59. :conn
  60.  
  61. ; login
  62. wait   UsernamePrompt
  63. sendln Username
  64.  
  65. wait   PasswordPrompt
  66. sendln Password
  67.  
  68. ; OK, auto login complete.