2007/01/29

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

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

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

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


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

2007/01/26

バッチ(dos)が途中で止まる!?

antのタスクを連続起動したくてバッチを作った
rem 自動化.bat

ant clean
ant compile
ant test

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

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

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

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

だから、これが正解でした!
rem 自動化.bat

call ant clean
call ant compile
call ant test


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

2007/01/25

1台のPCにIE3~7を別々に入れる

Install multiple versions of IE on your PC | TredoSoft

紹介ページ

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

2007/01/24

既存HPに付箋(noteit)

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

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

2007/01/23

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""")