2chルーレット〜プログラム板〜

このエントリーをはてなブックマークに追加
1デフォルトの名無しさん
>今日は暇だし、2ch行こう・・・。
>でもどこのスレがいいかなぁ・・・?
>正直、どこでもいい・・・。

>こんな人漏れだけじゃないハズだ!?
>そんな人達の為に、
>某ゲームのランダムセレクトのような
>どこの板のどこのスレに飛ぶか解からない入り口があったらなぁと、
>ふと思いますた。

イベント板の本スレ
http://choco.2ch.net/test/read.cgi/event/1031236865/l50
2get ずさー
内容ちゃんと書け!
42:02/09/08 04:46
分かったよ
VBSでIEのコンポーネント使って、
2chのトップにナビゲートして、
乱数で何番目かのリンク先を選んで、そのリンク先に飛んで、
さらに、その中のスレッドを乱数で選んでリンク先に飛ばす。
みたいな感じで書けそうだな。
鯖名, パス名, subback.html があれば何だってよかんべよ
鯖名, パス名の代わりに bbstable でも良いけど

(゚Д゚)ハァ?
1/100でブラクラ飛んで下さい。
>>6
何が変?
(゚Д゚)ハァ?
はじめまして。元スレの1です。
この度は心ある人が私の愚かな考えに興味を抱いてくださり、
ここにスレッドを立ててくれました。
これによって上の私の発言が
あなた方のような専門的な知識を豊富に持った方の耳に少しでも入ると思うと
とても光栄でございます。
特に4,5様、貴重なご意見ありがとうございました!
アホな私には難しい言葉満載ですごいです。
駄文長文すいませんでした。
112:02/09/10 07:38
BBS_TABLE = "http://www.ff.iij4u.or.jp/~ch2/bbstable.html"
Randomize
Set IE = GetIEobject
IE.Visible = true
IE.Navigate BBS_TABLE
WaitLoad
IE.Navigate GetRandomLinkURL & "subback.html"
WaitLoad
IE.Navigate GetRandomLinkURL
WaitLoad
Set IE = Nothing
Wscript.Quit
122:02/09/10 07:39

' ランダムにリンク先を取得する
Function GetRandomLinkURL
On Error Resume Next
Err.Clear
Set CurrentDocument = IE.Document
if Err.number <> 0 then
MsgBox "エラー " & Err.number & " が発生"
IE.Quit
Set CurrentDocument = Nothing
Set IE = Nothing
Wscript.Quit
Exit Function
Else
LinksCount = CurrentDocument.links.length
NavLink = Int(Rnd * LinksCount)
GetRandomLinkURL = CurrentDocument.links(NavLink)
Set CurrentDocument = Nothing
End If
On Error Goto 0
End Function
132:02/09/10 07:39
' IEオブジェクトの取得
Function GetIEobject
On Error Resume Next
Err.Clear
Set GetIEobject = WScript.CreateObject("InternetExplorer.Application","IE_")
If Err.number <> 0 Then
MsgBox "IEオブジェクトの作成に失敗しました"
Wscript.Quit
Exit Function
End If
On Error Goto 0
End Function
' ページのロード待ち
Sub WaitLoad
DO
DO
Wscript.Sleep 100
Loop while IE.Busy = true
LOOP while IE.ReadyState = READYSTATE_COMPLETE
end sub
142:02/09/10 07:44
>>11-13
はっきり言って手抜きだが、VBSで書いてみた。
メモ帳とかにコピペして、拡張子をvbsにして
Win98/ME/2K/XP+IE5以上
動作確認環境は、WinXPpro + IE6

いじょ
15デフォルトの名無しさん:02/09/10 08:36
>>14

お疲れ
WinXPで同じく動作確認
1615:02/09/10 08:39
たまに「大先生の検索」とか「あめぞう2000」とかに飛んじゃうのね。。
172:02/09/11 09:00
>>15-16
使ってくれて、ありがとん

>>13
誰かに突っ込まれないうちに訂正しとく

×LOOP while IE.ReadyState = READYSTATE_COMPLETE
○LOOP until IE.ReadyState = 4

