２ちゃんねる用ブラウザ「=2ch」

スレッド一覧が取得できなくなりました。
ドコ直せばイイでしょう？

>>197
Equal2chのline 624

If Left(boardfile(i), 8) = "<BR><BR>" Then
　　　　　　　　　　　　　　　　　　　↓
If Left(boardfile(i), 11) = "<BR><BR><B>" Then

気が向いたらバージョンアップします。

解決しました。
作者さん、ありがとうございました。m(_ _)m

読み上げ機能を利用したマクロ作成中・・・
これが出来ると、ラジオ感覚で２ちゃんが楽しめていい感じかなと

Ｗｉｎｘｐ+Ｅｘ2003だとうごかんのかなー

職場のｘｐ+２００２だと問題ないんだが

>>201
それくれるなら動くようにするけど。

冴子ｾﾝｾが喋るのですか？
そして声優は誰を？

>>203
ゴルゴflashのアレ

>>198見てなかった・・・
家帰ったら直してみる。

ちなみに２００も漏れでつ。
>>202
どうしても動かない時はよろ。

>>203-204
音声読み上げ機能ってのがあるのよ
参考までに
ttp://www.cs.k.tsukuba-tech.ac.jp/labo/koba/software/excel.html
音声読み上げ

読み上げ機能つき「＝２ｃｈ」亜種、コードネーム”からす”完成しますた。
http://www.uploda.org/file/uporg11869.zip

えーと、漏れはオリジナル「＝２ｃｈ」の作者様ではありません。
が、元データ改変自由とのことですので手をくわえてみますた。
・・・つっても本体にはほとんどいじってないんだよね。
本体から別ファイル読み出す形にして、別ファイルのほうに読み上げメインがあります。
あとはAAとかHPアドレスとかの読み上げ時に判別できる機能をつける予定。

・・・つか実は>>１９０も漏れだったり。

２ちゃんねる用ブラウザ「=2ch」、読み上げ機能つきバージョン
http://www.uploda.org/file/uporg11869.zip

・・・いや、マクロいじれるのでちょっと作ってみた。
２０００以降の音声読み上げ機能のついてるエクセルを使える方、おためしください

誤爆・・・

萌え声で冴子ｾﾝｾがしゃべるﾔﾂｷﾎﾞｿ!

あ、使い方書くの忘れた（つか誰かつっこめよ）

スレを表示させた状態でShift+ctrl+Qキーで読み上げ用窓が開きます。
三角マークのついたボタンを左右に動かすと前後のスレを読み上げますが、キーボード操作もいい感じ。
（カーソルキー、ページキー、ホーム＆エンドキー、エスケープキーなど）

>>209
ネタだと思うが一応マジレス。
内臓音声はキモ男とキモ女のみ。萌え声なんてできねーよｗ
（でも冴子先生にフキダシでしゃべらすのは面白そうだな・・・ちょっと挑戦してみまつ）

>>210
乙

ためしに色々しゃべらせたが・・・変な読み方するのにﾜﾗﾀ

英語発音が変なのが２ちゃん的だな・・・

>210
な、なんじゃこりゃｗ

けっこう面白いんだけどレスつかないねー。

EXCELで２ちゃん読むって人少ないのかな？

エクセルなんて使ったことないし
入ってないよ

マックでも使えるの？

　　俺もまたちやほやされたいから=2ch2作ることにした。
　　　　アイデアは情報処理試験の午前中に固めた
　　　　　　やる気はない

だいなりだいなり

>>216
おまえすげーな。

それで不合格だったら笑えるな。

>>214
仕事中に使えるのが=2chのｲｲところ。
声が出るのはｲﾏｲﾁ

>>219
地味に利用者が多そうだよな。

自分流のブラウザが欲しくてたまたま手頃な開発環境がExcel VBAってだけだったんだけどね。
だから俺家で常用してるよ（会社はアクセス制限かかっててな・・・）。

今日は台風で12:30終わりだった。今から開発再開。

エクセルベースだと、検索とかカーソル移動がWinと同じだから使いやすい！
あと、仕事中使いやすい！
ｻｸｰｼｬさんありがとう！

でも、最近見たスレが動かないポ。なんか設定が必要ですか？
Win2ｋ＋Office2000なんですが。

保存したら機能したよ orz
スレ汚しすまん

あと画像のプレビューが出れば完璧！

EXCEL2000@XPHomeです

起動すると板リスト作成のカテゴリ名の取得

category = Mid(boardfile(i), start, InStr(boardfile(i), "</B>") - start)

でとまってしまいます。動かすにはどうすればよいでしょうか？

会社で某社の監視ソフトを導入する事になったので、管理者にそれとバレないような
２ちゃんブラウザを探していたのですがこんなに便利なものがあるとは思いませんでした。
探していた条件にピッタリです。
今日、会社で試したのですが動いたときには大感動でした。
操作がまだよく分かっていないのですが体で覚えていきます。
簡単なマクロなら組んでいるのですが、ここまでの物が作れるとは知りませんでした。
あんまりマンセーするとたたかれそうですが本当に感謝感激です。

