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