home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Curio City 9
/
CURIO9.bin
/
pc
/
internet
/
win
/
w95nim
/
program
/
data.z
/
LAN.SCR
< prev
next >
Wrap
Text File
|
1997-09-10
|
3KB
|
127 lines
#
# インターネット経由での接続
#
ROAD = "インターネット経由";
WaitMsg = "\x0Dしばらくしてからやりなおしてください";
CR = "\x0D";
show ROAD & "での接続待機中...";
wait until 10;
show ROAD & "でNIFTY SERVEに接続開始";
Tries = 8;
Wait_CONNECT:
if Tries == 0 goto Return_Failure;
Tries = Tries - 1;
wait
"Connection-ID --->" goto Send_SHS_Host,
%ESC & "R" goto Start_LOGIN,
"大変混雑" goto Return_BUSY,
until 80;
goto Wait_CONNECT;
Send_SHS_Host:
show "コネクションID送出中...";
wait until 10;
send "SHS" & CR;
goto Wait_CONNECT;
Start_LOGIN:
Tries = 5;
Send_UID:
show "ユーザーID送出中...";
wait until 10;
send %UserID & CR;
Wait_LOGIN:
if Tries == 0 goto Return_Failure;
Tries = Tries - 1;
wait
"-*-" goto Send_PASSWORD,
%ESC & "R" goto Send_UID,
"Connection-ID --->" goto Send_SHS_Host,
"User-ID Error" goto Enter_UID,
"◆あなたのIDは都合により" goto Return_ID_NG_1,
"大変混雑" goto Return_BUSY,
until 80;
goto Wait_LOGIN;
Enter_UID:
input "正しいユーザーIDを入力して下さい" UID EON 1200;
if UID goto Input_UserID;
errexit "ユーザーID入力タイムアウト";
Input_UserID:
%UserID = UID;
Tries = 8;
goto Wait_CONNECT;
Send_PASSWORD:
waitb len 24 goto Start_PSW until 600 ;
goto Return_Failure;
Start_PSW:
Tries = 5;
Send_PSW:
show "パスワード送出中...";
wait until 10;
send "-*-" & %Password & CR;
Wait_PASSWORD:
if Tries == 0 goto Return_Failure;
Tries = Tries - 1;
wait
"User-ID Error" goto Enter_UID,
"Password --->" goto Send_PSW,
"Password ERROR" goto Enter_PSW,
%ESC & "I" goto Return_Success,
"大変混雑" goto Return_BUSY,
"◆あなたのIDは都合により" goto Return_ID_NG_1,
"定期保守" goto Return_MENTE,
"◆只今の時間はご利用" goto Return_MHA,
"◆二重ログイン" goto Return_LOGIN,
until 80;
goto Wait_PASSWORD;
Enter_PSW:
input "正しいパスワードを入力して下さい" PWD EOFF 1200;
if PWD goto Input_Password;
errexit "パスワード入力タイムアウト";
Input_Password:
%Password = PWD;
Tries = 8;
goto Wait_CONNECT;
Return_Success:
show ROAD & "でNIFTY SERVEに接続しました";
exit;
Return_Failure:
errexit ROAD & "でNIFTY SERVEに接続できません";
Return_BUSY:
errexit "◆現在、サ-ビスは大変混雑しております... ◆";
Return_ID_NG_1:
errexit
"◆あなたのIDは都合によりご利用頂けません。" &
"カスタマーサポートへご連絡ください◆" &
CR &
" フリーダイヤル 0120-22-1200 (平日 9時~19時、土曜日 9時~17時45分)";
Return_MENTE:
errexit
"只今の時間、定期保守をしております。";
Return_MHA:
errexit "◆只今の時間はご利用になれません◆";
Return_LOGIN:
errexit "◆二重ログインです◆";