home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1997 March / VPR9703A.ISO / OLS / Win95 / HT315 / HT315.LZH / PCVPLUS.SCR < prev    next >
Text File  |  1996-03-28  |  2KB  |  75 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.     if( baudrate == 0 )
  15.         wait "Enter Service-Name"
  16.         send "PCVAN^M"
  17.     else
  18.         sleep 4
  19.         timeout 0
  20.         send "VANPCNEC02^M"                    ; send "PCVAN^M" に直してもいいです
  21.     endif
  22.     wait "ユーザＩＤ：", " USER_ID: "
  23.     send %PCVANID + "^M"
  24.     wait "パスワード：", "PASSWORD: "
  25.     send %%PCVANPASSWORD + "^M"
  26.     wait "プロファイル", "ﾌﾟﾛﾌｧｲﾙ"
  27.     wait "="
  28.     millisleep 500
  29.     port removectrls=off
  30.     send "N^M"
  31.     wait "^M^J"
  32.  
  33.     loopswitch
  34.         case "お知らせを表示しますか"
  35.             wait "="
  36.             send "N^M"
  37.         case "続けて表示しますか"
  38.             wait "="
  39.             send "Y^M"
  40.         case "^M^Jよろしいですか"
  41.             wait "="
  42.             send "Y^M"
  43.         case "リターンキーを押して下さい="
  44.             send "^M"
  45.         case postmilliidle(1) "^M^J   GOOD-BYE^M^JSEE YOU AGAIN^M^J"
  46.             hangup
  47.         case "ファイル転送プログラムを起動して下さい。(Quick-VAN:ダウンロード)^M^J"
  48.             download ,quickvan
  49.         case "ファイル転送プログラムを起動して下さい。(Quick-VAN:アップロード)^M^J"
  50.             upload ,quickvan
  51.         case "番号またはコマンド"
  52.             timeout 3
  53.             switch
  54.                 case postmilliidle(1) "="
  55.                     readbuffer 2,#line
  56.                     if( length( #line ) == 7 and part( #line, 3, 1 ) == "/" )
  57.                         ##page = part( #line, 0, 3 )
  58.                         ##total = part( #line, 4, 3 )
  59.                         if( ##page < ##total and ##page > 0 )
  60.                             writebuffer2 "^M^01B[0J^01B[A^01B[A^01B[0J^01B[A"
  61.                             send "^M"
  62.                             display off
  63.                             wait "^M^J"
  64.                             display on
  65.                             timeout 0
  66.                         endif
  67.                     endif
  68.                 case "^J", timeout
  69.                     timeout 0
  70.                     loopagain
  71.             endswitch
  72.             timeout 0
  73.     endloop
  74.  
  75.