2chルーレット〜プログラム板〜
■ このスレッドは過去ログ倉庫に格納されています
0001デフォルトの名無しさん
NGNG＞でもどこのスレがいいかなぁ・・・？
＞正直、どこでもいい・・・。
＞
＞こんな人漏れだけじゃないハズだ！？
＞そんな人達の為に、
＞某ゲームのランダムセレクトのような
＞どこの板のどこのスレに飛ぶか解からない入り口があったらなぁと、
＞ふと思いますた。
イベント板の本スレ
http://choco.2ch.net/test/read.cgi/event/1031236865/l50
0002デフォルトの名無しさん
NGNG0003デフォルトの名無しさん
NGNG00042
NGNGVBSでIEのコンポーネント使って、
2chのトップにナビゲートして、
乱数で何番目かのリンク先を選んで、そのリンク先に飛んで、
さらに、その中のスレッドを乱数で選んでリンク先に飛ばす。
みたいな感じで書けそうだな。
0005デフォルトの名無しさん
NGNG鯖名, パス名の代わりに bbstable でも良いけど
0006デフォルトの名無しさん
NGNG0007デフォルトの名無しさん
NGNG0008デフォルトの名無しさん
NGNG何が変？
0009デフォルトの名無しさん
NGNG0010デフォルトの名無しさん
NGNGこの度は心ある人が私の愚かな考えに興味を抱いてくださり、
ここにスレッドを立ててくれました。
これによって上の私の発言が
あなた方のような専門的な知識を豊富に持った方の耳に少しでも入ると思うと
とても光栄でございます。
特に4,5様、貴重なご意見ありがとうございました！
アホな私には難しい言葉満載ですごいです。
駄文長文すいませんでした。
00112
NGNGRandomize
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
00122
NGNG' ランダムにリンク先を取得する
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
00132
NGNGFunction 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
00142
NGNGはっきり言って手抜きだが、VBSで書いてみた。
メモ帳とかにコピペして、拡張子をvbsにして
Win98/ME/2K/XP＋IE5以上
動作確認環境は、WinXPpro + IE6
いじょ
0015デフォルトの名無しさん
NGNGお疲れ
WinXPで同じく動作確認
0016１５
NGNG00172
NGNG使ってくれて、ありがとん
>>13
誰かに突っ込まれないうちに訂正しとく
×LOOP while IE.ReadyState = READYSTATE_COMPLETE
○LOOP until IE.ReadyState = 4
VBではdefineされてなかった・・・鬱
0018デフォルトの名無しさん
NGNGだけど、bbsmenu.htmlとsubback.htmlの取得に
system()でwgetつかってるんだよねー
普通こういうときってLWPモジュールとか使うのかな。
自宅のUN*Xな環境で使う分にはこまらんのだけど。
001918
NGNG言語はPerl。おもしろそうなのでPerlの勉強がてらつくってみたのよ。
0020bloom
NGNGhttp://www.leverage.jp/bloom/start3/
002118
NGNGなるほど、SOKET通信なのね。
しばらくごにょごにょしてみます。
できたら公開してみるか。
002218
NGNGできました。
ttp://olive.zero.ad.jp/~zbk52224/files/Random2ch-0-2.tar.gz
においたので、興味のある方はどうぞ。
親切な説明はまったくありませんので、わかる人が使ってみてください。
>>21できづいため、Socketモジュールを使ってます。
つーことでPerl5以上でつかってね。
ねむいのでねる。
0023デフォルトの名無しさん
NGNGLWP使うなら．．．
use LWP::Simple;
$data = get $url;
002418
NGNGLWPって標準ではいってるもんなんですか?
うちのPerl環境にはなかったみたいで、てっきり各自でインストールするもんかとおもったので、
Use Socket；しちゃいました。
まー、勉強になったからいいけど。
0025デフォルトの名無しさん
NGNG2さん2さん2さん！！！
そしてその他のプログラム板の皆さん！
本当に本当にありがとうございます！！
プログラミングってすごいんですね！
私はプログラムは全く疎いものです。
しかし言われた通り11〜13をメモ帳にコピーして、
14で言われた通り拡張し変えて、
ダブルクリックしたら感動いたしました！
ものの２分で
私のパソコンのデスクトップにルーレット入り口が出現！！？
楽しくて楽しくて色んな所にワープしまくりました！
まだ未熟者なので16さんのように他の所へのワープはできませんが…。
しかもまず板のタイトルが見え、その後スレッドへ飛ぶという
とても親切な作りなので、ワープしたところがどこか迷わないで済むところも
気に入っています。
私はアホなので、17以降の難しいのは試すことが出来ませんが、
どんなになるのでしょうかね？
せっかく作って頂いたのにお礼の品とか出来なくてすいません。
２さんに幸あれ！プログラム板に幸あれ！
0026デフォルトの名無しさん
NGNG002718
NGNG設置しちゃえば簡単につかえるよ。
つーことでアカとって設置してきました。
http://tokada.s19.xrea.com/
設置に伴ってバグもみつかったので取り除きました。
>>22は普通のUNIXだと動かない・・・・
更新後のソースもおいておきましたので、興味のある方はどうぞ。
0028デフォルトの名無しさん
NGNG0029デフォルトの名無しさん
NGNG0030デフォルトの名無しさん
NGNG至れり尽くせりですね
Perlの勉強に使わせてもらいます〜
003218
NGNGCGIあぼーんの危機
だれかCGIのミラーを設置してくれないかなあ・・・・
あと、ソースをこうすれば負荷が減るってアドバイスきぼんぬ
0033デフォルトの名無しさん
NGNGミラーなた、xreaのアカもう１個とって作ればいいような。
xreaは一人で複数アカ取ることを認めてるようだし。
003518
NGNGポインタおいときます。
【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
0036んさしなな
NGNG003718
NGNG>>36
町BBSかあ。ちっとまっててね。
0038デフォルトの名無しさん
NGNG003918
NGNG対応しました
0040デフォルトの名無しさん
NGNG0041デフォルトの名無しさん
NGNG004218
NGNGまーいまのとこはそれだけなんですが、いろいろ拡張するための習作って位置付けです。
耐久テストしたいので宣伝しときます。
http://tokada.s19.xrea.com/
0043デフォルトの名無しさん
NGNG0044んさしなな
NGNG004518
NGNG^http://(?:[^.]+\.)+(?:2ch\.net|bbspink\.com|machibbs\.com)/\S+/$
でマッチしますかね?マッチするのであれば、
隠し板へのリンクを含んだhtmlを見付けるか、自前でWeb上に置くなりして、
そのURLを%option{urlBbsmenu}にいれれば現在のスクリプトで対応可能なはずですよ。
0046デフォルトの名無しさん
NGNG0047デフォルトの名無しさん
NGNG0048デフォルトの名無しさん
NGNGhttp://raccy.s1.xrea.com/ruby/rand2ch.html
0049真実
NGNG資金が底をつけば終わり。あまり知られていないことだが、
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ちゃんねるはボランティアの削除人
が書き込みをチェックして、好ましくない書き込みを一所懸命削除している、という
ことになっているが、あれはウソ。削除人には給料が支払われ、その給料の原資と
なっているのが、まずいことを書き込まれた企業が削除要求とともに渡す裏金。これ
はまさに、総会屋の構図そのものだ。これまで裁判になっているのは金額で折り合え
なかったり、裏金を出さない強い態度の企業とだけだ」
0050IP記録実験
NGNGhttp://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を提出することがある。
0051デフォルトの名無しさん
NGNGお金は持ってないけど応援します。
0052デフォルトの名無しさん
NGNG0053デフォルトの名無しさん
NGNGﾜﾗﾀ
0054デフォルトの名無しさん
NGNGひろゆきは帰った？ｗｗｗｗｗ
0055デフォルトの名無しさん
NGNG最後自宅かよ！
0056デフォルトの名無しさん
NGNG0057デフォルトの名無しさん
NGNG0058デフォルトの名無しさん
NGNG２ちゃんねるのお勧めな話題と
ネットでの面白い出来事を配送したいと思ってます。。。
===============================読者数： 138720人 発行日：2003/1/9
年末年始ボケがそろそろ収まり始めた今日このごろのひろゆきです。
そんなわけで、年末に予告したIP記録ですが実験を開始しています。
「２ちゃんねる20030107」
こんな感じで各掲示板の最下部に日付が入ってるんですが、
20030107以降になってるところはログ記録実験中ですー。
んじゃ！
────────────────────────Age2ch─
■この書き込みは、Age2chを使って配信されています。
────────────────────────────
Keep your thread alive !
http://pc3.2ch.net/test/read.cgi/software/1041952901/l50
────────────────────────────
0059デフォルトの名無しさん
NGNG0060デフォルトの名無しさん
NGNG0061デフォルトの名無しさん
NGNGてか、日本語も読めないのに良く掲示板利用してるな。
0062デフォルトの名無しさん
NGNG0063デフォルトの名無しさん
NGNG0064デフォルトの名無しさん
NGNGあるネット関連会社の社長は、
「いずれにしても2ちゃんねるは資金が底をつけば終わり。
あまり知られていないことだが、2ちゃんねる内部関係者によると今、
大手通信会社系が調査費名目で資金提供している。
だが、それが止まれば続けてはいけないだろう」
と証言する。
2ちゃんねるが判決によって力を失った場合、
資金提供の打ち切りも予想される。
http://ascii24.com/news/reading/causebooks/2002/07/01/636911-000.html
0065デフォルトの名無しさん
NGNG0066デフォルトの名無しさん
NGNG0067デフォルトの名無しさん
NGNG0068デフォルトの名無しさん
NGNG刑法の侮辱罪になるよ
0069デフォルトの名無しさん
NGNG0070デフォルトの名無しさん
NGNG0071デフォルトの名無しさん
NGNG0072デフォルトの名無しさん
NGNGついていきますわ！
0073デフォルトの名無しさん
NGNG./ ﾟ∀~・：ヽ、
ι､,,,,､,,,,,,､,,,,ゝ
0074デフォルトの名無しさん
NGNG２ちゃんねるのお勧めな話題と
ネットでの面白い出来事を配送したいと思ってます。。。
===============================読者数： 139038人 発行日：2003/1/10
なにやら、連日メルマガだしてるひろゆきです。
そんなわけで、ログ記録実験ですが、いちいちサーバ指定するのが面倒なので、
全部のサーバに入れてみました。
重くなって落ちたりしてもご愛嬌ってことで。。。
んじゃ！
────────────────────────Age2ch─
■この書き込みは、Age2chを使って配信されています。
────────────────────────────
Keep your thread alive !
http://pc3.2ch.net/test/read.cgi/software/1041952901/l50
────────────────────────────
0075デフォルトの名無しさん
NGNG0076デフォルトの名無しさん
NGNG0077デフォルトの名無しさん
NGNGそれはID解析ではないの？
0078デフォルトの名無しさん
NGNG0079デフォルトの名無しさん
NGNGIP取れっていう香愚氏はNIFにでも行けっての
ここは匿名が無ければつまらないインターネットです。
0080デフォルトの名無しさん
NGNG0081デフォルトの名無しさん
NGNG0082デフォルトの名無しさん
NGNG0083デフォルトの名無しさん
NGNG0084デフォルトの名無しさん
NGNG0085デフォルトの名無しさん
NGNG0086デフォルトの名無しさん
NGNG0087デフォルトの名無しさん
NGNG0088デフォルトの名無しさん
NGNG0089デフォルトの名無しさん
NGNG0090デフォルトの名無しさん
NGNGそれが争点になればねぇ・・
ﾄﾞｷｭｿを証明するのは簡単なんだけど、それを判断する香具師がオールドタイプだから・・
0091デフォルトの名無しさん
NGNG最近はどうなんでしょうね。
0092山崎渉
NGNG0093デフォルトの名無しさん
NGNG現行犯の場合は訴えられなくても捕まりますね。
0094山崎渉
NGNG0095山崎渉
NGNG0096デフォルトの名無しさん
NGNG■ このスレッドは過去ログ倉庫に格納されています