home *** CD-ROM | disk | FTP | other *** search
/ Curio City 9 / CURIO9.bin / pc / internet / win / joynt / term / pc_van.ap < prev    next >
Text File  |  1997-01-15  |  3KB  |  150 lines
  1. #AUTOLOGIN
  2. Timeout = 180
  3. Wait(6)
  4. Send("PCVAN\n")
  5. Ls
  6.     case "ユーザＩＤ："
  7.         Send(Hostid)
  8.         Send("\n")
  9.         LsStop
  10.     case " USER_ID: "
  11.         Send(Hostid)
  12.         Send("\n")
  13.         LsStop
  14.     case LsTimeout
  15.         MsgDsp("エラーが発生したので処理を中断します")
  16.         StopMacro
  17. LsEnd
  18. Ls
  19.     case "パスワード："
  20.         Send(Hostpass)
  21.         Send("\n")
  22.         LsStop
  23.     case "PASSWORD: "
  24.         Send(Hostpass)
  25.         Send("\n")
  26.         LsStop
  27.     case LsTimeout
  28.         MsgDsp("エラーが発生したので処理を中断します")
  29.         StopMacro
  30. LsEnd
  31. Ls
  32.     case "＊プロファイルを修正しますか"
  33.         Send("N\n")
  34.     case "お知らせを表示しますか"
  35.         Send("N\n")
  36.     case "リターンキーを押して下さい"
  37.         Send("\n")
  38.     case "Ｑ．終了"
  39.         MsgDsp("自動処理が終了しました。Joynt-Clubへ接続ボタンを押して下さい")
  40.         LsStop
  41.     case "訂正してください"
  42.         MsgDsp("ＩＤかパスワードが間違っています｡ 確認してください｡")
  43.         StopMacro
  44.     case LsTimeout
  45.         MsgDsp("エラーが発生したので処理を中断します")
  46.         StopMacro
  47. LsEnd
  48.  
  49. #JLOGIN
  50. Send("J JOYNTCLUB\n")
  51. Ls
  52.     case "リターンキーを押して下さい"
  53.         Send("\n")
  54.     case "番号またはコマンド"
  55.         Send("7\n")
  56.         LsStop
  57.     case LsTimeout
  58.         MsgDsp("エラーが発生したので処理を中断します")
  59.         StopMacro
  60. LsEnd
  61. Ls
  62.     case "よろしいですか"
  63.         Send("Y\n")
  64.         LsStop
  65.     case "リターンキーを押して下さい"
  66.         Send("\n")
  67.     case LsTimeout
  68.         MsgDsp("エラーが発生したので処理を中断します")
  69.         StopMacro
  70. LsEnd
  71.  
  72. ChkCode("JID");
  73. ChkCode("JPASS");
  74. ChkCode("JNAME");
  75.  
  76. Ls
  77.     case ")="
  78.         Send("3\n")
  79.         LsStop
  80.     case LsTimeout
  81.         MsgDsp("エラーが発生したので処理を中断します")
  82.         StopMacro
  83. LsEnd
  84.  
  85. Ls
  86.     case "CODE:"
  87.         Send(JID)
  88.         Send("\n")
  89.         LsStop
  90.     case LsTimeout
  91.         MsgDsp("エラーが発生したので処理を中断します")
  92.         StopMacro
  93. LsEnd
  94. Ls
  95.     case "WORD:"
  96.         Send(JPASS)
  97.         Send("\n")
  98.         LsStop
  99.     case "ERROR"
  100.         MsgDsp("プレイヤーコードが間違っています｡ 確認してください｡")
  101.         StopMacro
  102.     case LsTimeout
  103.         MsgDsp("エラーが発生したので処理を中断します")
  104.         StopMacro
  105. LsEnd
  106.  
  107. Ls
  108.     case "リターン"
  109.         LsStop
  110.         StopMacro
  111.     case "違います"
  112.         MsgDsp("パスワードが間違っています｡ 確認してください｡")
  113.         StopMacro
  114.     case LsTimeout
  115.         MsgDsp("エラーが発生したので処理を中断します")
  116.         StopMacro
  117. LsEnd
  118.  
  119.  
  120. #JENTRY
  121. Send("J JOYNTCLUB\n")
  122. Ls
  123.     case "リターンキーを押して下さい"
  124.         Send("\n")
  125.     case "番号またはコマンド"
  126.         Send("7\n")
  127.         LsStop
  128.     case LsTimeout
  129.         MsgDsp("エラーが発生したので処理を中断します")
  130.         StopMacro
  131. LsEnd
  132. Ls
  133.     case "よろしいですか"
  134.         Send("Y\n")
  135.         LsStop
  136.     case "リターンキーを押して下さい"
  137.         Send("\n")
  138.     case LsTimeout
  139.         MsgDsp("エラーが発生したので処理を中断します")
  140.         StopMacro
  141. LsEnd
  142. Ls
  143.     case ")="
  144.         LsStop
  145.         StopMacro
  146.     case LsTimeout
  147.         MsgDsp("エラーが発生したので処理を中断します")
  148.         StopMacro
  149. LsEnd
  150.