home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
DOS/V Power Report 1997 March
/
VPR9703A.ISO
/
OLS
/
Winnt
/
HTNT306
/
HTNT306.LZH
/
MIX.SCR
< prev
next >
Wrap
Text File
|
1996-02-09
|
2KB
|
106 lines
; 日経MIX用簡単ログインスクリプト
gethostname #HostName
if( #HostName == "" )
question "スクリプトのセットアップをしますか?"
if( yes )
goto ScriptSetup
endif
endif
timeout 2
wait "MIX"
if( timeout )
send " P^M"
endif
timeout 30
loopswitch
case "WELCOME! NIKKEI^M^J"
send "C MIX^M"
case "(enter ^"mix^"): "
send "mix^M"
case "Name? "
if( %MixID == "" )
input "ユーザIDを入力してください。", %MixID
if( cancel )
hangup
endif
endif
EnterUserID:
send %MixID + "^M"
case "Password: "
EnterPassword:
#mes = "パスワードを入力してください。"
if( %%MixPassword == "" )
secretinput #mes, %%MixPassword
if( cancel )
hangup
endif
endif
#temp = %%MixPassword
if( #temp == "毎回入力する" )
secretinput #mes, #temp
if( cancel )
hangup
endif
endif
send #temp + "^M"
case "パスワードが違います。"
if( %%MixPassword != "毎回入力する" )
%%MixPassword = ""
endif
%MixID = ""
case "は登録されていません。"
%MixID = ""
case "最終ログオン:"
breakloop
endloop
keyassign f10, "セットアップ", script, ScriptSetup
WaitLogoff:
timeout 0
wait "^M^J終了時刻"
timeout 4
wait "今回の接続時間は"
if( timeout ) goto WaitLogoff
wait "^M^JMIXのご利用ありがとうございました。またのご利用をお待ちしています。^M^J"
if( timeout ) goto WaitLogoff
hangup
ErrorExit:
message "うまくつながってないみたいです。MIX.SCRの先頭の「timeout XXX」のXXXの部分を大きくするとうまくいくかもしれません。"
message "このあと手動運転してください。"
exit
ScriptSetup:
menu "MIX.SCRセットアップメニュー(Escで終了)", 0, "ユーザIDの変更", "パスワードの変更"
switch result
case 0
goto ScriptSetup
case 1
input "新しいユーザIDを入力して下さい。", %MixID
if( cancel ) goto ScriptSetup
input "新しいパスワードを入力して下さい。ログイン毎に入力したい場合は何も入力せずにOKして下さい。", %%MixPassword
if( %%MixPassword == "" )
%%MixPassword = "毎回入力する"
endif
goto ScriptSetup
case 2
input "新しいパスワードを入力して下さい。ログイン毎に入力したい場合は何も入力せずにOKして下さい。", %%MixPassword
if( %%MixPassword == "" )
%%MixPassword = "毎回入力する"
endif
goto ScriptSetup
endswitch
exit