WinMergeをWinAPIで操作

ExcelVBAの修正前後で、ソースの差異を検証する為に、
WinMergeを使っており、一部の操作を自動化したく、
現在、修正前、修正後で、各ソースをフォルダにエクスポートし、
WinMergeに各フォルダのパスを渡し、
比較結果を、Htmlレポートで出力しています。
※WinMergeのツール → レポートの生成 → フォルダ比較レポート

このWinMergeの操作で、
「ツール(T)」を押下、
「レポート作成(R)」を押下
をSendKeyで操作している為に、
他の作業をしているとエラーになってしまいます。

そこで、ユーザー作業の影響を受けないよう、
Window Message 等で直接操作したく、
Menuのハンドルを取得し、
ツール(T) のIDを取得し、
PostMessage で WM_Command を送る等を試みたのですが、
自分では解決できず、
どなたか、解決の糸口、ヒント等をご教示頂けましたら、
大変助かります。

※IAccessible では実現できない事も判明しています｡｡｡

どうぞ宜しくお願い致します。

＜実現イメージ＞
イメージ説明

VBA
1Private Declare Function GetMenu Lib "user32" (ByVal hWnd As Long) As Long
2Private Declare Function GetSubMenu Lib "user32" (ByVal hMenu As Long, ByVal nPos As Long) As Long
3
4'メイン部分のみですが、取り急ぎご参考まで...
5Private Function prWinMerge操作()
6    
7    'WinMergeのウィンドウハンドルを取得
8    Dim hWinMerge   As Long
9    hWinMerge = fWinHnd_Window_Find(, "WinMergeWindowClassW")
10    If hWinMerge = 0 Then Exit Function
11    
12    'アクティブなスレッドにアタッチして、ウィンドウをアクティブ化
13    Call fWinHnd_Activate(hWinMerge)
14    
15    'メニュ－のハンドルを取得
16    Dim hMenu   As Long
17    hMenu = GetMenu(hWinMerge)
18    
19    'メニューの「ツール(T)」のハンドルを取得
20    Dim hSubMenu    As Long
21    hSubMenu = GetSubMenu(hMenu, 6)
22    
23    'メニューの「ツール(T)」ボタン押下 ⇒ 押下状態にならない...
24    Call PostMessage(hWinMerge, WM_COMMAND, hSubMenu, 0&)
25    
26    '押下できたか、少し待つ
27    Call fApp_Wait(1)
28    
29    '押下できていたら、更に「レポート作成(R)」ボタン押下
30    
31
32End Function

＜追記＞
SPY++で「レポート(R)」押下時のWM_COMMANDを確認
イメージ説明

VBA
1'修正版のコード
2Private Function prWinMerge操作()
3    
4    'WinMergeのウィンドウハンドルを取得
5    Dim hWinMerge   As Long
6    hWinMerge = fWinHnd_Window_Find(, "WinMergeWindowClassW")
7    If hWinMerge = 0 Then Exit Function
8    
9    '「レポート(R)」を押下
10    Const wID   As Long = 32868
11    Call PostMessage(hWinMerge, WM_COMMAND, wID, 0&)
12    
13End Function

atata0319

2019/04/03 09:27 編集

逆に現在SendKeysを使用しているコードを記載いただいた方が回答しやすいかもしれません。

m.ts10806

2019/04/03 09:37

SVN入れたほうがいいような

ExcelVBAer

2019/04/04 00:00

クローズドな環境なもので、他のソフトをイストールできず...

m.ts10806

2019/04/04 00:06

んーなるほど了解です

回答1件

ベストアンサー

当面の目的の操作はWinMergeの「ツール(T)」-->「レポート作成(R)」とメニュー選択することで良いでしょうか。
そうだとすると、PostMessageでWM_COMMANDを送るときのパラメーターが違います。最終的に必要なメニュー指定は「レポート作成(R)」で、これを選択したときにWM_COMMANDがメインのウィンドウへ送られます。このときのWM_COMMANDのパラメータは、WPARAMがメニューハンドルではなくメニューIDで、LPARAMが0になります。

Microsoft Docs - WM_COMMAND message

手持ちのWinMerge(2.4.10.0 Unicode ※日本語化はしていません) をSpy++で確認した限りですが、このメニューIDは32868でした。

ちなみにExcelVBAではありませんが、Win32 ネイティブ(32ビット)の外部プログラムから以下のコードで「レポート作成(R)」メニューを選択したときのファイル選択ダイアログボックスを出すことができました。

C++
1// うまく動かないときは各APIの返り値をチェックしてください。
2HWND hwnd = ::FindWindow(_T("WinMergeWindowClassW"), NULL);
3if (hwnd != NULL) {
4    WPARAM wParam = MAKEWPARAM(32868, 0);
5    LPARAM lParam = 0;
6
7    BOOL b = ::PostMessage(hwnd, WM_COMMAND, wParam, lParam);
8    ATLTRACE2(_T("b=%d\n"), b);
9}