home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
DOS/V Power Report 1997 December
/
VPR9712A.ISO
/
OLS
/
WIN16
/
HT219
/
HT219.LZH
/
PCVPLUS.SCR
< prev
next >
Wrap
Text File
|
1994-04-05
|
2KB
|
91 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
sleep 4
timeout 0
send "VANPCNEC02^M" ; send "PCVAN^M" に直してもいいです
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"
if( %PcvLogStyle == "" )
menu "ログの作成方法を指定してください。", \
"&1 PCVPLUS.LOGというファイルに作成する。500Kバイトごとにバックアップする。", \
"&2 PCVmmdd.LOGというファイルに作成する。mmは月、ddは日", \
"&3 PCVyymm.LOGというファイルに作成する。yyは年、mmは月"
if( result == -1 or result == 0 )
%PcvLogStyle = 0
else
%PcvLogStyle = result
endif
endif
if( value(%PcvLogStyle) == 1 )
log "PCVPLUS.LOG", 500 ; サイズ制限500KBで作成します。
elseif( value(%PcvLogStyle) == 2 )
getdate #date
log "PCV" + part( #date, 2, 4 ) + ".LOG"
else
getdate #date
log "PCV" + part( #date, 0, 4 ) + ".LOG"
endif
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