タイトル : Re^16: SendInput関数が Vistaで動作しないのですが? 投稿日 : 2009/09/17(Thu) 22:49 投稿者 : 花ちゃん
Command1 ボタンを直接クリックしたらメッセージボックスは表示されますよね。 マウスカーソルがCommand1 ボタン上に移動してから、マウスダウン と マウスアップの 動作を実行したら、クリックできるはずですので、個別に確認した場合は、OK の ようなので一度下記のように確実にマウスが移動してからクリック動作が実行されるように 下記のように待ち時間を作って試して見て下さい。 y = y \ Screen.TwipsPerPixelX 'スクリーン座標に変換(通常=15) 'Command1の真ん中にマウスポインタを移動 Call SetCursorPos(x, y) Dim lngSt As Long lngSt = Timer Do While Timer - lngSt < 2 DoEvents Loop Beep Dim MoEvents(1) As Integer |