Win32::GuiTest でツールバーのクリック。 - IT戦記
昨日の夜、つまづいてたところ。 ちょこっと試してみたら普通に動いた 貼っておきます。ペタ 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
perl の Win32::GuiTest モジュールを使ってみる。 - IT戦記
はじめに 久々の perl。突っ込まれるのを期待しつつやってみます。 準備 Strawberry Perl for Windows をインストール PATH を通して、コマンドプロンプトを起動して、 > cpan -i Win32::GuiTestでおｋ。 何から始めよう IE8 をどこまで操作できるかやってみる。 IE8 を起動 use strict; use warnings; use utf8; system('explorer http://www.google.co.jp/'); おおお。 IE8 のウィンドウハンドルを取得 use strict; use warnings; use utf8; use Data::Dumper; use Win32::GuiTest qw(:ALL); # これをやっておかないと中で shift-jis 前提で扱われるみたい UnicodeSe
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
