虹裏専用ブラウザ 2B 配布場所 【昨日は人にとしあきが2Bを利用されました】【今日は人にとしあきが2Bを利用しています】

雑誌・ブログ・２ちゃんねる等での 2B の紹介はご遠慮くださいませ　

DQ6やってるので2Bの更新はサボり中．．．

天馬の塔で 1時間半 あなほり続けたら隼の剣出てきた．

この 1時間半 をカジノに費やした方が有意義だと思った

 

>複数のスレッドが読み込み中の場合 ブラウザ上のクリックが無視されることが有ります
>(クリックしても何も起きないので フリーズした様に見えるかも)
>
>一応バグなのですが 原因が良く分からなく 特に落ちないので放置してます

について専門的なこと．．．

WM_LBUTTONDOWN はメッセージループまで到達してます．

WebBrowser::BeforeNavigate2・WebBrowser_V1::NewWindow イベントが発生しません．

スレッドのダウンロード監視ロジックがオカシイのは分かってるのですが．．．

 

『マウス位置がリンクだったら開く_それ以外だったら閉じる.vbs』はマウス位置がリンクだったら開く処理が書かれています．

もし本気で対応するなら 2B でも同様の処理を実装することになるかと．．．

まぁ メンドクサイからやらないけど

掲示板の更新回数を集計するSQLのテストを実施．

'更新ランキング
Friend Function GetThreadReloadRunking() As ClassSQLite3Fetch
Dim I As Long
Dim strYyyyMm As String
Dim objSql As ClassString

    Set objSql = New ClassString

    strYyyyMm = Format$(Now, "YYYYMM")

    objSql.Add " SELECT BOARD_NAME, COUNT(*) AS COUNT"
    objSql.Add " FROM THREAD_RELOAD_LOG_TBL"
    objSql.Add " WHERE  DATE_TIME BETWEEN " & strYyyyMm & "01000000 AND " & strYyyyMm & "99999999"
    objSql.Add "   AND  ERROR=0"
    objSql.Add "   AND  (TYPE=0 OR TYPE=2)"
    objSql.Add " GROUP BY BOARD_NAME"
    objSql.Add " ORDER BY COUNT DESC"

    Call m_SQLite.SelectFetch(objSql.Text, GetThreadReloadRunking)

End Function

'時間毎集計
Friend Function GetThreadReloadTimeTotal(ByVal objBoard As Niji.NijiBoard, _
                                           strStaryYyyyMmDd As String, strEndYyyyMmDd As String) As ClassSQLite3Fetch
Dim I As Long
Dim strYyyyMm As String
Dim objSql As ClassString

    Set objSql = New ClassString

    strYyyyMm = Format$(Now, "YYYYMM")

    objSql.Add " SELECT DATE_TIME / 10000 AS DATE_TIME_M, BOARD_NAME, COUNT(URL)"
    objSql.Add " FROM THREAD_RELOAD_LOG_TBL"
    objSql.Add " WHERE ERROR = 0"
    objSql.Add "   AND  (TYPE=0 OR TYPE=2)"
    objSql.Add SqlStringFormat("   AND  BOARD_NAME ={0}", objBoard.Name)
    objSql.Add "   AND  DATE_TIME BETWEEN " & strStaryYyyyMmDd & "000000 AND " & strEndYyyyMmDd & "999999"
    objSql.Add " GROUP BY DATE_TIME_M, BOARD_NAME"
    objSql.Add " ORDER BY BOARD_NAME, DATE_TIME_M"

    Call m_SQLite.SelectFetch(objSql.Text, GetThreadReloadTimeTotal)

End Function

SQLiteって SELECTされた表のカラムの別名を GROUP BY ・ ORDER BY に指定出来るとか なんか変．．．

まーそのうち 月別集計とか作ります．

2B は動的に作られるコントロールの名前を 乱数と timeGetTime 関数より求めてるのですが Windows を長時間起動させてると

timeGetTime 関数の結果(DWORD)がオーバーフローして異常終了する事が発覚．

そんなに付けっ放しにしていた記憶は無いんだがね… でもまぁ実際オーバーフローしてました…

あけおめ．

新着レスの自動読み上げ　とか対応．

サポート掲示板を設置してみました．

バグ・要望等がありましたら どうぞ