home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1997 May / VPR9705A.ISO / FWINDOWS / Padnv335 / PADNV335.LZH / PADNAV1.SCR < prev    next >
Text File  |  1996-10-26  |  10KB  |  509 lines
  1. ; NIFTY-Serve用通信統合環境　PADNAV　通信カーネル１（秀Term用） Version 3.33
  2. ;                                                 　Coded by Piyo / PFF01507
  3. ;
  4. ;********* 現在登録されているフォーラム一覧を取得するコマンド  **********
  5. GetFrmList:
  6.     #fname = #1+"\myforum.log"
  7.     chdir log
  8.     delfile #fname
  9.     restoredir
  10.     title "入会フォーラム一覧を取得中"
  11.     send "MYFORUM^M"
  12.     wait "ください。^M^J"
  13.     log #fname
  14.     wait "^M^J＞"
  15.     log
  16. return
  17.  
  18. ;********* 掲示板のメニューを取得するコマンド  **********
  19. GetBbsList:
  20.     #fname = #1+"\bbs.frm"
  21.     chdir log
  22.     delfile #fname
  23.     restoredir
  24.     title "掲示板へ移動中"
  25.     send "GO BBS^M"
  26.     wait "として利用することはできませんのでご注意ください。^M^J"
  27.     log #fname
  28.     wait "^M^J＞"
  29.     log
  30. return
  31.  
  32. ;********* 特設掲示板のメニューを取得するコマンド  **********
  33. GetTopicList:
  34.     #fname = #2+"\"+#1+".frm"
  35.     chdir log
  36.     delfile #fname
  37.     restoredir
  38.     title #1+"へ移動中"
  39.     send "GO "+#1+"^M"
  40.     log #fname
  41.     wait "^M^J＞"
  42.     log
  43. return
  44.  
  45. ;********* 今週のお知らせを選択ダウンロードするコマンド  **********
  46. ReadWeekNews:
  47.     title "今週のお知らせを受信中"
  48.     send "GO NEW^M"
  49.     wait "^M^J＞"
  50.     send #1+"^M"
  51.     log "nifnews."
  52.     loopswitch
  53.         case "^M^J続き (改行で次文書　E:終了)"
  54.             wait "^M^J＞"
  55.             send "^M"
  56.         case "^M^J続き (改行で次頁　S:次文書　E:終了)"
  57.             wait "^M^J＞"
  58.             send "^M"
  59.         case "^M^J表示終了"
  60.             wait "^M^J＞"
  61.             log
  62.             breakloop
  63.     endloop
  64. return
  65.  
  66. ;********* 個人情報公開／非公開変更コマンド  **********
  67. ChgPrivate:
  68.     #cmd = "^M"
  69.     if( #1 == "*DISCLOSE" )
  70.         #cmd = "1^M"
  71.         title "個人情報を公開します"
  72.     endif
  73.     if( #1 == "*SECRET" )
  74.         #cmd = "2^M"
  75.         title "個人情報を非公開にします"
  76.     endif
  77.  
  78.     send "GO MEMBER^M"
  79.     wait "^M^J＞"
  80.     send "3^M"
  81.     wait "^M^J＞"
  82.     send "1^M"
  83.     wait "^M^J:"
  84.     send #cmd
  85.     wait "^M^J＞"
  86. return
  87.  
  88. ;********* Telnet接続コマンド  **********
  89. Telnet:
  90.  
  91.     title "Telnet接続開始"
  92.     send "GO TELNET^M"
  93.     chdir script
  94.     delfile "TELNET.SCR"
  95.     copyfile #2, "TELNET.SCR"
  96.     restoredir
  97.     ##count = 0
  98.     loopswitch
  99.         case "^M^J暫く時間をおいて再度アクセスしてください。"
  100.             wait "^M^J＞"
  101.             ##count = ##count+1
  102.             if( ##count > 20 )
  103.                 timeoutmessage "只今、Telnetは混雑していますのでアクセスを中止します", 3
  104.                 return
  105.             endif
  106.             send "2^M"
  107.         case "^M^J＞"
  108.             send "2^M"
  109.         case "^M^JTELNET> "
  110.             breakloop
  111.     endloop
  112.     #cmd = "open "+#1+"^M"
  113.     if( length(#2) != 0 )
  114.         call TELNET.SCR #cmd
  115.     else
  116.         send #cmd
  117.         keyboard on
  118.     endif
  119.     loopswitch
  120.         case "No address associated with name"
  121.             wait "^M^JTELNET> "
  122.             send "quit^M"
  123.         case "Connection refused"
  124.             wait "^M^JTELNET> "
  125.             send "quit^M"
  126.         case  "^M^J＞"
  127.             breakloop
  128.     endloop
  129.     keyboard off
  130. return
  131.  
  132. ;************** 課金情報読込処理手順  ***************
  133. ReadBill:
  134.     title "課金情報"
  135.     send "GO BILL^M"
  136.     wait  "^M^J＞"
  137.     log "BILL."
  138.     send "2^M"
  139.     wait  "^M^J＞"
  140.     log
  141.     return
  142.  
  143. ;****************  送信簿の読み取り  ******************
  144.  
  145. SDL:
  146.     title "送信簿受信中"
  147.     send "GO MAIL^M"
  148.     wait  "^M^JMAIL>"
  149.     log "SDL.LOG"
  150.     send "SDL^M"
  151.     wait  "^M^JMAIL>"
  152.     log
  153.     send "COND SDL^M"
  154.     loopswitch
  155.         case "^M^JMAIL>"
  156.             breakloop
  157.         case "^M^J："
  158.             send "1^M"
  159.             wait  "^M^J："
  160.             send "1^M"
  161.             wait  "^M^JMAIL>"
  162.             breakloop
  163.     endloop
  164.     return
  165.  
  166. ;********* プロフィール読みだしコマンド  **********
  167. Profile:
  168.     title "プロフィールを読込中"
  169.     #flag = "FALSE"
  170.     ##i = length(#1)
  171.     #id = part(#1, 1, ##i-1)
  172.     send #id+"^M"
  173.     log "PROF."
  174.     loopswitch
  175.         case "－該当する利用者のプロフィールはありません－"
  176.             #flag = "TRUE"
  177.         case postmilliidle(500) "^M^J＞", postmilliidle(500) "^M^JFORUM>", postmilliidle(500) "^M^JCCS(N)>", postmilliidle(500) "^M^JCCS(P)>", postmilliidle(500) "^M^JLIB>"
  178.             breakloop
  179.         case postmilliidle(500) "^M^JMAIL>", postmilliidle(500) "^M^JHP>", postmilliidle(500) "^M^JPATIO(N)>", postmilliidle(500) "^M^JPATIO(P)>"
  180.             breakloop
  181.     endloop
  182.     log
  183. ;if( #flag == "TRUE" )
  184.     send "GO MEMBERS^M"
  185.     wait "^M^J＞"
  186.     send "1^M"
  187.     wait "^M^J："
  188.     #id = part(#1, 6, ##i-6)
  189.     send #id+"^M"
  190.     log "PROF."
  191.     loopswitch
  192.         case "表示終了"
  193.             log
  194.         case "◆該当する利用者は公開されていません◆"
  195.             log
  196.         case postmilliidle(500) "^M^J＞"
  197.             breakloop
  198.         case postmilliidle(500) "^M^J："
  199.             send "^M"
  200.     endloop
  201. ;endif
  202. return
  203.  
  204. ;********* アクセスギフト送付コマンド  **********
  205. AccessGift:
  206.  
  207.     readfile #1, #id
  208.     readfile #1, #money
  209.     readfile #1, #message
  210.     title "アクセスギフト送付作業中"
  211.     send "GO ACGIFT^M"
  212.     wait "^M^J＞"
  213.     send "2^M"
  214.     wait "^M^J＞"
  215.     if( #money == "3" )
  216.         send "2^M"
  217.         goto AccessGiftCancel
  218.     else
  219.         send "1^M"
  220.     endif
  221.     wait "^M^J："
  222.     send #id+"^M"
  223.     loopswitch
  224.         case "^M^J："
  225.             breakloop
  226.         case "◆"
  227.             wait "^M^J："
  228.             send "^M"
  229.             wait "^M^J＞"
  230.             call PADNAV.SCR:ErrorLog "アクセスギフト送付ミス "+#id
  231.             return
  232.     endloop
  233.     send "1^M"
  234.     wait "^M^J："
  235.     send #money+"^M"
  236.     wait "^M^J："
  237.     send "1^M"
  238.     loopswitch
  239.         case "^M^J："
  240.             breakloop
  241.         case "^M^J本文 (10行まで  終了は行頭で/E)"
  242.             send #message+"^M"
  243.             send "/E^M"
  244.             wait "^M^J："
  245.             send "2^M"
  246.     endloop
  247.     question "本当に送付してもいいですか？"
  248.     if( yes )
  249.         #cmd = "1^M"
  250.     else
  251.         #cmd = "2^M"
  252.     endif
  253.     send #cmd
  254.     wait  "^M^J＞"
  255. return
  256.  
  257. AccessGiftCancel:
  258.     wait "^M^J＞"
  259.     send "1^M"
  260.     wait "^M^J："
  261.     send "1^M"
  262.     loopswitch
  263.         case "^M^J："
  264.             breakloop
  265.         case "^M^J本文 (10行まで  終了は行頭で/E)"
  266.             send #message+"^M"
  267.             send "/E^M"
  268.             wait "^M^J："
  269.             send "2^M"
  270.     endloop
  271.     send "1^M"
  272.     wait  "^M^J＞"
  273. return
  274.  
  275. ;********* アクセスギフト受領コマンド  **********
  276. ReceiveGift:
  277.  
  278.     title "アクセスギフト受領作業中"
  279.     send "GO ACGIFT^M"
  280.     wait "^M^J＞"
  281.     send "3^M"
  282.     loopswitch
  283.         case "^M^J＞"
  284.             breakloop
  285.         case "◆"
  286.             wait "^M^J＞"
  287.             call PADNAV.SCR:ErrorLog "受領可能なアクセスギフトはありませんでした"
  288.             return
  289.     endloop
  290.     send "1^M"
  291.     wait "^M^J："
  292.     send "1^M"
  293.     wait  "^M^J＞"
  294. return
  295.  
  296. ;********* ファイルファインダー処理コマンド  **********
  297. FileFinder:
  298.  
  299.     readfile #1, #base
  300.     title "ファイルファインダー実行中"
  301.     send "GO FILEFIND^M"
  302.     wait "^M^J＞"
  303.     send #base+"^M"
  304.     wait "^M^J＞"
  305.     send "1^M"
  306.     wait ")："
  307.     ##i = 0
  308.     beginloop
  309.         readfile #1, #line
  310.         if( length(#line) == 0) breakloop
  311.         send #line+"^M"
  312.         wait ")：", "^M^J＞"
  313.         ##i = ##i + 1
  314.     endloop
  315.     send "^M"
  316.     readfile #1, #logic
  317.     loopswitch
  318.         case "^M^J："
  319.             if( ##i > 1 )
  320.                 send #logic+"^M"
  321.                 wait "^M^J："
  322.             endif
  323.             send "1^M"
  324.         case "^M^J＞"
  325.             breakloop
  326.     endloop
  327.     readfile #1, #data
  328.     if( length(#data) > 0 )
  329.         send "2^M"
  330.         wait "^M^J："
  331.         send #data+"^M"
  332.         wait "^M^J＞"
  333.     endif
  334.     readfile #1, #id
  335.     if( length(#id) > 0 )
  336.         send "4^M"
  337.         wait "^M^J："
  338.         send #id+"^M"
  339.         wait "^M^J＞"
  340.     endif
  341.     readfile #1, #date
  342.     if( length(#date) > 0 )
  343.         readfile #1, #direction
  344.         send "5^M"
  345.         wait "^M^J："
  346.         send #date+"^M"
  347.         wait "^M^J："
  348.         send #direction+"^M"
  349.         wait "^M^J＞"
  350.     endif
  351.     readfile #1, #line
  352.     if( length(#line) > 0 )
  353.         send "6^M"
  354.         wait "^M^J："
  355.         send #line+"^M"
  356.         wait "^M^J＞"
  357.     endif
  358.     readfile #1, #line
  359.     if( length(#line) > 0 )
  360.         readfile #1, #direction
  361.         send "7^M"
  362.         wait "^M^J："
  363.         send #line+"^M"
  364.         wait "^M^J："
  365.         send #direction+"^M"
  366.         wait "^M^J＞"
  367.     endif
  368.     readfile #1, #line
  369.     if( length(#line) > 0 )
  370.         if( #line != "2" )
  371.             send "C^M"
  372.             wait "^M^J："
  373.             send #line+"^M"
  374.             wait "^M^J＞"
  375.         endif
  376.     endif
  377.     readfile #1, #num
  378.     ##num = value(#num)
  379.     readfile #1, #line
  380.     send "L^M"
  381.     log #2+"\hosoku\finder"
  382.     #found = "TRUE"
  383.     loopswitch
  384.         case "－該当するデータはありません－"
  385.             #found = "FALSE"
  386.             log
  387.         case "^M^J＞"
  388.             breakloop
  389.     endloop
  390.     if( #found == "TRUE" )
  391.         send "all^M"
  392.         ##i = 0
  393.         while( ##i < ##num )
  394.             #cmd = "NULL"
  395.             loopswitch
  396.                 case postmilliidle(500) "^M^J＞"
  397.                     breakloop
  398.                 case "^M^J処理 (1:ダウンロード  S:次データ  E:終了)"
  399.                     #cmd = "READ"
  400.                 case "^M^J処理 (1:ダウンロード  E:終了)"
  401.                     #cmd = "END"
  402.             endloop
  403.             if( #cmd = "END" ) breakloop
  404.             if( ##i >= ##num ) breakloop
  405.             send "S^M"
  406.               ##i = ##i + 1
  407.         endwhile
  408.         log
  409.     endif
  410. return
  411.  
  412. ;************** シェアウェア入金確認  ***************
  413. CheckShare:
  414.     title "シェアウェア入金確認"
  415.     send "GO SWREG^M"
  416.     wait  "^M^J＞"
  417.     send "3^M"
  418.     wait  "^M^J＞"
  419.     send "2^M"
  420.     wait  "^M^J＞"
  421.     send "5^M"
  422.     wait  "^M^J＞"
  423.     send #1+"^M"
  424.     wait  "^M^J："
  425.     send #2+"^M"
  426.     wait  "^M^J："
  427.     send #3+"^M"
  428.     chdir download
  429.     #log = "SW_"+#1+".ﾎｿｸ"
  430.     log #log
  431.     wait  "^M^J＞"
  432.     log
  433.     restoredir
  434.     return
  435.  
  436. ;********* 会議室タイトル読取コマンド  **********
  437. GetMesTitle:
  438.     send "RTN^M"
  439.     loopswitch
  440.         case "題名"
  441.             log #1
  442.             wait "^M^J＞"
  443.             log
  444.             send "^M"
  445.             wait  "^M^JCCS(N)>", "^M^JCCS(P)>"
  446.             send "RC MAX^M"
  447.             wait  "^M^JCCS(N)>", "^M^JCCS(P)>"
  448.             breakloop
  449.         case "ありません◆"
  450.             wait "^M^JCCS(N)>", "^M^JCCS(P)>", "^M^J＞"
  451.             call PADNAV.SCR:ErrorLog "会議室タイトル取得ミス "+#1
  452.             breakloop
  453.         case "^M^J現在、サービスは"
  454.             wait "^M^J＞", "^M^JFORUM>", "^M^JCCS(N)>", "^M^JCCS(P)>", "^M^JLIB>"
  455.             call PADNAV.SCR:ErrorLog "会議室混雑("+#1+")"
  456.             breakloop
  457.     endloop
  458.     return
  459.  
  460. ;*********  ライブラリリスト読取コマンド  **********
  461. GetLibList:
  462.     appendfile #1
  463.     if( no )
  464.         #date = #3
  465.     else
  466.         #date = #2
  467.     endif
  468.     if( @libscan == "YES" ) #date = #3
  469.     closefile #1
  470.     loopswitch
  471.         case "^M^JLIB>"
  472.             send "SCAN DATE:"+#date+"^M"
  473.             wait  "^M^J："
  474.             send "^M"
  475.             loopswitch
  476.                 case "データ名"
  477.                     log #1
  478.                     wait  "^M^J＞"
  479.                     log
  480.                     breakloop
  481.                 case "ありません－"
  482.                     wait  "^M^J＞"
  483.                     breakloop
  484.             endloop
  485.             breakloop
  486.         case "^M^J－現在、公開ライブラリ"
  487.             wait "^M^J＞", "^M^JFORUM>", "^M^JCCS(N)>", "^M^JCCS(P)>", "^M^JLIB>"
  488.             call PADNAV.SCR:ErrorLog "ライブラリが存在しない("+#1+")"
  489.             breakloop
  490.         case "このフォーラムでは利用できません"
  491.             wait "^M^J＞", "^M^JFORUM>", "^M^JCCS(N)>", "^M^JCCS(P)>", "^M^JLIB>"
  492.             call PADNAV.SCR:ErrorLog "ライブラリ利用不可("+#1+")"
  493.             breakloop
  494.         case "^M^J現在、サービスは"
  495.             wait "^M^J＞", "^M^JFORUM>", "^M^JCCS(N)>", "^M^JCCS(P)>", "^M^JLIB>"
  496.             call PADNAV.SCR:ErrorLog "ライブラリ混雑("+#1+")"
  497.             breakloop
  498.         case "^M^J＞"
  499.             breakloop
  500.         case "^M^J◆該当するライブラリ"
  501.             wait "^M^J＞", "^M^JFORUM>", "^M^JCCS(N)>", "^M^JCCS(P)>", "^M^JLIB>"
  502.             call PADNAV.SCR:ErrorLog "ライブラリが見つからない("+#1+")"
  503.             breakloop
  504.     endloop
  505.     send "E^M"
  506.     wait "^M^JLIB>", "^M^JFORUM>", "^M^J＞"
  507.     return
  508.  
  509.