home *** CD-ROM | disk | FTP | other *** search
/ Curio City 9 / CURIO9.bin / pc / internet / win / w95nim / program / data.z / PPP.SCR < prev    next >
Text File  |  1997-09-10  |  3KB  |  118 lines
  1. #
  2. #  HyperROAD
  3. #
  4.  
  5. WaitMsg = "\x0Dしばらくしてからやりなおしてください";
  6. CR = "\x0D";
  7.  
  8. show "HyperROAD経由でNIFTY SERVEに接続開始";
  9.  
  10. Tries = 8;
  11. Wait_HYPER:
  12.     if Tries == 0 goto Return_Failure;
  13.     Tries = Tries - 1;
  14.     wait
  15.         "HOST NAME?"        goto Send_C_NIM_Host1,
  16.         "Connection-ID  --->"    goto Send_SHP_Host,
  17.         "User-ID  --->"        goto Start_LOGIN,
  18.     until 80;
  19.     goto Wait_HYPER;
  20.  
  21. Send_C_NIM_Host:
  22.     show "ホストネーム送信中...";
  23.     wait until 10;
  24.     send "C NIM" & CR; 
  25.     goto Wait_HYPER;
  26. Send_C_NIM_Host1:
  27.     wait until 10;
  28.     goto Wait_HYPER;
  29. Send_SHP_Host:
  30.     show "コネクションＩＤ送出中...";
  31.     wait until 10;
  32.     send "SHP" & CR;
  33.     goto Wait_HYPER;
  34.     
  35. Start_LOGIN:
  36. UID = %UserID;
  37. Tries = 5;
  38. Send_UID:
  39.     show "ユーザーＩＤ送出中...";
  40.     wait until 10;
  41.     send UID & CR;
  42. Wait_LOGIN:
  43.     if Tries == 0 goto Return_Failure;
  44.     Tries = Tries - 1;
  45.     wait
  46.         "User-ID  --->"            goto Send_UID,
  47.         "User-ID Error"            goto Enter_UID,
  48.         "Password --->"            goto Start_PSW,
  49.         "◆あなたのIDは都合により"    goto Return_ID_NG_1,
  50.     until 80;
  51.     goto Wait_LOGIN;
  52.  
  53. Enter_UID:
  54.     input "正しいユーザーＩＤを入力して下さい" UID EON 1200;
  55.     if UID goto Wait_LOGIN;
  56.     errexit "ユーザーＩＤ入力タイムアウト";
  57.  
  58. Start_PSW:
  59.     PWD = %Password;
  60.     Tries = 5;
  61. Send_PSW:
  62.     show "パスワード送出中...";
  63.     wait until 10;
  64.     send PWD & CR;
  65. Wait_PASSWORD:
  66.     if Tries == 0 goto Return_Failure;
  67.     Tries = Tries - 1;
  68.     wait
  69.         "Password --->"            goto Send_PSW,
  70.         "Password ERROR"        goto Enter_PSW,
  71.         %ESC & "I"            goto Return_Success,
  72.         "大変混雑"            goto Return_BUSY,
  73.         "◆あなたのIDは都合により"    goto Return_ID_NG_1,
  74.         "定期保守"            goto Return_MENTE,
  75.         "◆只今の時間はご利用"        goto Return_MHA,
  76.         "◆二重ログイン"        goto Return_LOGIN,
  77.         "ログインが不正"        goto Return_BUTLOGIN,
  78.     until 80;
  79.     goto Wait_PASSWORD;
  80.  
  81. Enter_PSW:
  82.     input "正しいパスワードを入力して下さい" PWD EOFF 1200;
  83.     if PWD goto Wait_PASSWORD;
  84.     errexit "パスワード入力タイムアウト";
  85.  
  86. Return_Success:
  87.   show "NIFTY SERVEに接続しました";
  88.   exit;
  89.  
  90. Return_Failure:
  91.   errexit "NIFTY SERVEに接続できません";
  92.  
  93. Return_BUSY:
  94.   errexit "◆現在、サ－ビスは大変混雑しております... ◆";
  95.  
  96. Return_ID_NG_1:
  97.   errexit 
  98.   "◆あなたのIDは都合によりご利用頂けません。" &
  99.   "カスタマーサポートへご連絡ください◆" &
  100.   CR &
  101.   "  フリーダイヤル 0120-22-1200  (平日 9時～19時、土曜日 9時～17時45分)";
  102.  
  103. Return_MENTE:
  104.   errexit 
  105.   "只今の時間、定期保守をしております。";
  106.  
  107. Return_MHA:
  108.   errexit "◆只今の時間はご利用になれません◆";
  109.  
  110. Return_LOGIN:
  111.   errexit "◆二重ログインです◆";
  112.  
  113. Return_BUTLOGIN:
  114.   errexit "◆ログインできませんでした。HyperROAD以外からNIFTY SERVEに" &
  115.   "ログインしようとしたか、あるいは、ダイアラーのIDと、NIFTY MANAGERのID" &
  116.   "が一致しなかった可能性があります◆";
  117.  
  118.