他のアプリの画面部品を検索するには？ (ID:82498)

名前

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

本文 WEB上でファイルをダウンロードする際、 開かれる「名前を付けて保存」ダイアログに対して 保存するファイル名をVB上から書き換えたく思います。 Const WINDOW_NAME As String = "名前を付けて保存" Dim hWnd As Long Dim hChild As Long hWnd = FindWindow(vbNullString, WINDOW_NAME) If hWnd = 0 Then MsgBox "FindWindow 失敗" Exit Sub End If hChild = FindWindowEx(hwnd, 0, "Edit", vbNullString) If hChild = 0 Then MsgBox "FindWindowEx 失敗" Exit Sub End If 'エディットボックスにSendMessage SendMessage hChild , EM_REPLACESEL, 0, ByVal tmpString この方法でエディットボックスを検索しましたが エディットボックスが見つからず hChild = 0 となってしまいます。 試しに予め開いている「名前を付けて保存」ダイアログに対して spy++ でエディットボックスを覗き、 取得したウィンドウハンドルに対して GetClassName で変換してみると "Edit" と変換されていました。 どうもきちんと検索ができていないように見えます。 使い方が悪いのでしょうか？ ちなみにダイアログ中のボタンなどは正常に見つかっています。