view release on metacpan or  search on metacpan

t/mkd/2011-12-07.mkd  view on Meta::CPAN

시스템 트레이에 아이콘을 상주시켜 놓고 이 아이콘을 클릭할 때마다
화면을 갈무리하는 것이 꽤나 그럴듯해 보입니다.
(믿기 어렵겠지만, 시스템 트레이 아이콘을 이용하는 것은
꽤나 있어보이는 것에 비해 너무 간단합니다. :)

필요한 모듈은 다음과 같습니다.

- [CPAN의 Win32::GUI 모듈][cpan-win32-gui]
- [CPAN의 Win32::GuiTest 모듈][cpan-win32-guitest]
- [CPAN의 Win32::HideConsole 모듈][cpan-win32-hideconsole]
- [CPAN의 Win32::Clipboard 모듈][cpan-win32-clipboard]
- [CPAN의 DateTime 모듈][cpan-datetime]
- [CPAN의 File::Slurp 모듈][cpan-file-slurp]

[딸기펄][strawberry-perl]을 사용한다면 콘솔에서 `cpan` 명령을 이용해서 설치합니다.
[딸기펄 5.14][strawberry-perl-514] 버전에서 필요한 모든 모듈이 정상적으로
설치되는 것을 확인했으므로 버전 선택시 참고하시길 바랍니다.

    #!bash
    > cpan Win32::GUI
    > cpan Win32::GuiTest

t/mkd/2011-12-07.mkd  view on Meta::CPAN

참고로 `^`은 `Ctrl`, `%`는 `Alt`를 의미합니다.
여러 키 조합과 딜레이 타임을 옵션으로 지정할 수도 있기 때문에,
`SendKeys`와 `Win32::GUI` 모듈의 타이머 기능을 결합하면 여러가지로 활용이 가능합니다.
예를 들자면, 특정 온라인 게임에 대응하는 매크로도 만들 수 있겠죠. ;-)


클립보드 이미지를 파일로 저장
------------------------------

이제 클립보드로 들어간 이미지를 저장해야겠죠?
[CPAN의 Win32::Clipboard 모듈][cpan-win32-clipboard]을 사용하면
간편하게 클립보드 이미지를 불러올 수 있습니다.
불러오고 싶다면 다음처럼 단 두 줄만 작성하면 됩니다.

    #!perl
    use Win32::Clipboard;
    my $bitmap = Win32::Clipboard::GetBitmap;

정말 끝내주지 않나요? :-D

클립보드에 저장된 비트맵을 불러오는 것이므로 클립보드에 있는 것이

t/mkd/2011-12-07.mkd  view on Meta::CPAN

[img-03-original]:          2011-12-07-3.png

[activeperl]:               http://www.activestate.com/activeperl
[blog-owl0908]:             http://www.dormouse.pe.kr
[capture-source]:           http://www.nightowl.pe.kr/software/prtscrsave
[cpan-gd]:                  https://metacpan.org/module/GD
[cpan-image-magick]:        https://metacpan.org/module/Image::Magick
[cpan-imager]:              https://metacpan.org/module/Imager
[cpan-par-packer]:          https://metacpan.org/module/Par::Packer
[cpan-win32-api]:           https://metacpan.org/module/Win32::API
[cpan-win32-clipboard]:     https://metacpan.org/module/Win32::Clipboard
[cpan-win32-console]:       https://metacpan.org/module/Win32::Console
[cpan-datetime]:            https://metacpan.org/module/DateTime
[cpan-file-slurp]:          https://metacpan.org/module/File::Slurp
[cpan-win32-gui-dibitmap]:  https://metacpan.org/module/Win32::GUI::DIBitmap
[cpan-win32-gui]:           https://metacpan.org/module/Win32::GUI
[cpan-win32-guitest]:       https://metacpan.org/module/Win32::GuiTest
[cpan-win32-hideconsole]:   https://metacpan.org/module/Win32::HideConsole
[home-bmp2png]:             http://cetus.sakura.ne.jp/softlab/b2p-home/
[home-png]:                 http://www.libpng.org/pub/png/pngcode.html
[strawberry-perl-514]:      http://strawberryperl.com/beta/index.html