昨日の夜、つまづいてたところ。 ちょこっと試してみたら普通に動いた 貼っておきます。ペタ sub MouseClickToolbar { my $toolbar = shift; my $id_target = shift; my $tbb_buf = AllocateVirtualBuffer($win, 24); my $count = SendMessage($toolbar1, 0x418, 0, 0); # TB_BUTTONCOUNT for (my $i = 0; $i < $count; $i ++) { SendMessage($toolbar1, 0x417, $i, $tbb_buf->{'ptr'}); # TB_GETBUTTON my ($bitmap, $id_command, $state) = unpack 'i2 c', ReadFromVirtu