home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
DOS/V Power Report 1997 May
/
VPR9705A.ISO
/
FWINDOWS
/
Padnv335
/
PADNV335.LZH
/
INET_CIS.SCR
< prev
next >
Wrap
Text File
|
1996-10-26
|
3KB
|
131 lines
; TelnetからCompuServeへアクセスする為のスクリプト Version 3.33
; Coded by Piyo / PFF01507
title "CompuServeへアクセス中"
send #1+"^M"
wait "Host Name: "
send "CISAGREE^M"
; wait "Enter choice (300, 2400, 9600, 14400, OFF): "
; send "14400^M"
timeout 20
##count = 0
loopswitch
case "User ID:"
breakloop
case "^M^J暫く時間をおいて再度アクセスしてください。"
wait "^M^J>"
##count = ##count+1
if( ##count > 20 )
timeoutmessage "只今、Telnetは混雑していますのでアクセスを中止します", 3
return
endif
send "2^M"
case "^M^J>"
send "2^M"
case "^M^JTELNET> "
send #1
wait "Host Name: "
send "CISAGREE^M"
; wait "Enter choice (300, 2400, 9600, 14400, OFF): "
; send "14400^M"
endloop
if( timeout ) goto エラー
#idset = %CisID
if( #idset == "" )
RetryID:
input "IDを入力して下さい", #idset
if( cancel ) goto HangUp
%CisID = #idset
endif
EnterUserID:
send #idset + "^M"
loopswitch
case "Password: "
breakloop
case "?? LOGINE - Invalid entry - try again"
timeoutmessage "ID番号が間違っています", 3
goto RetryID
case timeout
goto エラー
endloop
EnterPassword:
##count = 0
#passset = %%CisPassword
if( #passset == "" )
secretinput "パスワードを入力して下さい", #passset
if( cancel ) goto HangUp
%%CisPassword = #passset
##count = ##count+1
endif
send #passset + "^M"
loopswitch
case "CompuServe Information Service"
title "CompuServeへ接続しました"
breakloop
case "?? LOGINE - Invalid entry - try again"
timeoutmessage "パスワードが間違っています", 2
if( ##count > 2 ) goto HangUp
secretinput "パスワードを入力して下さい", %%CisPassword
if( cancel ) goto HangUp
send %%CisPassword + "^M"
##count = ##count+1
; case "^M^J只今の時間、"
; title "定期保守中"
; goto Hoshu
case timeout
goto エラー
endloop
wait "All Rights Reserved" ; NIF接続を再確認
keyboard on
getdate #date
#log = "NIF"+part( #date, 2, 4 )+".LOG"
log #log
#mail = "FALSE"
loopswitch
case "You have Electronic Mail waiting."
title "メールが来ています"
#mail = "TRUE"
case "<CR> for more!"
send "^M"
case "^M^JLast page, enter choice!"
breakloop
case "^M^JEnter choice!"
breakloop
case postmilliidle(500) "!"
breakloop
endloop
if( #mail == "TRUE" )
log
log "mail"
send "GO MAIL^M"
wait "Enter choice!"
send "1^M"
wait "to continue !"
log
log #log
endif
wait "^M^JConnection closed by foreign host."
return
;**************** エラー処理ルーチン ******************
エラー:
afterhangup ErrorHangup
goto HangUp
Hoshu:
message "定期保守中ですので、後程アクセスして下さい"
goto HangUp
ErrorHangup:
message "ネットワークに接続できませんでした"
goto HangUp
;******************* 回線切断手順 *********************
HangUp:
sendbreak
return