Tracのレポートをチェックして表示するHTA

Tracの通知メールが埋もれてわからなくなるとかよく言われます。今までは「一日何回かレポートを確認すればわかるだろう」って思っていたんですが、自分自身も承認し忘れていたりするなぁということで、レポートに一件でもあればアイコンを表示する簡単なHTAを作ってみました。

起動：

• 「TracReportCheck.hta」をダウンロード
• ファイルを選択して,コンテキストメニューの"プロパティ"を表示する。
• "全般"タブのセキュリティで"ブロックの解除ボタン"を押す
• ファイルをダブルクリック

※接続できない場合はエラーが出ると思いますので下の1.のところを先に修正しておいてください。

機能：５分に一回（変更可能）指定したユーザ名でレポートを確認し件数を表示します。

カスタマイズ方法：

1. 次の箇所のアドレスとユーザ名とレポート番号を変更してください。

    Sub Requery
     s = "<tr bgcolor=""#cccccc""><th></th><th>レポート名</th><th>数</th></tr>"
     strURI = "http://localhost/trac/SampleProject/report/1" 
  s = s + QueryTracReport(strURI,"admin","admin")
     strURI = "http://localhost/trac/SampleProject/report/2" 
  s = s + QueryTracReport(strURI,"admin","admin")
     strURI = "http://localhost/trac/SampleProject/report/3" 
  s = s + QueryTracReport(strURI,"admin","admin")
     strURI = "http://localhost/trac/SampleProject/report/4" 
  s = s + QueryTracReport(strURI,"admin","admin")
     DataArea.InnerHTML = "<table border=4 width=250>" + s + "</table>"
    End Sub

2. アイコンは適切なものを作成して、green.pngのところを変更してください。

3. レポートを作成する

　　承認待ちとかのレポートを作成しておくとこのHTAを起動しておく意味が出てくると思います。

課題：サイドバー化（このHTAの中身のほとんどはVBScriptでできているので設定と表示をgadget化するぐらい）、タスクトレイ化（VB.NET化と設定部分のUI追加）

MSXML2.XMLHTTPを使っているので環境によっては動かないこともあると思いますが、ご報告いただけるとありがたいです。