home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1997 July / VPR9707A.ISO / OLS / Win32 / Htevo417 / htevo417.lzh / CIS.HSC < prev    next >
Text File  |  1997-02-08  |  3KB  |  146 lines
  1. ; CompuServe用 簡単ログインスクリプト
  2. ; FENICS経由での接続はもちろん、全世界のCompuServeアクセスポイントへの
  3. ; 接続がこのスクリプト１本でできます。
  4.  
  5.  
  6.     gethostname #HostName
  7.     if( #HostName == "" )
  8.         question "スクリプトのセットアップをしますか？"
  9.         if( yes )
  10.             goto ScriptSetup
  11.         endif
  12.     endif
  13.  
  14.     timeout 4                      ;     うまくログインしない場合はここを大きくする
  15.     switch
  16.         case "WinGate>"
  17.             send "compuserve.com^J"
  18.             goto RetryHostName
  19.  
  20.         case "HOST NAME?"
  21.             wait "*"
  22.             send "C CIS^M"
  23.  
  24.         case "User ID: "
  25.             goto EnterUserID
  26.  
  27.         case "Host Name:  "
  28.             send "CIS^M"
  29.  
  30.         case timeout
  31.             timeout 1
  32.             send " P^M"
  33.     endswitch
  34.  
  35. RetryHostName:
  36.     timeout 50
  37.     switch
  38.         case "WinGate>"
  39.             send "compuserve.com^J"
  40.             goto RetryHostName
  41.  
  42.         case "Host Name: "
  43.             send "CISAGREE^M"
  44.             goto RetryHostName
  45.  
  46.         case "^M^J*"
  47.             beginloop
  48.                 send "C CIS^M"
  49.                 switch
  50.                     case "User ID: "
  51.                         goto EnterUserID
  52.                     case "^M^J*"
  53.                         question "センターが接続要求を拒否しました。再試行しますか？"
  54.                         if( no ) hangup
  55.                     case timeout
  56.                         goto エラー
  57.                 endswitch
  58.             endloop
  59.  
  60.         case "Enter choice (LOGON, HELP, OFF): "
  61.             send "LOGON^M"
  62.             goto RetryHostName
  63.  
  64.         case "User ID: "
  65.             ; 続く
  66.  
  67.         case timeout
  68.             goto エラー
  69.     endswitch
  70.  
  71. EnterUserID:
  72.     if( %CisID == "" )
  73.         input "ユーザＩＤを入力してください。", %CisID
  74.         if( cancel )
  75.             hangup
  76.         endif
  77.     endif
  78.     send %CisID + "^M"
  79.     wait "Password: "
  80.     if( timeout ) goto エラー
  81. EnterPassword:
  82.     #mes = "パスワードを入力してください。"
  83.     if( %%CisPassword == "" )
  84.         secretinput #mes, %%CisPassword
  85.         if( cancel )
  86.             hangup
  87.         endif
  88.     endif
  89.     #temp = %%CisPassword
  90.     if( #temp == "毎回入力する" )
  91.         secretinput #mes, #temp
  92.         if( cancel )
  93.             hangup
  94.         endif
  95.     endif
  96.     send #temp + "^M"
  97.     wait "CompuServe"
  98.     if( timeout ) goto エラー
  99.  
  100. WaitLogoff:
  101.     timeout 0
  102.     wait "^M^JThank you for using CompuServe!^M^J"
  103.     timeout 4
  104.     wait "Off at "
  105.     if( timeout ) goto WaitLogoff
  106.     switch
  107.         case "HOST NAME?"
  108.             ;
  109.         case "Host Name:  "
  110.             hangup
  111.         case timeout
  112.             goto WaitLogoff
  113.     endswitch
  114.     wait postidle(1) "*"
  115.     if( timeout ) goto WaitLogoff
  116.     hangup
  117.  
  118. エラー:
  119.     message "接続に失敗しました。手動に切り替えます。"
  120.     exit
  121.  
  122.  
  123.  
  124. ScriptSetup:
  125.     menu "Cis.SCRセットアップメニュー(Escで終了)", 0, "ユーザＩＤの変更", "パスワードの変更"
  126.     switch result
  127.         case 0
  128.             goto ScriptSetup
  129.         case 1
  130.             input "新しいユーザＩＤを入力して下さい。", %CisID
  131.             if( cancel ) goto ScriptSetup
  132.             input "新しいパスワードを入力して下さい。ログイン毎に入力したい場合は何も入力せずにＯＫして下さい。", %%CisPassword
  133.             if( %%CisPassword == "" )
  134.                 %%CisPassword = "毎回入力する"
  135.             endif
  136.             goto ScriptSetup
  137.         case 2
  138.             input "新しいパスワードを入力して下さい。ログイン毎に入力したい場合は何も入力せずにＯＫして下さい。", %%CisPassword
  139.             if( %%CisPassword == "" )
  140.                 %%CisPassword = "毎回入力する"
  141.             endif
  142.             goto ScriptSetup
  143.     endswitch
  144.     exit
  145.  
  146.