VBではdefineされてなかった・・・鬱
18デフォルトの名無しさん:02/09/12 09:17
これCGIで作ってみた。
だけど、bbsmenu.htmlとsubback.htmlの取得に
system()でwgetつかってるんだよねー
普通こういうときってLWPモジュールとか使うのかな。
自宅のUN*Xな環境で使う分にはこまらんのだけど。
1918:02/09/12 09:20
書き忘れ。
言語はPerl。おもしろそうなのでPerlの勉強がてらつくってみたのよ。
20bloom:02/09/12 09:24
2118:02/09/12 10:08
ぐぐってみたら・・・・
なるほど、SOKET通信なのね。
しばらくごにょごにょしてみます。

できたら公開してみるか。
2218:02/09/12 13:14
もー独り言状態ですが。。。。
できました。
ttp://olive.zero.ad.jp/~zbk52224/files/Random2ch-0-2.tar.gz
においたので、興味のある方はどうぞ。

親切な説明はまったくありませんので、わかる人が使ってみてください。
>>21できづいため、Socketモジュールを使ってます。
つーことでPerl5以上でつかってね。

ねむいのでねる。
>>18
LWP使うなら...

use LWP::Simple;
$data = get $url;
2418:02/09/12 20:16
>>23
LWPって標準ではいってるもんなんですか?
うちのPerl環境にはなかったみたいで、てっきり各自でインストールするもんかとおもったので、
Use Socket;しちゃいました。
まー、勉強になったからいいけど。
25デフォルトの名無しさん:02/09/12 23:23
元スレの1です!!
2さん2さん2さん!!!
そしてその他のプログラム板の皆さん!
本当に本当にありがとうございます!!
プログラミングってすごいんですね!
私はプログラムは全く疎いものです。
しかし言われた通り11〜13をメモ帳にコピーして、
14で言われた通り拡張し変えて、
ダブルクリックしたら感動いたしました!
ものの2分で
私のパソコンのデスクトップにルーレット入り口が出現!!?
楽しくて楽しくて色んな所にワープしまくりました!
まだ未熟者なので16さんのように他の所へのワープはできませんが…。
しかもまず板のタイトルが見え、その後スレッドへ飛ぶという
とても親切な作りなので、ワープしたところがどこか迷わないで済むところも
気に入っています。
私はアホなので、17以降の難しいのは試すことが出来ませんが、
どんなになるのでしょうかね?

せっかく作って頂いたのにお礼の品とか出来なくてすいません。
2さんに幸あれ!プログラム板に幸あれ!

なんかすっげぇ建設的なすれだな。
2718:02/09/13 04:19
>>25
設置しちゃえば簡単につかえるよ。
つーことでアカとって設置してきました。
http://tokada.s19.xrea.com/


