home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1997 February / VPR9702B.ISO / terminal / wtalkbbs / pcout.hsc < prev    next >
Text File  |  1996-07-11  |  1KB  |  78 lines
  1. #
  2. # PC-VAN用ログアウトスクリプト
  3. #
  4. # 修正履歴
  5. # ----------+-----------------------------------------------
  6. # Ver1.0
  7. # Ver2.0     WorldTALK V2.0対応
  8. #
  9. # 外部変数
  10. # LOGINSTATUS -1    エラー発生で終了
  11. #             0     実行中
  12. #             1     正常終了
  13. #
  14. #
  15. 自動ログアウト() :
  16. DISPLOGX('スクリプトバージョン:V2.0')
  17.  
  18.  LOGINSTATUS = 0
  19.  ONLINE      = 1
  20.  FLUSHPORT()
  21.  SETTIMEOUT(15)
  22.  STARTTIMER()
  23.  
  24. #ログアウトコマンド発行
  25.  SEND('LOGOUT')
  26. #'LOGOUT'を待つ
  27. レスポンス受信:
  28.  DATA=RECV()
  29.  LEN = STRLEN(DATA)
  30.  POS = STRPOS(DATA,'LOGOUT')
  31.  IF LEN == POS
  32.   POS = STRPOS(DATA,'NO CARR' )
  33.   IF LEN == POS
  34.    GOTO レスポンス受信
  35.   ELSE
  36.    GOTO 正常終了
  37.   END
  38.  END
  39.  
  40. #"番号またはコマンド"を受信
  41. プロンプト受信:
  42.  DATA=RECV()
  43.  LEN = STRLEN(DATA)
  44.  POS = STRPOS(DATA,'番号またはコマンド')
  45.  IF LEN == POS
  46.   GOTO プロンプト受信
  47.  END
  48.  SEND('Q')
  49.  RECV()
  50.  
  51. ログアウトメッセージ確認:
  52.  DATA=RECV()
  53.  LEN = STRLEN(DATA)
  54.  POS = STRPOS(DATA,'SEE YOU')
  55.  IF LEN != POS
  56.   GOTO 正常終了
  57.  ELSE
  58.   DISPLOG(DATA)
  59.   PUTLOG(DATA)
  60.   GOTO ログアウトメッセージ確認
  61.  END
  62.  
  63. 正常終了 :
  64.  SETLINEOFF()
  65.  LOGINSTATUS = 0
  66.  RETURN
  67. END
  68.  
  69. エラー発生() :
  70.  MESSAGEBOX("エラー発生"+_ERR_C+":"+STRING(_ERR_D))
  71.  IF ONLINE == 1
  72.   DISPSTATE(1)
  73.   ONHOOK()
  74.  END
  75.  LOGINSTATUS = -1
  76. END
  77.  
  78.