home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
DOS/V Power Report 1997 March
/
VPR9703A.ISO
/
OLS
/
Winnt
/
HTNT306
/
HTNT306.LZH
/
ASCIINET.SCR
next >
Wrap
Text File
|
1996-02-09
|
3KB
|
110 lines
; ASCIInet channel A,B,C,telnet共通ログインスクリプト
; 東京直通回線のほか、全国のASCIINETアクセスポイント、telnet接続、全部
; このスクリプトだけでログインできます。
;
; 300BPS/1200BPSのアクセスポイントに接続する場合は16行目の
; ##count = 0 を、##count = 1に変更した方が早くログインできます。
gethostname #HostName
if( #HostName == "" )
question "スクリプトのセットアップをしますか?"
if( yes )
goto ScriptSetup
endif
endif
##count = 0
#key = "Software\Hidemaruo\ASCIInetScript\" + #HostName
openreg "CURRENTUSER", #key
if( yes )
getreg "channel", ##count
closereg
endif
timeout 3
loopswitch
case "login User ID: "
breakloop
case "*"
send "c ascii^M"
case timeout
if( ##count == 0 )
send "@"
sleep 1
send "^M"
##count = 1
elseif( ##count == 1 )
send "ASCII^M"
##count = 2
elseif( ##count == 2 )
send "^M"
sleep 1
send "^M"
##count = 3
else
message "接続に失敗しました。手動に切り替えます。"
exit
endif
endloop
if( ##count != 0 )
createreg "CURRENTUSER", #key
writeregint "channel", ##count - 1
closereg
endif
timeout 0
if( %AsciiNetID == "" )
input "ユーザIDを入力してください。", %AsciiNetID
if( cancel ) hangup
endif
send %AsciiNetID + "^M"
wait "User Password:"
#mes = "パスワードを入力してください。"
EnterPassword:
if( %%AsciiNetPassword == "" )
secretinput #mes, %%AsciiNetPassword
if( cancel )
hangup
endif
endif
#temp = %%AsciiNetPassword
if( #temp == "毎回入力する" )
secretinput #mes, #temp
if( cancel )
hangup
endif
endif
send #temp + "^M"
keyassign f10, "セットアップ", script, ScriptSetup
exit
ScriptSetup:
menu "ASCIINET.SCRセットアップメニュー(Escで終了)", 0, "ユーザIDの変更", "パスワードの変更"
switch result
case 0
goto ScriptSetup
case 1
input "新しいユーザIDを入力して下さい。", %AsciiNetID
if( cancel ) goto ScriptSetup
input "新しいパスワードを入力して下さい。ログイン毎に入力したい場合は何も入力せずにOKして下さい。", %%AsciiNetPassword
if( %%AsciiNetPassword == "" )
%%AsciiNetPassword = "毎回入力する"
endif
goto ScriptSetup
case 2
input "新しいパスワードを入力して下さい。ログイン毎に入力したい場合は何も入力せずにOKして下さい。", %%AsciiNetPassword
if( %%AsciiNetPassword == "" )
%%AsciiNetPassword = "毎回入力する"
endif
goto ScriptSetup
endswitch
exit