home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
DOS/V Power Report 1997 March
/
VPR9703A.ISO
/
OLS
/
Win95
/
HT315
/
HT315.LZH
/
CIS.SCR
< prev
next >
Wrap
Text File
|
1996-02-02
|
3KB
|
131 lines
; CompuServe用 簡単ログインスクリプト
; FENICS経由での接続はもちろん、全世界のCompuServeアクセスポイントへの
; 接続がこのスクリプト1本でできます。
gethostname #HostName
if( #HostName == "" )
question "スクリプトのセットアップをしますか?"
if( yes )
goto ScriptSetup
endif
endif
timeout 4 ; うまくログインしない場合はここを大きくする
switch
case "HOST NAME?"
wait "*"
send "C CIS^M"
case "User ID: "
goto EnterUserID
case "Host Name: "
send "CIS^M"
case timeout
timeout 1
send " P^M"
endswitch
timeout 50
RetryHostName:
switch
case "Host Name: "
send "CIS^M"
goto RetryHostName
case "^M^J*"
beginloop
send "C CIS^M"
switch
case "User ID: "
goto EnterUserID
case "^M^J*"
question "センターが接続要求を拒否しました。再試行しますか?"
if( no ) hangup
case timeout
goto エラー
endswitch
endloop
case "User ID: "
; 続く
case timeout
goto エラー
endswitch
EnterUserID:
if( %CisID == "" )
input "ユーザIDを入力してください。", %CisID
if( cancel )
hangup
endif
endif
send %CisID + "^M"
wait "Password: "
if( timeout ) goto エラー
EnterPassword:
#mes = "パスワードを入力してください。"
if( %%CisPassword == "" )
secretinput #mes, %%CisPassword
if( cancel )
hangup
endif
endif
#temp = %%CisPassword
if( #temp == "毎回入力する" )
secretinput #mes, #temp
if( cancel )
hangup
endif
endif
send #temp + "^M"
wait "CompuServe"
if( timeout ) goto エラー
WaitLogoff:
timeout 0
wait "^M^JThank you for using CompuServe!^M^J"
timeout 4
wait "Off at "
if( timeout ) goto WaitLogoff
switch
case "HOST NAME?"
;
case "Host Name: "
hangup
case timeout
goto WaitLogoff
endswitch
wait postidle(1) "*"
if( timeout ) goto WaitLogoff
hangup
エラー:
message "接続に失敗しました。手動に切り替えます。"
exit
ScriptSetup:
menu "Cis.SCRセットアップメニュー(Escで終了)", 0, "ユーザIDの変更", "パスワードの変更"
switch result
case 0
goto ScriptSetup
case 1
input "新しいユーザIDを入力して下さい。", %CisID
if( cancel ) goto ScriptSetup
input "新しいパスワードを入力して下さい。ログイン毎に入力したい場合は何も入力せずにOKして下さい。", %%CisPassword
if( %%CisPassword == "" )
%%CisPassword = "毎回入力する"
endif
goto ScriptSetup
case 2
input "新しいパスワードを入力して下さい。ログイン毎に入力したい場合は何も入力せずにOKして下さい。", %%CisPassword
if( %%CisPassword == "" )
%%CisPassword = "毎回入力する"
endif
goto ScriptSetup
endswitch
exit