BloggerのAdsenseを英語から日本語にする

BloggerだとGoogle Adsenseの登録＆設置が簡単で便利なのですが、広告の内容が英語になってしまいます
なので、日本語にするためにちょっと小細工…

「Blogger」→「ダッシュボード」→「テンプレート」→「HTMLの編集」で
以下の一行を追加します

<!-- google_language = 'ja'; -->

これで広告の内容が日本語になります

バッチ(dos)が途中で止まる！？

antのタスクを連続起動したくてバッチを作った

rem 自動化.bat

ant clean
ant compile
ant test

このバッチをダブルクリックしても、最初のcleanしか実行してくれなくて路頭に迷う…(-_-;)

調べてみると、DOSは「バッチ１」から「バッチ２」を呼ぶと
「バッチ２」の終了とともに「バッチ１」も終了してしまう

そして「ant」は「ant.bat」だった…

なので「バッチ２」の終了時に「バッチ１」へ処理を戻すため「call」を呼ぶ必要がある

だから、これが正解でした！

rem 自動化.bat

call ant clean
call ant compile
call ant test

コマンドがexeかbatかを意識しないといけないんだなぁ

１台のPCにIE３～７を別々に入れる

Install multiple versions of IE on your PC | TredoSoft

紹介ページ

IE7を試したかったのでこれで気楽にできる♪
自分のシステムをIE7で動作させたところ問題はなかったが、このBloggerは形がくずれすなぁ…

既存HPに付箋(noteit)

気軽に使えるHP付箋のnoteit 1.2

＜すごい！＞
・既存HPに付箋機能が追加できるので汎用性が高い（wikiとの連携は強力！！）
・消しても履歴がゴミ箱でわかる
・RSSで誰かが変更したらすぐにわかる
・軽快に動作する
＜うーん…＞
・印刷されない！！（致命的）
・ファイルが添付できない→wikiに添付してリンクを張れば代用可
・固定ボタンを押さないと位置保存されない
・編集を抜ける時のOKボタンをマウスで押さないとダメ
・インストールが（いくらか）大変
・線でつながるといいなぁ～draw2dに期待（wemaでもいいか…）
・複数選択ができない
・FirefoxとIEで付箋の位置がずれる

TPTP設定自動化スクリプト

Test & Performance Tools Platform Project Downloads

TPTPにall-in-oneなるパッケージがあったのでインストールしてみた

設定がわずらわしいのでvbsスクリプトで自動化
Agent Controllerはeclipseフォルダに入れたパスなので適度に修正してください

' TPTP設定自動化スクリプト

Dim objShell, objFso, ret

Set objShell = WScript.CreateObject("WScript.Shell")
Set objFso = WScript.CreateObject("Scripting.FileSystemObject")

' RASERVER_HOME確認
ret = objShell.Popup("環境変数RASERVER_HOMEを設定します",,,vbOKCancel+vbQuestion)
Select Case ret
Case vbCancel
WScript.Quit(0)
End Select

' RASERVER_HOME変更
objShell.Environment.Item("RASERVER_HOME") = objFso.GetFolder(".\agntctrl.win_ia32")

' PATH確認
ret = objShell.Popup("環境変数PATHを設定します",,,vbOKCancel+vbQuestion)
Select Case ret
Case vbCancel
WScript.Quit(0)
End Select

' PATH変更
objShell.Environment.Item("PATH") = objShell.ExpandEnvironmentStrings("%PATH%") & ";" & objFso.GetFolder(".\agntctrl.win_ia32\bin")

' SetConfig実行確認
ret = objShell.Popup("設定ファイルを生成します",,,vbOKCancel+vbQuestion)
Select Case ret
Case vbCancel
WScript.Quit(0)
End Select

' SetConfig実行
objShell.CurrentDirectory = ".\agntctrl.win_ia32\bin"
Call objShell.Run("SetConfig.bat")
objShell.CurrentDirectory = "..\..\"


' サービス登録確認
ret = objShell.Popup("エージェントコントローラをWindowsサービスへ登録します",,,vbOKCancel+vbQuestion)
Select Case ret
Case vbCancel
WScript.Quit(0)
End Select

' サービス登録
objShell.CurrentDirectory = ".\agntctrl.win_ia32\bin"
Call objShell.Run("manageservice.exe add ""TPTP Agent Controller"" " & objFso.GetFolder("..\"))
objShell.CurrentDirectory = "..\..\"

' TPTP解除自動化スクリプト

Dim objShell
Set objShell = WScript.CreateObject("WScript.Shell")

' サービス解除
Call objShell.Run(".\agntctrl.win_ia32\bin\manageservice remove ""TPTP Agent Controller""")