home *** CD-ROM | disk | FTP | other *** search
/ Curio City 9 / CURIO9.bin / pc / internet / win / w95nim / program / data.z / NIFROAD.SCR < prev    next >
Text File  |  1997-09-10  |  4KB  |  166 lines
  1. #
  2. #  NIFTY-ROAD
  3. #
  4. WaitMsg = "\x0Dしばらくしてからやりなおしてください";
  5. CR = "\x0D";
  6.  
  7. show "NIFTY" & ROAD & "に接続開始";
  8.  
  9. Tries = 8;
  10. Wait_FENICS:
  11.     if Tries == 0 goto Return_Failure;
  12.     Tries = Tries - 1;
  13.     wait
  14.         "ogin:"                    goto Send_C_NIM_Host7,
  15.         "assword:"                goto Send_C_NIM_Host8,
  16.         "Bad Password"            goto Send_C_NIM_Host2,
  17.         "Connection-ID  --->"    goto Send_SHP_Host,
  18.         "User-ID  --->"            goto Start_LOGIN,
  19.         "Host busy:"            goto Return_Failure_OCC,
  20.         "Clear DTE"        goto Send_C_NIM_Host2,
  21.         "Clear OCC"        goto Return_Failure_OCC,
  22.         "Clear PAD"        goto Send_C_NIM_Host2,
  23.         "Clear NA"        goto Return_Failure_NA,
  24.         "Clear NP"        goto Return_Failure_NP,
  25.         "Clear NC"        goto Return_Failure_NC,
  26.         "Clear DER"        goto Return_Failure_DER,
  27.         "Clear RPE"        goto Return_Failure_RPE,
  28.     until 80;
  29.     goto Wait_FENICS;
  30.  
  31. Send_C_NIM_Host7:
  32.     show "ホストネーム送信中...";
  33.     wait until 10;
  34.     send "NIFNIM" & CR; 
  35.     goto Wait_FENICS;
  36. Send_C_NIM_Host8:
  37.     wait until 10;
  38.     send CR; 
  39.     goto Wait_FENICS;
  40. Send_C_NIM_Host2:
  41.     show "センターホストに再接続中...";
  42.     wait until 10;
  43.     goto Wait_FENICS;
  44. Send_SHP_Host:
  45.     show "コネクションＩＤ送出中...";
  46.     wait until 10;
  47.     send "SHP" & CR;
  48.     goto Wait_FENICS;
  49.     
  50. Start_LOGIN:
  51. UID = %UserID;
  52. Tries = 5;
  53. Send_UID:
  54.     show "ユーザーＩＤ送出中...";
  55.     wait until 10;
  56.     send UID & CR;
  57. Wait_LOGIN:
  58.     if Tries == 0 goto Return_Failure;
  59.     Tries = Tries - 1;
  60.     wait
  61.         "User-ID  --->"            goto Send_UID,
  62.         "User-ID Error"            goto Enter_UID,
  63.         "Password --->"            goto Start_PSW,
  64.         "◆あなたのIDは都合により"    goto Return_ID_NG_1,
  65.         "保守作業の"    goto Return_MENTE2,
  66.         "Clear DTE"            goto Return_Failure_DTE,
  67.         "Clear PAD"            goto Return_Failure_PAD,
  68.         "Clear NC"            goto Return_Failure_NC,
  69.     until 80;
  70.     send CR;
  71.     goto Wait_LOGIN;
  72.  
  73. Enter_UID:
  74.     input "正しいユーザーＩＤを入力して下さい" UID EON 1200;
  75.     if UID goto Wait_LOGIN;
  76.     errexit "ユーザーＩＤ入力タイムアウト";
  77.  
  78. Start_PSW:
  79.     PWD = %Password;
  80.     Tries = 5;
  81. Send_PSW:
  82.     show "パスワード送出中...";
  83.     wait until 10;
  84.     send PWD & CR;
  85. Wait_PASSWORD:
  86.     if Tries == 0 goto Return_Failure;
  87.     Tries = Tries - 1;
  88.     wait
  89.         "Password --->"            goto Send_PSW,
  90.         "Password ERROR"        goto Enter_PSW,
  91.         %ESC & "I"            goto Return_Success,
  92.         "大変混雑"            goto Return_BUSY,
  93.         "◆あなたのIDは都合により"    goto Return_ID_NG_1,
  94.         "定期保守"            goto Return_MENTE,
  95.         "Service is currently"    goto Return_MENTE,
  96.         "◆只今の時間はご利用"        goto Return_MHA,
  97.         "◆二重ログイン"        goto Return_LOGIN,
  98.         "Clear DTE"            goto Return_Failure_DTE,
  99.         "Clear PAD"            goto Return_Failure_PAD,
  100.         "Clear NC"            goto Return_Failure_NC,
  101.     until 80;
  102.     goto Wait_PASSWORD;
  103.  
  104. Enter_PSW:
  105.     input "正しいパスワードを入力して下さい" PWD EOFF 1200;
  106.     if PWD goto Wait_PASSWORD;
  107.     errexit "パスワード入力タイムアウト";
  108.  
  109. Return_Success:
  110.   show "NIFTY" & ROAD & "に接続しました";
  111.   exit;
  112.  
  113. Return_Failure:
  114.   errexit "NIFTY" & ROAD & "に接続できません";
  115.  
  116. Return_Failure_DTE:
  117.   errexit "ホストから着信が拒否されました。"
  118.       & WaitMsg;
  119.  
  120. Return_Failure_OCC:
  121.   errexit "ホストビジー(ホストの論理回線がすべて使用中です)";
  122.  
  123. Return_Failure_PAD:
  124.   errexit "ホストからの解放要求により通信を切断した。"
  125.           & WaitMsg;
  126.  
  127. Return_Failure_NA:
  128.   errexit "接続規制(当該ホストへの接続が禁止されています)";
  129.  
  130. Return_Failure_NP:
  131.   errexit "欠番(当該ホストのセンターアドレスは存在しません)";
  132.  
  133. Return_Failure_NC:
  134.   errexit "接続回線が一時的に込み合っていて、ご使用できません"
  135.           & WaitMsg;
  136. Return_Failure_DER:
  137.   errexit "接続不可(当該ホストは定期メンテナンス、あるいは障害中です)"
  138.           & WaitMsg;
  139. Return_Failure_RPE:
  140.   errexit "ホストの手順エラーによる切断(リモート手順誤り)"
  141.           & WaitMsg;
  142. Return_BUSY:
  143.   errexit "◆現在、サ－ビスは大変混雑しております... ◆";
  144.  
  145. Return_ID_NG_1:
  146.   errexit 
  147.   "◆あなたのIDは都合によりご利用頂けません。" &
  148.   "カスタマーサポートへご連絡ください◆" &
  149.   CR &
  150.   "  フリーダイヤル 0120-22-1200  (平日 9時～19時、土曜日 9時～17時45分)";
  151.  
  152. Return_MENTE:
  153.   errexit 
  154.   "只今の時間、定期保守をしております。";
  155.  
  156. Return_MENTE2:
  157.   errexit 
  158.   "◆保守作業のためしばらくの間ご利用いただけません◆";
  159.  
  160. Return_MHA:
  161.   errexit "◆只今の時間はご利用になれません◆";
  162.  
  163. Return_LOGIN:
  164.   errexit "◆二重ログインです◆";
  165.  
  166.