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