別アプリを操作するには (ID:105715)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 FindWindowEx ．．． 試しに改良してみました。 ホントに簡単になってしまいましたね。 コードもすっきり！ Private Sub Command1_Click() Const WINDOW_NAME As String = "XYZ" Const BUTTON_NAME As String = "実行" Dim hWnd As Long Dim hChild As Long hWnd = FindWindow(vbNullString, WINDOW_NAME) If hWnd = 0 Then Exit Sub hChild = FindWindowEx(hWnd, 0, vbNullString, BUTTON_NAME) If hChild = 0 Then Exit Sub SendMessage hChild, WM_ACTIVATE, 1, ByVal 0& SendMessage hChild, BM_CLICK, 0, ByVal 0& End Sub