設置に伴ってバグもみつかったので取り除きました。
>>22は普通のUNIXだと動かない・・・・
更新後のソースもおいておきましたので、興味のある方はどうぞ。
かちゅに組み込めないかな?
>>27 おつ
>18
至れり尽くせりですね
Perlの勉強に使わせてもらいます〜
3118:02/09/14 21:41
>>30
勉強で使うほど、模範的なソースじゃないと思いますよ・・・
むしろ変なとこ指摘してほしいくらいです・・・
3218:02/09/17 05:29
なんかすげー負荷かかってる(汗
CGIあぼーんの危機
だれかCGIのミラーを設置してくれないかなあ・・・・
あと、ソースをこうすれば負荷が減るってアドバイスきぼんぬ
>>32
ミラーなた、xreaのアカもう1個とって作ればいいような。
xreaは一人で複数アカ取ることを認めてるようだし。
3418:02/09/19 11:43
>>33
なるほど。負荷がおちつかないようだったら検討してみます。
3518:02/09/21 13:51
WebProg板でかなりためになるアドバイスもらったので
ポインタおいときます。
【WebProg】 【Perl】初心者コーナー Part16
http://pc.2ch.net/test/read.cgi/php/1032070299/l50

特に190さんの
http://boobar.hoops.ne.jp/Rand2ch/Rand2ch_0.2.1a.txt
は私のオリジナル版より100倍エレガントですw
36んさしなな:02/09/22 11:26
町BBSにも飛べるようおながいしまふ
3718:02/09/26 20:31
しばらく留守にしてました。
>>36
町BBSかあ。ちっとまっててね。
サイトでも作って勝手にやってろよウゼェ
3918:02/10/13 23:07
>>36
対応しました
なんかすっげぇ建設的なすれだな。
WinMX saiko-!
4218:02/11/08 12:20
履歴をのこすバージョンつくって見ました。
まーいまのとこはそれだけなんですが、いろいろ拡張するための習作って位置付けです。
耐久テストしたいので宣伝しときます。
http://tokada.s19.xrea.com/
(D払?
44んさしなな:02/11/15 17:14
隠し板にも行くようにお願いします
4518:02/11/20 18:47
隠し板ってよくしらないんですが
^http://(?:[^.]+\.)+(?:2ch\.net|bbspink\.com|machibbs\.com)/\S+/$
でマッチしますかね?マッチするのであれば、
隠し板へのリンクを含んだhtmlを見付けるか、自前でWeb上に置くなりして、
そのURLを%option{urlBbsmenu}にいれれば現在のスクリプトで対応可能なはずですよ。
18さんのをeRubyに移植してみた。
http://raccy.s1.xrea.com/ruby/rand2ch.html
49真実:03/01/02 16:09
        あるネット関連会社の社長は、「いずれにしても2ちゃんねるは
資金が底をつけば終わり。あまり知られていないことだが、
2ちゃんねる内部関係者によると今、大手通信会社系が調査費名目で資金提供している。
だが、それが止まれば続けてはいけないだろう」と証言する。
2ちゃんねるが判決によって力を失った場合、資金提供の打ち切りも予想される。
http://ascii24.com/news/reading/causebooks/2002/07/01/636911-000.html

 以下、別の記事のキャッシュ http://memo2ch.tripod.co.jp/article.html
 2ちゃんねるに近いあるインターネット関連会社の社長は、2ちゃんねるの幹部から得
た話として証言する。「2ちゃんねるは、運営者や幹部などがそれぞれ別々に会社を
作りカネの流れを見え難くしているが、実際の資金源は複数の大手通信会社系からの
調査費名目のカネ。月額で計約700万円と言い、年間にすれば1億円近く。額はともあ
れ、これは通信会社系的には、ぼう大なトラフィックを調査すると言う表向きの理由
が一応は立つ。自社系に都合の悪い書き込みがされた時に優先的に削除してもらうこ
とも期待している」と前置きし「通信会社系の削除の期待も含めて、2ちゃんねるは
総会屋と同じになっている」と言うのだ。
 その具体的な理由として社長は、こう話す。「2ちゃんねるはボランティアの削除人
が書き込みをチェックして、好ましくない書き込みを一所懸命削除している、という
ことになっているが、あれはウソ。削除人には給料が支払われ、その給料の原資と
なっているのが、まずいことを書き込まれた企業が削除要求とともに渡す裏金。これ
はまさに、総会屋の構図そのものだ。これまで裁判になっているのは金額で折り合え
なかったり、裏金を出さない強い態度の企業とだけだ」
50IP記録実験:03/01/08 22:15
IP記録実験
http://qb.2ch.net/test/read.cgi/accuse/1042013605/

1 名前:ひろゆき ◆3SHRUNYAXA @どうやら管理人 ★ 投稿日:03/01/08 17:13 ID:???
そんなわけで、qbサーバでIPの記録実験をはじめましたー。

27 名前:心得をよく読みましょう 投稿日:03/01/08 17:20 ID:yL/kYdMc
SETTING.TXT管轄でないということは全鯖導入を視野に、か?

38 名前:ひろゆき ◆3SHRUNYAXA 投稿日:03/01/08 17:22 ID:rLfxQ17l
>>27
鋭いです。

73 名前:ひろゆき ◆3SHRUNYAXA 投稿日:03/01/08 17:27 ID:rLfxQ17l
>ところで、IPが抜かれて何か今までと変わることってあるのでしょうか?
・今までより、サーバが重くなる。
・裁判所や警察からの照会があった場合にはIPを提出することがある。
なんとか頑張って下さい>ひろゆき

お金は持ってないけど応援します。
どうですか。( ´Д⊂
>>459
ワラタ



   ひろゆきは帰った?wwwww
>>135
最後自宅かよ!
げりゆきも大変だな
ピンクは2ちゃんねるじゃないじゃない。
======2==C==H======================================================

         2ちゃんねるのお勧めな話題と
     ネットでの面白い出来事を配送したいと思ってます。。。

===============================読者数: 138720人 発行日:2003/1/9

年末年始ボケがそろそろ収まり始めた今日このごろのひろゆきです。

そんなわけで、年末に予告したIP記録ですが実験を開始しています。

「2ちゃんねる20030107」
こんな感じで各掲示板の最下部に日付が入ってるんですが、
20030107以降になってるところはログ記録実験中ですー。

んじゃ!

────────────────────────Age2ch─
■この書き込みは、Age2chを使って配信されています。
────────────────────────────
Keep your thread alive !
http://pc3.2ch.net/test/read.cgi/software/1041952901/l50
────────────────────────────
Abone
こんどからリモホ丸出しで書き込むことに決めたからな
名誉毀損の書きこみがあったと認識し、または認識しえたとき。
てか、日本語も読めないのに良く掲示板利用してるな。
>>24 じゃ、いつ作為義務が発生したと判決は言っているというのでしょうか?
ア○キ−
2ちゃんねる が衰退していく

あるネット関連会社の社長は、
「いずれにしても2ちゃんねるは資金が底をつけば終わり。
あまり知られていないことだが、2ちゃんねる内部関係者によると今、
大手通信会社系が調査費名目で資金提供している。
だが、それが止まれば続けてはいけないだろう」
と証言する。
2ちゃんねるが判決によって力を失った場合、
資金提供の打ち切りも予想される。

http://ascii24.com/news/reading/causebooks/2002/07/01/636911-000.html
別にいいけど、ガイドラインの「匿名」ってのは全部消さないとね。
なんでヤフートピックスにまでなってるのだ。
ばくげきたいさく。。どきどき

刑法の侮辱罪になるよ
まあ、危なっかしい書き込みの抑制にはなるかな
IP記録について俺は宣言する『マンコ』
そういやこの頃激しく忍者さんを見かけてないな
さん
ついていきますわ!
   /⌒∞、 ずさー♥
  ./ ゚∀~・:ヽ、 
  ι、,,,,、,,,,,,、,,,,ゝ
======2==C==H======================================================

         2ちゃんねるのお勧めな話題と
     ネットでの面白い出来事を配送したいと思ってます。。。

===============================読者数: 139038人 発行日:2003/1/10

なにやら、連日メルマガだしてるひろゆきです。

そんなわけで、ログ記録実験ですが、いちいちサーバ指定するのが面倒なので、
全部のサーバに入れてみました。

重くなって落ちたりしてもご愛嬌ってことで。。。

んじゃ!

────────────────────────Age2ch─
■この書き込みは、Age2chを使って配信されています。
────────────────────────────
Keep your thread alive !
http://pc3.2ch.net/test/read.cgi/software/1041952901/l50
────────────────────────────
ヤフーみたいなもんだ。
ゴキブリを殺しました。←これも通報されますか?
さん
それはID解析ではないの?
わーい!期待しとくよ。
っていうかな IP取った時点で2ちゃんねるの存在価値は無いだろう
IP取れっていう香愚氏はNIFにでも行けっての
ここは匿名が無ければつまらないインターネットです。
10人殺したら、超えてるような
なりすましアクしかないな
ヤベェすっかり忘れてた。うpろだ放置状態だ…
なんかすっげぇ建設的なすれだな。
あぼーん
778
もらい泣き
サンケイ新聞が通報したのか?
掲示板の書き込みを鵜呑みにするやつはもっと悲惨だよ
800⊂(゚∀゚ )  
>616
それが争点になればねぇ・・
ドキュソを証明するのは簡単なんだけど、それを判断する香具師がオールドタイプだから・・
だいたい 3〜4ヶ月だと思うんだけど、
最近はどうなんでしょうね。
92山崎渉:03/01/13 18:36
(^^)
そうですね。
現行犯の場合は訴えられなくても捕まりますね。
94山崎渉:03/01/15 17:57
(^^)
95山崎渉:03/01/23 22:18
(^^)
ア○キ-