![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?8acaa2e)
No.4ベストアンサー
- 回答日時:
ウィンドウハンドルの取得については割愛します。
Option Explicit
Private Declare Function GetMenu Lib "user32" (ByVal hWnd As Long) As Long
Private Declare Function GetMenuItemCount Lib "user32" (ByVal hMenu As Long) As Long
Private Declare Function GetMenuItemInfo Lib "user32" Alias "GetMenuItemInfoA" (ByVal hMenu As Long, ByVal un As Long, ByVal b As Long, lpMenuItemInfo As MENUITEMINFO) As Long
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Const WM_COMMAND = &H111
Private Type MENUITEMINFO
cbSize As Long
fMask As Long
fType As Long
fState As Long
wID As Long
hSubMenu As Long
hbmpChecked As Long
hbmpUnchecked As Long
dwItemData As Long
dwTypeData As String
cch As Long
End Type
' hWndに指定したウィンドウのメニュークリックをエミュレート
' Menusには、メニューを辿る順序を文字列配列で定義
' ファイル -> 印刷 であれば Menus() = {"ファイル", "印刷"}
Private Sub EmulateMenuClick(ByVal hWnd As Long, Menus() As String)
Dim hMenu As Long, lngID As Long, intMenuIndex As Integer
hMenu = GetMenu(hWnd)
' メニュー階層をたどる
For intMenuIndex = 0 To UBound(Menus)
If ContainMenu(hMenu, Menus(intMenuIndex), lngID) = False Then
Call MsgBox("一致するメニューはありません。")
Exit Sub
End If
Next
' 最終的に見つかったメニューのIDをWM_COMMANDでPostMessage
Call PostMessage(hWnd, WM_COMMAND, lngID, 0&)
End Sub
' hMenuのメニューハンドル内でTextの文字列と一致するメニューがあるかどうかを返す
' 見つかればTrue。このとき、hMenuにはサブメニューのハンドル、IDにはメニューのIDが返される
' 見つからなければFalse
Private Function ContainMenu(hMenu As Long, ByVal Text As String, ID As Long) As Boolean
Dim lngCount As Long, lngPos As Long
Dim typMenuItem As MENUITEMINFO
lngCount = GetMenuItemCount(hMenu)
' メニューの個数でループ
For lngPos = 0 To lngCount - 1
typMenuItem.fMask = &H3F&
typMenuItem.dwTypeData = vbNullChar
typMenuItem.cch = 0
typMenuItem.cbSize = Len(typMenuItem)
Call GetMenuItemInfo(hMenu, lngPos, 1, typMenuItem)
typMenuItem.dwTypeData = String(typMenuItem.cch, " ")
typMenuItem.cch = typMenuItem.cch + 1
typMenuItem.cbSize = Len(typMenuItem)
Call GetMenuItemInfo(hMenu, lngPos, 1, typMenuItem)
Debug.Print typMenuItem.dwTypeData
' メニューの文字列を比較(比較方法はどちらでも)
'If typMenuItem.dwTypeData = Text Then
If typMenuItem.dwTypeData Like Text Then
' 一致したらIDとサブメニューハンドルを返す
ID = typMenuItem.wID
hMenu = typMenuItem.hSubMenu
ContainMenu = True
Exit Function
End If
Next
ContainMenu = False
End Function
EmulateMenuClickにウィンドウハンドルと実行したいメニューを辿る文字列配列を渡してください。
画像は、このコードを利用してAPIビューアのバージョン情報をForm1から実行して表示させたものです。
![「他アプリの操作(メニューバー)」の回答画像4](http://oshiete.xgoo.jp/_/bucket/oshietegoo/images/media/4/1240612_5497f232eadb3/M.jpg)
連絡が大変遅くなりましてもうしわけございません。
上記サンプルのおかげでやりたい事が出来るようになりました。
大変ありがとうございます。
No.3
- 回答日時:
ショートカットが定義されていないんですか、windowsの基本が
なってないような・・・。
それはさておき、他の方がGetMenu等のやり方を書かれているので違う方法を。
マウスカーソルを操作して、実際の動作をプログラムで実行させるのは
どうでしょうか。これならショートカットが無くてもマウスをメニューの
ところに移動させて、クリック動作、その後サブメニューの上にマウスを
移動させてクリック。。。って感じにすればいけると思います。
Wizard_Zeroさんのより力技っぽいかも(w
No.2
- 回答日時:
Menu処理関係のAPIとPostMessageを使って試してみました。
まず、対象アプリケーションのウィンドウハンドルを取得します。
次に、
GetMenuやGetSubMenuでメニューハンドルを取得
GetMenuItemCountでサブメニューの項目数を取得
GetMenuItemInfoでメニュー情報を取得
この3つを組み合わせて目的のメニューを探し出してメニューIDを取得。
対象のウィンドウに、WM_COMMANDと探し出したメニューのIDをPostMessage。
メモ帳で試してみたところ一応動作しました。かなり強引な方法ですが。。。
ご回答ありがとうございます。
いろいろ調べてみて
GetMenuやGetSubMenuでメニューハンドルを取得
GetMenuItemCountでサブメニューの項目数を取得
まではできました。
それ以降が出来ず困っております。
出来ればサンプルのプログラムでご教示頂けないでしょうか。
大変申し訳ございませんがよろしくお願い致します。
No.1
- 回答日時:
出来ますよ。
以前同じようなソフトをやっつけで作った事がありますので。
ただ、かなり昔なので記憶が薄れていますが。。。
メニューの操作をする場合、そのソフトウェアに対して
ショートカットを送って実行させてたかな?
ctrl+ほげ、少し時間を開けて次のctrl+ほげほげって
感じで操作しました。そのときは他のソフトウェアが
動いていると困りますので、それは運用でなんとかするようにしてください(汗
ご連絡ありがとうございます。
残念ならが制御したい側のアプリケーションにショートカットが設定されおらず、ショートカットでの制御はできません。
他にいい方法があればご教示お願い致します。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Windows 10 ms imeのバーを通知領域に入れる方法(windows11) 4 2023/01/01 10:11
- 筋トレ・加圧トレーニング 上半身だけを大きくしたく、1週間のメニューを作りたいです。回復日を含めて、メニューの参考をお願いしま 1 2022/07/31 16:49
- 仕事術・業務効率化 使用中のソフトで、インボイス制度に対応する為の作業料が30万以上。普通? 4 2023/06/15 21:26
- Android(アンドロイド) スマホでパソコン操作の文字入力 2 2022/05/12 21:13
- iPhone(アイフォーン) iphoneでのメールアカウント追加方法 1 2022/03/27 10:36
- ネットワーク 瞬快 コンソール操作 ローカル端末のファイルをリモート端末にコピーする方法がない? 1 2023/03/17 18:56
- Safari(サファリ) iPhoneのSafariで動画を全画面表示で見ている時、右上の音量調節バーを操作しようとするとコン 1 2022/09/30 21:10
- Android(アンドロイド) Y!map のスマホでの使用方法について 1 2023/08/07 09:12
- Visual Basic(VBA) 条件に一致した場合の処理 2 2022/10/18 06:30
- その他(プログラミング・Web制作) プログラムの勉強のおすすめは 7 2022/12/09 20:09
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
他のウィンドウのボタンを自動的に押したい
C言語・C++・C#
-
他アプリケーション’(ウィンドウ)のハンドル取得方法
Visual Basic(VBA)
-
親ウインドウにあるOKボタンを押す方法
Visual Basic(VBA)
-
-
4
Excel VBA で外部アプリケーションのコンテキストメニューを操作したい
その他(プログラミング・Web制作)
-
5
他のアプリケーションとの連携
Visual Basic(VBA)
-
6
Alt+P,Alt+NをPostmessageで送るには
Visual Basic(VBA)
-
7
Excel VBAで他アプリケーションの文字列取得
Excel(エクセル)
-
8
WinAPIで電卓をクリック
Visual Basic(VBA)
-
9
ExcelVBAでAPIを使って外部ウインドウのエディットテキストを取得する方法
Visual Basic(VBA)
-
10
他アプリのアクティブな子ウインドウを取得するには?
C言語・C++・C#
-
11
EnumChildWindowsの使い方(VBA)
Visual Basic(VBA)
-
12
今更、VBAでRPA、キーボード操作自動化ってどうやるの?
Visual Basic(VBA)
-
13
ウィンドウにキー送信で ENTER を送りたい
Visual Basic(VBA)
-
14
【VBA】UI Automationコンボボックスを制御したい
Visual Basic(VBA)
-
15
VB.netでFindWindowExやると・・・9222812402616107008!?
Visual Basic(VBA)
-
16
VBAで既に開いている別アプリケーションのオブジェクトを得る
Visual Basic(VBA)
-
17
VBAで、なぜかSendkeyが効きません。
PowerPoint(パワーポイント)
-
18
他のアプリケーションのメニューバーを制御したい。困ってます。
Visual Basic(VBA)
-
19
VBA(エクセル)で自動的にボタンをクリックさせるには
その他(プログラミング・Web制作)
-
20
【C#】FindWindowExの使い方を教えてください
その他(プログラミング・Web制作)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルで作った新しいウイン...
-
「アイテムは収集されました」...
-
ゲームでは結局どっちが良いの?
-
検索の画面がでなくなってしま...
-
メニューバーの高さの取得方法
-
エクセルで1行目から3行目が消...
-
指定したインアクティブウィン...
-
勝手にウィンドウが開いて止ま...
-
VBで外部プログラムを位置のみ...
-
Excelの上下を固定したい
-
作成したウインドウのサイズを...
-
Vba LongPtrについて教えてくだ...
-
他アプリの操作(メニューバー)
-
VBAで単一ブック複数窓を閉じる...
-
「&HFFFF」「&H1A」とは?
-
グラフを別ウィンドウで立ち上...
-
デスクトップマスコットみたい...
-
Tera Termに他のアプリから文字...
-
VBA .Value=.Value ?
-
ExcelのBOOKが消えた!
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで作った新しいウイン...
-
「アイテムは収集されました」...
-
ゲームでは結局どっちが良いの?
-
検索の画面がでなくなってしま...
-
勝手にウィンドウが開いて止ま...
-
VBA .Value=.Value ?
-
ラジオボタンの初期指定
-
作成したウインドウのサイズを...
-
Vba LongPtrについて教えてくだ...
-
Excelの上下を固定したい
-
【VB2008】 マウス操作の一時的...
-
他のアプリケーションの終了処理
-
「&HFFFF」「&H1A」とは?
-
VBで外部プログラムを位置のみ...
-
ExcelのBOOKが消えた!
-
Alt+P,Alt+NをPostmessageで送...
-
UWSCで特定のChromeのタブをア...
-
Console.WriteLine で表示されない
-
MFC ダイアログ上のID取得につ...
-
最大化と最小化ボタン
おすすめ情報