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