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から実行して表示させたものです。
連絡が大変遅くなりましてもうしわけございません。
上記サンプルのおかげでやりたい事が出来るようになりました。
大変ありがとうございます。
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も見ています
-
外出時に「待たせる妻」vs イライラする「待つ夫」は日本だけ?見習いたい海外事情
夫の家事参加に積極的なイメージのある海外でも、同様の事例はあるのか。結婚カウンセラーの佐竹悦子さんに伺ってみた。
-
Alt+P,Alt+NをPostmessageで送るには
Visual Basic(VBA)
-
他のウィンドウのボタンを自動的に押したい
C言語・C++・C#
-
Excel VBAで他アプリケーションの文字列取得
Excel(エクセル)
-
-
4
ExcelVBAでAPIを使って外部ウインドウのエディットテキストを取得する方法
Visual Basic(VBA)
-
5
Excel VBA で外部アプリケーションのコンテキストメニューを操作したい
その他(プログラミング・Web制作)
-
6
他アプリケーション’(ウィンドウ)のハンドル取得方法
Visual Basic(VBA)
-
7
EnumChildWindowsの使い方(VBA)
Visual Basic(VBA)
-
8
他のアプリケーションとの連携
Visual Basic(VBA)
-
9
WinAPIで電卓をクリック
Visual Basic(VBA)
-
10
親ウインドウにあるOKボタンを押す方法
Visual Basic(VBA)
-
11
VBA(エクセル)で自動的にボタンをクリックさせるには
その他(プログラミング・Web制作)
-
12
【VBA】UI Automationコンボボックスを制御したい
Visual Basic(VBA)
-
13
ウィンドウにキー送信で ENTER を送りたい
Visual Basic(VBA)
-
14
ウインドウハンドルのつかみ方について質問です。
Visual Basic(VBA)
-
15
VBAで、なぜかSendkeyが効きません。
PowerPoint(パワーポイント)
-
16
LVM_SETITEMSTATEでListViewのアイテムを選択するには?
その他(プログラミング・Web制作)
-
17
今更、VBAでRPA、キーボード操作自動化ってどうやるの?
Visual Basic(VBA)
-
18
スキャンコード取得は MapVirtualKey を使う?
C言語・C++・C#
-
19
VBAで既に開いている別アプリケーションのオブジェクトを得る
Visual Basic(VBA)
-
20
別のアプリケーションのテキストフィールドに入力する方法
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルで作った新しいウイン...
-
「アイテムは収集されました」...
-
勝手にウィンドウが開いて止ま...
-
検索の画面がでなくなってしま...
-
ゲームでは結局どっちが良いの?
-
作成したウインドウのサイズを...
-
VBで作成したフォーム上に電卓...
-
ExcelVBAでAPIを使って外部ウイ...
-
C言語でWin32APIを使い、子ウィ...
-
他アプリケーション’(ウィンド...
-
Excelの上下を固定したい
-
Console.WriteLine で表示されない
-
UWSCでランダムな処理をする場合
-
リモートデスクトップの中のウ...
-
ウィンドウのサイズ変更について
-
「&HFFFF」「&H1A」とは?
-
ExcelのBOOKが消えた!
-
EnumChildWindowsの使い方(VBA)
-
VBA .Value=.Value ?
-
[VBA] UserForm を Excel の W...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで作った新しいウイン...
-
「アイテムは収集されました」...
-
勝手にウィンドウが開いて止ま...
-
検索の画面がでなくなってしま...
-
ゲームでは結局どっちが良いの?
-
VBA .Value=.Value ?
-
Excelの上下を固定したい
-
[VBA] UserForm を Excel の W...
-
EnumChildWindowsの使い方(VBA)
-
Vba LongPtrについて教えてくだ...
-
ExcelのBOOKが消えた!
-
他のアプリケーションの終了処理
-
ラジオボタンの初期指定
-
ExcelVBAでAPIを使って外部ウイ...
-
作成したウインドウのサイズを...
-
UWSCで特定のChromeのタブをア...
-
隠れたウィンドウの画面をキャ...
-
「&HFFFF」「&H1A」とは?
-
名前を付けて保存のウィンドウ...
-
最大化と最小化ボタン
おすすめ情報