hirax.net::Keywords::「マウス」のブログ

■レーザーポインター付きマウス　

レーザーポインター付きマウスは、学会であまり使っている人見たことないな。なんでだろ〜〜。

■型物花火　

　最近、ハート型やアンパンマン、ミッキーマウスやドラえもんといった形に見える型物花火が多い。物理シミュレーションに基づいたソフトウェア花火職人を使ってその秘密を探りながら遊んでみるのも良いかも。

■Skyliner LED Message Writerと光るマウスピース　

　丸く空中に文字を描くSkyliner LED Message Writer. 20ドルナリ。これを持って踊るとかなり目立つかも。
　もっとも、目立つというなら七色に光りまくるマウスピースの方がスゴイが。というわけで、BeWild.COMは眺めてみるだけでも面白い。

■マウス機能付き超音波入力方式電子ペン 　

　「世界初マウス機能付き超音波入力方式電子ペン」という「NAVInote」　これでメモリ内蔵でPC要らずモードも備えていれば完璧かも。使い方を眺めるとマウスモード・タブレットモード・ペンモードと色々使い道がありそうだし。

■WindowsのCUI版zphoto　

　WindowsのCUI版zphotoが欲しい、という話題。以前は、Windows版もCUIのみだったが、今ではGUI版のみのバイナリが配布されている。そこで、マウスを使いたくない時、だけどコンパイル作業がメンドクサイ時に作ったスクリプトがこれ。あぁ、なんて強引。「マウスは使ってない(あくまで私は)」という強引さ。

use Win32::GuiTest qw( FindWindowLike GetWindowText SetForegroundWindow MouseMoveAbsPix SendMouse GetWindowRect SendKeys);
my $pid = fork;
die unless defined $pid;
if($pid) { sleep 1;
@windows = FindWindowLike(0, "フォトアルバムを作成");
foreach my $win (@windows) { SetForegroundWindow($win);
SendKeys("{ENTER} {TAB}{ENTER}{ENTER}");
} for(my $i = 0;
$i < 61;
$i++){ @windows = FindWindowLike(0, "フォトアルバムが作成されました");
if(@windows > 0){ last;
} else{ sleep 1;
} if($i == 60){ &error("Time Out!");
exit;
} }foreach my $win (@windows){ SetForegroundWindow($win);
SendKeys("{TAB}{ENTER}%{F4}");
} exit;
}system("\"$zphoto\" -o \"$SwfPath\" --photo-width=800 --gamma 1.25 --title \"ppt2zphoto\" $Slides");
exit;