home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1997 March / VPR9703A.ISO / OLS / Win95 / HT315 / HT315.LZH / TELCOM.SCR < prev   
Text File  |  1996-04-08  |  9KB  |  229 lines
  1. ; 日経テレコム用自動ログインスクリプト V 0.4
  2. ;
  3. ; （１）概要
  4. ;       1200/2400回線兼用でNIFTYのアクセスポイントにも対応してます。
  5. ;       ニュース・テレコムをサポートします。
  6. ;
  7. ; （２）秀TERMホスト設定。
  8. ;       秀TERMのホスト設定は、以下の設定をして下さい。
  9. ;         旧JIS、７ビット、ローカルエコー、受信時、制御コード除去。
  10. ;         モデム初期化コマンドは、ＭＮＰ接続を設定します。
  11. ;
  12. ; （３）ユーザＩＤ、パスワード、チャージコードの設定。
  13. ;       一番最初に接続した時に聞いてきます。
  14. ;       又は、秀TERMのスクリプトの実行でも設定できます。
  15. ;       入力したユーザＩＤ、パスワード、チャージコードは、
  16. ;       永久的変数に記憶されるので２回目以降は、自動ログインになります。
  17. ;       書き換えたい場合は、「スクリプト・変数一覧」で、
  18. ;       %TCUSERIDと%%TCPasswordと%%TCCharegecodeを削除してください。
  19. ;
  20. ; （４）ログオフ処理。
  21. ;       ログオフ処理が必要な場合は、コメントを外して下さい。
  22. ;
  23. ; （５）ログ処理。
  24. ;       ログは、秀TERMのホストプロパティのログ設定でできます。
  25. ;       スクリプトでログ処理したい場合は、コメントを外して下さい。
  26. ;       その場合、ログオフ処理もコメントを外してください。
  27. ;       ログ形式は、TELmmdd.LOGです。必要ならスクリプトを修正して下さい。
  28. ;
  29. ; （６）修正履歴
  30. ;       96/04/06 ディスクトラブルの為、新規再作成。
  31. ;       96/04/08 パスワードエラー時、処理変更。::
  32. ;
  33. ;      何かあればメールなりFWINCOM MES10で連絡して下さい。
  34. ;      竹島和夫    NIFTY：BYJ00102  e-mail：takeshima@jsn.justnet.or.jp
  35.  
  36.  
  37.         title "日経テレコム"
  38.         gethostname #HostName
  39.         if( #HostName == "" )
  40.                 question "スクリプトのセットアップをしますか？"
  41.                 if( yes )
  42.                         goto ScriptSetup
  43.                 endif
  44.         endif
  45.  
  46.  
  47.         timeout 4
  48.         wait "1200"                              ;1200、2400回線判定
  49.         if( timeout )
  50.                 send " P^M"
  51.         endif
  52.         afterhangup Atoshimatsu
  53.         #frag = "0"
  54. ;---------------------------------------------------------------------------
  55. ;ログ処理。TELmmdd.LOGで取ります。必要な場合、コメントを外して下さい。
  56.  
  57. ;                getdate #date
  58. ;                log "TEL" + part( #date, 2, 4 ) + ".LOG"
  59. ;---------------------------------------------------------------------------
  60.  
  61. ;ログイン処理。
  62.  
  63.         timeout 40                               ;タイムオーバー時、修正。
  64.         loopswitch
  65.                 case "WELCOME! NIKKEI^M^J"       ;日経専用回線
  66.                         send "C NKS70^M"
  67.  
  68.                 case "HOST NAME?^M^J"            ;NIFTY回線
  69.                         send "C NKS70^M"
  70.  
  71.                 case "TYPE <CR>"
  72.                         send "VT^M"
  73.  
  74.  
  75.                 case "#ENTER USERCODE.^M^J"
  76. EnterUserID:
  77.                         if( %TCUSERID == "" )
  78.                           input "ユーザＩＤを入力してください。", %TCUSERID
  79.                                 if( cancel )
  80.                                         hangup
  81.                                 endif
  82.                         endif
  83.  
  84.                         send %TCUSERID + "^M"
  85.                         #frag = "1"
  86.  
  87.                 case "#ENTER PASSWORD.^M^J"
  88. EnterPassword:
  89.                         #mes = "パスワードを入力してください。"
  90.                         if( %%TCPassword == "" )
  91.                                 secretinput #mes, %%TCPassword
  92.                                 if( cancel )
  93.                                         hangup
  94.                                 endif
  95.                         endif
  96.                         #temp = %%TCPassword
  97.                         if( #temp == "毎回入力する" )
  98.                                 secretinput #mes, #temp
  99.                                 if( cancel )
  100.                                         hangup
  101.                                 endif
  102.                         endif
  103.                         send #temp + "^M"
  104.                         #frag = "2"
  105.  
  106.                 case "#ENTER CHARGE CODE.^M^J"
  107. EnterChargecode:
  108.                         #mes = "チャージコードを入力してください。"
  109.                         if( %%TCCharegecode == "" )
  110.                                 secretinput #mes, %%TCCharegecode
  111.                                 if( cancel )
  112.                                         hangup
  113.                                 endif
  114.                         endif
  115.                         #temp = %%TCCharegecode
  116.                         if( #temp == "毎回入力する" )
  117.                                 secretinput #mes, #temp
  118.                                 if( cancel )
  119.                                         hangup
  120.                                 endif
  121.                         endif
  122.                         send #temp + "^M"
  123.  
  124.  
  125.                 case "#INVALID CHARGE"
  126.                         if( %%TCCharegecode != "毎回入力する" )
  127.                                 %%TCCharegecode = ""
  128.                         endif
  129.                         goto EnterCharegecode
  130.                         
  131.  
  132.                 case "#INVALID USERCODE/PASSWORD; ENTER USERCODE"
  133.                         if( #frag == "1" )
  134.                                 %TCUSERID = ""
  135.                             else
  136.                                 if( %%TCPassword != "毎回入力する" )
  137.                                        %%TCPassword = ""
  138.                                 endif                                
  139.                         endif
  140.                         #frag = "0"
  141.                         goto EnterUserID
  142.  
  143.                 case "#YOUR CHARGECODE IS"
  144.                         breakloop
  145.                 case timeout
  146.                         goto ErrorExit                
  147.         endloop
  148.  
  149. ;--------------------------------------------------------------------------
  150. ;ログオフ処理。必要な場合、コメントを外してして下さい。
  151.  
  152. ;WaitLogoff:
  153. ;        timeout 0
  154. ;        wait "ご利用ありがとうございました。^M^J"
  155. ;        timeout 10
  156. ;        wait "LOGGED OFF AT ", postmilliidle(500) "*"
  157. ;        if( timeout ) goto WaitLogOff
  158. ;        hangup
  159.  
  160. ;ここまで
  161. ;--------------------------------------------------------------------------
  162.         exit
  163.  
  164.  
  165. ErrorExit:
  166.         message "ログインタイムオーバー。「timeout XXX」の値（秒）変更して試して下さい。"
  167.         message "このあと手動運転してください。"
  168.         exit
  169.  
  170. ;******************
  171. ;通話時間表示処理。
  172.  
  173. Atoshimatsu:
  174.         savebuffer
  175.         #hour = part( #1, 0, 2 )
  176.         #minute = part( #1, 2, 2 )
  177.         #second = part( #1, 4, 2 )
  178.         #mes = "通話時間は"
  179.         if( #hour != "00" )
  180.                 #mes = #mes + #hour + "時間"
  181.         endif
  182.           #mes = #mes + #minute + "分" + #second + "秒でした"
  183.           message #mes
  184. ;----------------------------------------------------------------
  185. ;秀Termを自動終了させる場合は、コメントを外して下さい。
  186.  
  187. ;        closehideterm
  188.  
  189. ;ここまで
  190. ;----------------------------------------------------------------
  191.         return
  192.  
  193. ;******************
  194.  
  195. ;スクリプトセットアップ。
  196.  
  197. ScriptSetup:
  198.         menu "TELCOM.SCRセットアップメニュー(Escで終了)", 0, "ユーザＩＤの変更", "パスワードの変更", "チャージコードの変更"
  199.         switch result
  200.                 case 0
  201.                         goto ScriptSetup
  202.                 case 1
  203.                         input "新しいユーザＩＤを入力して下さい。", %TCUSERID
  204.                         if( cancel ) goto ScriptSetup
  205.                         input "新しいパスワードを入力して下さい。ログイン毎に入力したい場合は何も入力せずにＯＫして下さい。", %%TCPassword
  206.                         if( %%TCPassword == "" )
  207.                                 %%TCPassword = "毎回入力する"
  208.                         endif
  209.                         input "新しいチャージコードを入力して下さい。ログイン毎に入力したい場合は何も入力せずにＯＫして下さい。", %%TCCharegecode
  210.                         if( %%TCCharegecode == "" )
  211.                                 %%TCCharegecode = "毎回入力する"
  212.                         endif
  213.                         goto ScriptSetup
  214.                 case 2
  215.                         input "新しいパスワードを入力して下さい。ログイン毎に入力したい場合は何も入力せずにＯＫして下さい。", %%TCPassword
  216.                         if( %%TCPassword == "" )
  217.                                 %%TCPassword = "毎回入力する"
  218.                         endif
  219.                         goto ScriptSetup
  220.                 case 3
  221.                         input "新しいチャージコードを入力して下さい。ログイン毎に入力したい場合は何も入力せずにＯＫして下さい。", %%TCCharegecode
  222.                         if( %%TCCharegecode == "" )
  223.                                 %%TCCharegecode = "毎回入力する"
  224.                         endif
  225.                         goto ScriptSetup
  226.         endswitch
  227.         exit
  228.  
  229.