home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
DOS/V Power Report 1997 March
/
VPR9703A.ISO
/
OLS
/
Win95
/
HT315
/
HT315.LZH
/
PCVPLUS.SCR
< prev
next >
Wrap
Text File
|
1996-03-28
|
2KB
|
75 lines
; PC-VAN+ 用のスクリプトです。PC-VANでは使えません。
; ユーザIDとパスワードは最初にだけ聞いてきます。
; 2回目以降は聞いてきません。
port removectrls=on
if( %PCVANID == "" )
input "PC-VANのユーザIDを入力してください。", %PCVANID
if( cancel ) hangup
endif
if( %%PCVANPASSWORD == "" )
secretinput "PC-VANのパスワードを入力してください。", %%PCVANPASSWORD
if( cancel ) hangup
endif
if( baudrate == 0 )
wait "Enter Service-Name"
send "PCVAN^M"
else
sleep 4
timeout 0
send "VANPCNEC02^M" ; send "PCVAN^M" に直してもいいです
endif
wait "ユーザID:", " USER_ID: "
send %PCVANID + "^M"
wait "パスワード:", "PASSWORD: "
send %%PCVANPASSWORD + "^M"
wait "プロファイル", "プロファイル"
wait "="
millisleep 500
port removectrls=off
send "N^M"
wait "^M^J"
loopswitch
case "お知らせを表示しますか"
wait "="
send "N^M"
case "続けて表示しますか"
wait "="
send "Y^M"
case "^M^Jよろしいですか"
wait "="
send "Y^M"
case "リターンキーを押して下さい="
send "^M"
case postmilliidle(1) "^M^J GOOD-BYE^M^JSEE YOU AGAIN^M^J"
hangup
case "ファイル転送プログラムを起動して下さい。(Quick-VAN:ダウンロード)^M^J"
download ,quickvan
case "ファイル転送プログラムを起動して下さい。(Quick-VAN:アップロード)^M^J"
upload ,quickvan
case "番号またはコマンド"
timeout 3
switch
case postmilliidle(1) "="
readbuffer 2,#line
if( length( #line ) == 7 and part( #line, 3, 1 ) == "/" )
##page = part( #line, 0, 3 )
##total = part( #line, 4, 3 )
if( ##page < ##total and ##page > 0 )
writebuffer2 "^M^01B[0J^01B[A^01B[A^01B[0J^01B[A"
send "^M"
display off
wait "^M^J"
display on
timeout 0
endif
endif
case "^J", timeout
timeout 0
loopagain
endswitch
timeout 0
endloop