home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1997 March / VPR9703A.ISO / OLS / Win31 / HT219 / HT219.LZH / PCVPLUS.SCR < prev    next >
Text File  |  1994-04-05  |  2KB  |  91 lines
  1. ; PC-VAN+ 用のスクリプトです。PC-VANでは使えません。
  2. ; ユーザＩＤとパスワードは最初にだけ聞いてきます。
  3. ; ２回目以降は聞いてきません。
  4.  
  5.     port removectrls=on
  6.     if( %PCVANID == "" )
  7.         input "PC-VANのユーザＩＤを入力してください。", %PCVANID
  8.         if( cancel ) hangup
  9.     endif
  10.     if( %%PCVANPASSWORD == "" )
  11.         secretinput "PC-VANのパスワードを入力してください。", %%PCVANPASSWORD
  12.         if( cancel ) hangup
  13.     endif
  14.     sleep 4
  15.     timeout 0
  16.     send "VANPCNEC02^M"                    ; send "PCVAN^M" に直してもいいです
  17.     wait "ユーザＩＤ：", " USER_ID: "
  18.     send %PCVANID + "^M"
  19.     wait "パスワード：", "PASSWORD: "
  20.     send %%PCVANPASSWORD + "^M"
  21.     wait "プロファイル", "ﾌﾟﾛﾌｧｲﾙ"
  22.     wait "="
  23.     millisleep 500
  24.     port removectrls=off
  25.     send "N^M"
  26.     wait "^M^J"
  27.  
  28.     if( %PcvLogStyle == "" )
  29.         menu "ログの作成方法を指定してください。", \
  30.              "&1 PCVPLUS.LOGというﾌｧｲﾙに作成する。500Kﾊﾞｲﾄごとにバックアップする。", \
  31.              "&2 PCVmmdd.LOGというﾌｧｲﾙに作成する。mmは月、ddは日", \
  32.              "&3 PCVyymm.LOGというﾌｧｲﾙに作成する。yyは年、mmは月"
  33.         if( result == -1 or result == 0 )
  34.             %PcvLogStyle = 0
  35.         else
  36.             %PcvLogStyle = result
  37.         endif
  38.     endif
  39.     if( value(%PcvLogStyle) == 1 )
  40.         log "PCVPLUS.LOG", 500    ;  サイズ制限500KBで作成します。
  41.     elseif( value(%PcvLogStyle) == 2 )
  42.         getdate #date
  43.         log "PCV" + part( #date, 2, 4 ) + ".LOG"
  44.     else
  45.         getdate #date
  46.         log "PCV" + part( #date, 0, 4 ) + ".LOG"
  47.     endif
  48.  
  49.     loopswitch
  50.         case "お知らせを表示しますか"
  51.             wait "="
  52.             send "N^M"
  53.         case "続けて表示しますか"
  54.             wait "="
  55.             send "Y^M"
  56.         case "^M^Jよろしいですか"
  57.             wait "="
  58.             send "Y^M"
  59.         case "リターンキーを押して下さい="
  60.             send "^M"
  61.         case postmilliidle(1) "^M^J   GOOD-BYE^M^JSEE YOU AGAIN^M^J"
  62.             hangup
  63.         case "ファイル転送プログラムを起動して下さい。(Quick-VAN:ダウンロード)^M^J"
  64.             download ,quickvan
  65.         case "ファイル転送プログラムを起動して下さい。(Quick-VAN:アップロード)^M^J"
  66.             upload ,quickvan
  67.         case "番号またはコマンド"
  68.             timeout 3
  69.             switch
  70.                 case postmilliidle(1) "="
  71.                     readbuffer 2,#line
  72.                     if( length( #line ) == 7 and part( #line, 3, 1 ) == "/" )
  73.                         ##page = part( #line, 0, 3 )
  74.                         ##total = part( #line, 4, 3 )
  75.                         if( ##page < ##total and ##page > 0 )
  76.                             writebuffer2 "^M^01B[0J^01B[A^01B[A^01B[0J^01B[A"
  77.                             send "^M"
  78.                             display off
  79.                             wait "^M^J"
  80.                             display on
  81.                             timeout 0
  82.                         endif
  83.                     endif
  84.                 case "^J", timeout
  85.                     timeout 0
  86.                     loopagain
  87.             endswitch
  88.             timeout 0
  89.     endloop
  90.  
  91.