>224
EXCEL2000でXP_Proですが同じ症状出ました。構文を>198のように書き直したら動きました。

>>225
httpレベルではただの2chブラウザなので2秒でバレます。

>>226
ありゃ、そうなんですか。
確認したいのですがそれはアクセスログは記録される、という事ですよね？
実は今回導入されるソフトというのはアプリ名とウィンドウタイトルを
取得するのですが、アドレス情報は取得しないそうです。

ログは元々とられているのですが量が膨大なので滅多に見ていないようですし、
導入後はこちらのデータが主に使われると思うのでこちらの対策をしておけば
まあ何とかなるのでは、と思っているのですがどうでしょうね。

まだ導入まで間があるし、管理部門に同期がいるのでうまい事いって試してみます。
つーか、そいつにもばれないような物があったら教えてくれと頼まれてしまいました。

>>227
へぇ。頑張れば何とかなりそうですね。
非常にリスキーですが。

プロ棋士サーバを自宅に立てて経由させてはいかが？
アクセスしたURLを監視してる程度なら・・・

初めて起動してみたんだけどいきなりエラー
ﾌﾟ氏ジャーの呼び出しまたは引数が不正

'カテゴリ名の取得
If Left(boardfile(i), 8) = "<BR><BR>" Then
start = InStr(boardfile(i), "<B>") + 3
category = Mid(boardfile(i), start, InStr(boardfile(i), "</B>") - start) ＜ーここ
End If

私も２ｃｈブラウザ作ろうかと思っていろいろ調べてたんですが、使い慣れてるVB6でいくか、delphi出行くか思案中

198名無しさん＠お腹いっぱい。[] 04/09/12 07:52:44 ID:cMYPm6TT
>>197
Equal2chのline 624

If Left(boardfile(i), 8) = "<BR><BR>" Then
　　　　　　　　　　　　　　　　　　　↓
If Left(boardfile(i), 11) = "<BR><BR><B>" Then

気が向いたらバージョンアップします。

すみません、気が向かないまま忘れてました・・・。

http://be.2ch.net/ が純正BBSMENU.htmlに仲間入りしましたが、=2chは対応予定は無いのでしょうか？

>>233
なにするもんかよくわからんかったです。
したらばみたいなもん？URLはどうやって特定する感じですか？

>>234
URLは、
http://be.2ch.net/be/　面白ネタニュース＠Be2ch掲示板

違いは、
・ユーザ登録制
・キャラクターセットはShift-JISではなくEUCコード
・書き込む時、メールアドレスと認証コードを付加する（詳しくは知らない・・・ｽﾏﾝ役立たずで）
・投稿者を評価しメッセージを送れる（ポイント制）
でしょうか。。

>>235
情報ありがとん。
SJIS->EUC組むの面倒なので身サポートの方向で。

datフォーマットが進化中

Be-2ちゃんねる　人柱募集中。。。Part2
http://qb5.2ch.net/test/read.cgi/operate/1104823895/325

Ver1.7ｂを使っていますが、ReadMeシートを
クリックすると再度Bookを開こうとするんですが
仕様ですか？

と言うか　あげー

=2chの1行目、つまりタイトル部分の赤、あの色を変える方法誰か教えて。

あそこさえ何とかできれば他何もいじれなくても文句言いません。

あれ目立つんだよ…

>>240
標準モジュール＞ESView＞Public Sub LoadBoardList()

'タイトル表示
Sheet1.Cells(1, 1).Value = "板"
Sheet1.Cells(1, 1).Font.Size = 16
Sheet1.Cells(1, 1).Font.Color = RGB(255, 255, 255) '文字の色
Sheet1.Cells(1, 1).Interior.Color = RGB(255, 0, 0) '←ここが赤（背景色）
Sheet1.Cells(1, 2).Value = "Reload"

↑は板の方でお気に入りは
標準モジュール＞ESView＞Public Sub LoadFavoriteList()


たとえば、
'タイトル表示
Sheet5.Cells(1, 1).Value = "お気に入り"
Sheet5.Cells(1, 1).Font.Size = 16
Sheet5.Cells(1, 1).Font.Color = RGB(0, 0, 255) '青文字
Sheet5.Cells(1, 1).Interior.Color = RGB(255, 255, 128) '卵色背景

標準モジュール>Appearance の２つ目で

'タイトルの色
Public Sub SetTitleApperance(Target As Range)
Target.Font.Color = RGB(255, 255, 255)
Target.Font.Size = 16
Target.Interior.Color = RGB(255, 0, 0)　　　'←ココ！
End Sub

をいじくった方がﾖｻｹﾞな予感。

>>241-243
サンクス！色変えることが出来たよ

ageて行くぜ！

画像のプレビューの表示機能を追加してみた