お世話になります。

解らない事がありましたので教えてください。

開発環境：WindowsXP　VB2008

プログラムＡ．設備と通信しＣＳＶを作成する　　←既存ソフト
プログラムＢ．ＣＳＶをデータベースへ登録する　←私が設計
　（ひとつのＰＣでプログラムＡ，Ｂを稼働させています）

プログラムＡが就業時間になるとメッセージボックスが表示されるんですが、
プログラムＢからＯＫボタンを押下(又はメッセージボックス消去)する事は可能でしょうか？

できることならプログラムＡを改造したいのですが、
実行ファイルしか持ってないみたいなので・・・。

宜しくお願いします。

> お世話になります。
> プログラムＡが就業時間になるとメッセージボックスが表示されるんですが、
> プログラムＢからＯＫボタンを押下(又はメッセージボックス消去)する事は可能でしょうか？

　　可能だと思います。

　　まずそのメッセージボックスが表示された段階で、SPY++等使って
　　そのウィンドウのクラスや情報をSPY++で取得し・・・

　　プログラムB側で、Win32 API使うことになると思いますが、タイマー
　　等でメッセージボックスのクラス名等でウィンドウ情報を取得させ、
　　該当するものがあれば、そのウィンドウ内の子ウィンドウであるボタ
　　ンを検索してボタンクリックに相当するメッセージをPostMessageし
　　てやれば、OKかと・・・

　　EnumWindow/EnumChildWindow/PostMessage あたりのAPIを使うことに
　　なるかと思います。
　　検索するウィンドウの情報が解っているので、FindWindow/FindwindowEx
　　で、一発で検索する方法もあります。

※　ただ、いつも監視していると他アプリのメッセージボックスにも反応
　　してしまうので、就業時刻（終業時刻？）になったら監視を始める様
　　にしないと・・・

※　メッセージボックスのOKボタン等の情報もSPY++で取得しておく必要
　　があります。
　　因みにプログラムAはVB.NETアプリ？VB6？VC++？

以上。参考まで

> 　　EnumWindow/EnumChildWindow/PostMessage あたりのAPIを使うことに
> 　　なるかと思います。

レスありがとうございます ＾＾

早速FindWindowExとSendMessage関数を使ってソフトを設計してみました。

終業時刻の17:00(±30秒)になったら以下の処理をループさせる。

        Dim iHwnd1 As Integer, iHwnd2 As Integer

        iHwnd1 = FindWindow("#32770", "確認メッセージ")
        iHwnd2 = FindWindowEx(iHwnd1, 0, "Button", "OK")

        SendMessage(iHwnd2, BM_CLICK, 0, 0)


という処理でメッセージボックスを消す事ができました。

初めてFindWindowExという関数を使ったのですが、
使い方は間違っていないでしょうか？

>         iHwnd1 = FindWindow("#32770", "確認メッセージ")
>         iHwnd2 = FindWindowEx(iHwnd1, 0, "Button", "OK")
>
>         SendMessage(iHwnd2, BM_CLICK, 0, 0)
>
>
> という処理でメッセージボックスを消す事ができました。
>
> 初めてFindWindowExという関数を使ったのですが、
> 使い方は間違っていないでしょうか？

　　間違ってませんが・・・
　　iHwnd1 が正しく取れているか確認するようにされた
　　方がよいですヨ！
　　因みに、iHwnd2も。

以上。