home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1998 September / VPR9809B.ISO / TERMINAL / NIFTY95 / DATA.Z / CSN.SCR < prev    next >
Text File  |  1998-06-24  |  5KB  |  192 lines
  1. #
  2. #  CompuServe Network
  3. #
  4.  
  5. on cancel goto Return_Cancel;
  6. ROAD = "";
  7. CR = "\x0D";
  8. TryID = 3;
  9. TryPass = 3;
  10.  
  11. show "CompuServe Networkへ接続待機中...";
  12. send CR;
  13. wait until 40;
  14.  
  15. WaitMsg = "\x0Dしばらくしてからやりなおしてください";
  16.  
  17. show "CompuServe Network" & ROAD & "に接続開始";
  18.  
  19. Tries = 8;
  20. Wait_FENICS:
  21.     if Tries == 0 goto Return_Failure;
  22.     Tries = Tries - 1;
  23.     wait
  24.         "Host Name:"    goto Send_C_NIM_Host,
  25.         "N\xE1\xEDe:\xA0\xA0"    goto Send_C_NIM_Host,
  26.         "Connection-ID  --->"    goto Send_SHC_Host,
  27.         "User-ID  --->"        goto Start_LOGIN,
  28.         "Clear DTE"        goto Send_C_NIM_Host2,
  29.         "Clear OCC"        goto Return_Failure_OCC,
  30.         "Clear PAD"        goto Send_C_NIM_Host2,
  31.         "Clear NA"        goto Return_Failure_NA,
  32.         "Clear NP"        goto Return_Failure_NP,
  33.         "Clear NC"        goto Return_Failure_NC,
  34.         "Clear DER"        goto Return_Failure_DER,
  35.         "Clear RPE"        goto Return_Failure_RPE,
  36.     until 80;
  37.     goto Wait_FENICS;
  38.  
  39. Send_C_NIM_Host:
  40.     show "ホストネーム送信中...";
  41.     wait until 10;
  42.     send "NIFGUI" & CR; 
  43.     goto Wait_FENICS;
  44. Send_C_NIM_Host2:
  45.     show "センターホストに再接続中...";
  46.     wait until 10;
  47.     goto Wait_FENICS;
  48. Send_SHC_Host:
  49.     show "コネクションＩＤ送出中...";
  50.     wait until 10;
  51.     send "SHP" & CR;
  52.     goto Wait_FENICS;
  53.     
  54. Start_LOGIN:
  55. UID = %UserID;
  56. Tries = 8;
  57. Send_UID:
  58.     TryID = TryID - 1;
  59.     show "ユーザーＩＤ送出中...";
  60.     wait until 10;
  61.     send UID & CR;
  62. Wait_LOGIN:
  63.     if Tries == 0 goto Return_Failure;
  64.     Tries = Tries - 1;
  65.     wait
  66.         "User-ID  --->"            goto Send_UID,
  67.         "User-ID Error"            goto Enter_UID,
  68.         "Password --->"            goto Start_PSW,
  69.         "◆あなたのIDは都合により"    goto Return_ID_NG_1,
  70.         "保守作業の"    goto Return_MENTE2,
  71.         "Clear DTE"            goto Return_Failure_DTE,
  72.         "Clear PAD"            goto Return_Failure_PAD,
  73.         "Clear NC"            goto Return_Failure_NC,
  74.     until 80;
  75.     goto Wait_LOGIN;
  76.  
  77. Enter_UID:
  78.     if TryID == 0 goto Return_Failure;
  79.     input "正しいユーザーＩＤを入力して下さい" UID EON 1200;
  80.     if UID goto Wait_LOGIN;
  81.     errexit "ユーザーＩＤ入力タイムアウト";
  82.  
  83. Start_PSW:
  84.     PWD = %Password;
  85.     Tries = 8;
  86. Send_PSW:
  87.     TryPass = TryPass - 1;
  88.     show "パスワード送出中...";
  89.     wait until 10;
  90.     send PWD & CR;
  91. Wait_PASSWORD:
  92.     if Tries == 0 goto Return_Failure;
  93.     Tries = Tries - 1;
  94.     wait
  95.         "Password --->"            goto Send_PSW,
  96.         "Password ERROR"        goto Enter_PSW,
  97.         %ESC & "I"            goto Return_Success,
  98.         "大変混雑"            goto Return_BUSY,
  99.         "◆あなたのIDは都合により"    goto Return_ID_NG_1,
  100.         "定期保守"            goto Return_MENTE,
  101.         "◆只今の時間はご利用"        goto Return_MHA,
  102.         "◆二重ログイン"        goto Return_LOGIN,
  103.         "Clear DTE"            goto Return_Failure_DTE,
  104.         "Clear PAD"            goto Return_Failure_PAD,
  105.         "Clear NC"            goto Return_Failure_NC,
  106.     until 80;
  107.     goto Wait_PASSWORD;
  108.  
  109. Enter_PSW:
  110.     if TryPass == 0 goto Return_Failure;
  111.     input "正しいパスワードを入力して下さい" PWD EOFF 1200;
  112.     if PWD goto Wait_PASSWORD;
  113.     errexit "パスワード入力タイムアウト";
  114.  
  115. Return_Success:
  116.   show "CompuServe Network" & ROAD & "に接続しました";
  117.   exit;
  118.  
  119. Return_Failure:
  120.   errexit "CompuServe Network" & ROAD & "に接続できません";
  121.  
  122. Return_Failure_DTE:
  123.   errexit "ホストから着信が拒否されました。"
  124.       & WaitMsg;
  125.  
  126. Return_Failure_OCC:
  127.   errexit "ホストビジー(ホストの論理回線がすべて使用中です)";
  128.  
  129. Return_Failure_PAD:
  130.   errexit "ホストからの解放要求により通信を切断した。"
  131.           & WaitMsg;
  132.  
  133. Return_Failure_NA:
  134.   errexit "接続規制(当該ホストへの接続が禁止されています)";
  135.  
  136. Return_Failure_NP:
  137.   errexit "欠番(当該ホストのセンターアドレスは存在しません)";
  138.  
  139. Return_Failure_NC:
  140.   errexit "接続回線が一時的に込み合っていて、ご使用できません"
  141.           & WaitMsg;
  142. Return_Failure_DER:
  143.   errexit "接続不可(当該ホストは定期メンテナンス、あるいは障害中です)"
  144.           & WaitMsg;
  145. Return_Failure_RPE:
  146.   errexit "ホストの手順エラーによる切断(リモート手順誤り)"
  147.           & WaitMsg;
  148. Return_BUSY:
  149.   errexit "◆現在、サ－ビスは大変混雑しております... ◆";
  150.  
  151. Return_ID_NG_1:
  152.   errexit 
  153.   "◆あなたのIDは都合によりご利用頂けません。" &
  154.   "カスタマーサポートへご連絡ください◆" &
  155.   CR &
  156.   "  カスタマーサポート　　+81-3-5471-5806（日本時間　　　平日9時～19時）" &
  157.   CR &
  158.   "  米国内フリーダイヤル　 1-800-455-5423（東部標準時間　平日9時～17時）" &
  159.   CR &
  160.   CR &
  161.   "  韓国住所にてIDをご取得頂いた方は下記の現地代理店にご連絡下さい。" &
  162.   CR &
  163.   "  Hanjin Information Systems & Telecommunication Co.,Ltd." &
  164.   CR &
  165.   "  韓国内フリーダイヤル　080-090-1435" &
  166.   CR &
  167.   CR &
  168.   "  オーストラリア・ニュージーランド住所にてIDをご取得頂いた方は" &
  169.   "  下記の現地代理店にご連絡下さい。" &
  170.   CR &
  171.   "  Fujitsu Australia Limited" &
  172.   CR &
  173.   "  カスタマーサポート　　02-410-4262";
  174.  
  175. Return_MENTE:
  176.   errexit 
  177.   "只今の時間、定期保守をしております。";
  178.  
  179. Return_MENTE2:
  180.   errexit 
  181.   "◆保守作業のためしばらくの間ご利用いただけません◆";
  182.  
  183. Return_MHA:
  184.   errexit "◆只今の時間はご利用になれません◆";
  185.  
  186. Return_LOGIN:
  187.   errexit "◆二重ログインです◆";
  188.  
  189.  
  190. Return_Cancel:
  191.   errexit "ユーザー入力により取消しました";
  192.