必要なもの

• ActivePerlhttp://www.activestate.com/activeperl/
• ImageMagickhttp://www.imagemagick.org/script/binary-releases.php#windows
• Win32::Screenshothttp://search.cpan.org/~PSME/Win32-Screenshot/Screenshot.pm
  • > cpan Win32::Screenshot
• Firefoxhttp://www.firefox.com/
• はてなスクリーンショット拡張http://www.hatena.ne.jp/tool/firefox#HatenaScreenshot

ショートカットの作成

次のワンライナーのショートカットを作る。

画面全体をとりたいとき:

perl -MFile::Temp(tempfile) -MWin32::Screenshot -e "(undef,$p)=tempfile(SUFFIX=>'.png');CaptureScreen->Write($p);($h,$t)=tempfile(SUFFIX=>'.html');print$h q{<img src='file:///}.$p.q{'>};close$h;system'start',$t;sleep 3;unlink$t;unlink$p"

アクティブウィンドウだけをとりたいとき:

perl -MFile::Temp(tempfile) -e "use Win32::Screenshot':all';($x,$p)=tempfile(SUFFIX=>'.png');CaptureWindow(GetForegroundWindow)->Write($p);($h,$t)=tempfile(SUFFIX=>'.html');print$h q{<img src='///}.$p.q{'>};close$h;system'start',$t;sleep 3;unlink$t;unlink$p"

http://f.hatena.ne.jp/wakabatan/20100220200859

ショートカットのプロパティを開いて、「実行時の大きさ」を「最小化」にし、適当な「ショートカットキー」を割り当てる。

http://f.hatena.ne.jp/wakabatan/20100220201146

ショートカットはデスクトップかスタートメニューに作らないと効かないみたいです。