home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1996 November / VPR9611A.ISO / ols / win95 / ht315 / ht315.lzh / COPLOGIN.SCR < prev    next >
Text File  |  1996-05-08  |  6KB  |  158 lines
  1. ; コペルニクス用自動ログインスクリプト V 0.2
  2. ;
  3. ; （１）概要
  4. ;       コペルニクス用自動ログインスクリプトです。高速回線対応してます。
  5. ;       自動巡回等、したい場合は、同ネットに登録されている
  6. ;       竹田英雄さん作、Copauto等、ご利用下さい。
  7. ;
  8. ; （２）秀TERMホスト設定。
  9. ;       秀TERMのホスト設定は、以下の設定をして下さい。
  10. ;         旧JIS、ローカル編集、受信時、制御コード除去。
  11. ;         モデム初期化コマンドは、Ｖ４２接続を設定します。
  12. ;
  13. ; （３）ユーザＩＤ、パスワードの設定。
  14. ;       一番最初に接続した時に聞いてきます。
  15. ;       又は、秀TERMのスクリプトの実行でも設定できます。
  16. ;       入力したユーザＩＤ、パスワードは、
  17. ;       永久的変数に記憶されるので２回目以降は、自動ログインになります。
  18. ;       書き換えたい場合は、「スクリプト・変数一覧」で、
  19. ;       %COP_ID1と%%COP_PASSWORD1を削除してください。
  20. ;
  21. ; （４）ログ処理。
  22. ;       ログは、秀TERMのホストプロパティのログ設定で行います。
  23. ;
  24. ; （５）修正履歴
  25. ;       96/05/05 新規再作成。
  26. ;       96/05/08 K-NETからコペルニクスへコメント変更。
  27. ;                title文削除。Coplogin.Scrに名称変更。
  28. ;
  29. ;      このスクリプトは、竹田英雄さんのCopautoを参考に作成してあります。
  30. ;      永久変数は、同じ名称にしてあります。
  31. ;      竹田さん、ありがとうございます。
  32. ;      何かあればメールなりFWINCOM MES10で連絡して下さい。
  33. ;      竹島和夫    NIFTY：BYJ00102  e-mail：takeshima@jsn.justnet.or.jp
  34.  
  35.  
  36.         gethostname #HostName
  37.         if( #HostName == "" )
  38.                 question "スクリプトのセットアップをしますか？"
  39.                 if( yes )
  40.                         goto ScriptSetup
  41.                 endif
  42.         endif
  43.         afterhangup Atoshimatsu
  44.         sleep 2
  45.         send "COPER^M"
  46.         timeout 10
  47.         wait "コペルニクスへようこそ！"
  48.         if( timeout )
  49.           message "開始メッセージが表示されません。"
  50.           hangup
  51.         endif
  52.     
  53. ;ログイン処理。
  54.  
  55.         timeout 40                               ;タイムオーバー時、修正。
  56.         loopswitch
  57.                 case "USER ID  : ","USER ID: "
  58. EnterUserID:
  59.                         if( %COP_ID1 == "" )
  60.                           input "ユーザＩＤを入力してください。", %COP_ID1
  61.                                 if( cancel )
  62.                                         hangup
  63.                                 endif
  64.                         endif
  65.  
  66.                         send %COP_ID1 + "^M"
  67.  
  68.                 case "PASSWORD : "
  69. EnterPassword:
  70.                         #mes = "パスワードを入力してください。"
  71.                         if( %%COP_PASSWORD1 == "" )
  72.                                 secretinput #mes, %%COP_PASSWORD1
  73.                                 if( cancel )
  74.                                         hangup
  75.                                 endif
  76.                         endif
  77.                         #temp = %%COP_PASSWORD1
  78.                         if( #temp == "毎回入力する" )
  79.                                 secretinput #mes, #temp
  80.                                 if( cancel )
  81.                                         hangup
  82.                                 endif
  83.                         endif
  84.                         send #temp + "^M"
  85.  
  86.                 case "IDまたはPASSWORDが間違っています。訂正してください"
  87.                         %COP_ID1 = ""
  88.                         if( %%COP_PASSWORD1 != "毎回入力する" )
  89.                             %%COP_PASSWORD1 = ""
  90.                         endif                                
  91.  
  92.                 case "^M^J回線を切って下さい。^M^J"
  93.                       message "ホストからの回線切断要求です。"
  94.                       hangup
  95.  
  96.                 case "=","^M^J^G","^M^J　３．電子メール／ＦＡＸ【到着】"
  97.                         breakloop
  98.                 case timeout
  99.                         goto ErrorExit                
  100.         endloop
  101.        
  102.         exit
  103.  
  104.  
  105. ErrorExit:
  106.         message "ログインタイムオーバー。「timeout XXX」の値（秒）変更して試して下さい。"
  107.         message "このあと手動運転してください。"
  108.         exit
  109.  
  110. ;******************
  111. ;通話時間表示処理。
  112.  
  113. Atoshimatsu:
  114.         savebuffer
  115.         #hour = part( #1, 0, 2 )
  116.         #minute = part( #1, 2, 2 )
  117.         #second = part( #1, 4, 2 )
  118.         #mes = "通話時間は"
  119.         if( #hour != "00" )
  120.                 #mes = #mes + #hour + "時間"
  121.         endif
  122.           #mes = #mes + #minute + "分" + #second + "秒でした"
  123.           message #mes
  124. ;----------------------------------------------------------------
  125. ;秀Termを自動終了させる場合は、コメントを外して下さい。
  126.  
  127. ;        closehideterm
  128.  
  129. ;ここまで
  130. ;----------------------------------------------------------------
  131.         return
  132.  
  133. ;---------------------------------------------------------------------------
  134. ;スクリプトセットアップ。
  135.  
  136. ScriptSetup:
  137.         menu "Coplogin.Scrセットアップメニュー(Escで終了)", 0, "ユーザＩＤの変更", "パスワードの変更"
  138.         switch result
  139.                 case 0
  140.                         goto ScriptSetup
  141.                 case 1
  142.                         input "新しいユーザＩＤを入力して下さい。", %COP_ID1
  143.                         if( cancel ) goto ScriptSetup
  144.                         input "新しいパスワードを入力して下さい。ログイン毎に入力したい場合は何も入力せずにＯＫして下さい。", %%COP_PASSWORD1
  145.                         if( %%COP_PASSWORD1 == "" )
  146.                                 %%COP_PASSWORD1 = "毎回入力する"
  147.                         endif
  148.                         goto ScriptSetup
  149.                 case 2
  150.                         input "新しいパスワードを入力して下さい。ログイン毎に入力したい場合は何も入力せずにＯＫして下さい。", %%COP_PASSWORD1
  151.                         if( %%COP_PASSWORD1 == "" )
  152.                                 %%COP_PASSWORD1 = "毎回入力する"
  153.                         endif
  154.                         goto ScriptSetup
  155.         endswitch
  156.         exit
  157.  
  158.