VBAで「Web ページからのメッセージ」を操作したい

Question

VBAで、WEB操作を自動化しています。
「Web ページからのメッセージ」のダイアログが出る場合、VBAで「OK」を押したく。

この質問は過去にもたくさんされているので、ネット検索しながらコードを切り貼りし
下記を作成しましたが、やはりどうしてもうまくいきません。

もしよろしければ、お知恵を貸していただけないでしょうか。
ちなみに、エラーは特に出ません。

動作環境
・OSは64ビットです。
・ブラウザはIEです。

Option Explicit

'DeclareステートメントにPtrSafe属性を追加；64ビット版Excel対応のため
Declare PtrSafe Function FindWindowEx Lib "user32.dll" Alias "FindWindowExA" _
(ByVal hwndParent As Long, ByVal hwndChildAfter As Long, _
ByVal lpszClass As String, ByVal lpszWindow As String) As Long

'ダイアログウィンドウを探す
Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr

'Postmassage
Private Declare PtrSafe Function PostMessage Lib "user32" Alias "PostMessageA" _
(ByVal hwnd As LongPtr, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Any) As Long

Const WM_COMMAND As Long = &H111&

'***************************************************************
Sub hoge()

===省略=== 
     
  Sleep 1000

 'Webページからのポップアップをクリック   
  Dim hwnd As LongPtr
        
  hwnd = FindWindow("#32770", "Web ページからのメッセージ")
  PostMessage hwnd, WM_COMMAND, vbOK, 0& 'システムダイアログのOKボタンを押す

End sub

Comments

[kuma_kuma_]

ブラウザによって違うので...
ただ悪用できてしまうのでここでは書けないかな...

[hana_yama_san]

動作環境OSは64or32ビットどちらですか。

[koyamashinji]

@kuma_kuma_さん
ブラウザはIEを使用しています。悪用できてしまう、とは具体的にはどのように悪用できてしまうのでしょうか。

[koyamashinji]

＠hana_yama_sanさん
動作環境を追記致しました。

[kuma_kuma_]

> 悪用できてしまう
セキュリティ警告の突破ができてしまいます。

Answer 1

自己解決しましたので、下記に記します。（回答頂いた皆様、誠に有難うございました。各ご回答、大変勉強になりました）
（ここを参考にさせて頂きました）

ポイント - クリックの方法（VBAでなく、Javascriptでクリックする）

• NGな方法

HTMLのボタンオブジェクト（=objButtonとする)を取得し、通常通りVBAのコードでobjButton.click()すると、NG。
**「WEBページからのメッセージ」**が表示された時点で、システム側に制御が移動し、Excelから制御が外れる為。

• 正しい方法

対象のボタンオブジェクト取得後、直後にie.document.Script.setTimeout "javascript:document.getElementById('hage').click()", 200を記述することで、Javascriptを使ってボタンを押すことができる。そうすれば、VBAに制御が残ったままになり、無事、次のコード（"WEBページからのメッセージ"のウインドウのハンドルを取得するコード）を実行することができる。

動作NG

Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr

Private Declare PtrSafe Function PostMessage Lib "user32" Alias "PostMessageA" _
(ByVal hwnd As LongPtr, ByVal wMsg As LongPtr, ByVal wParam As LongPtr, ByVal lParam As LongPtr) As LongPtr

Const WM_COMMAND As Long = &H111&
________________________________________________________________________________________
Sub test()

Dim HandleIE As InternetExplorerMedium
Dim HTMLDoc As MSHTML.HTMLDocument
Dim ie As InternetExplorerMedium
Dim objButton As HTMLInputButtonElement

'（省略）

Set ie = IEオブジェクト
For Each objButton In ie.document.getElementsByTagName("foo")
    If objButton.Value = "piyo" Then
　　　　 objButton.click() 'VBAのclickメソッドでクリックすると、"WEBページからのメッセージ"が出現した時、システム側に制御を持っていかれてしまう

' 制御はシステム側に残ったままなので、↓以下のコードはいつまで経っても実行されない
Sleep 1000
Dim hwnd As LongPtr

hwnd = FindWindow("#32770", "Web ページからのメッセージ")
PostMessage hwnd, WM_COMMAND, vbOK, 0&

End Sub

###動作OK

Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr

Private Declare PtrSafe Function PostMessage Lib "user32" Alias "PostMessageA" _
(ByVal hwnd As LongPtr, ByVal wMsg As LongPtr, ByVal wParam As LongPtr, ByVal lParam As LongPtr) As LongPtr

Const WM_COMMAND As Long = &H111&
________________________________________________________________________________________
Sub test()

Dim HandleIE As InternetExplorerMedium
Dim HTMLDoc As MSHTML.HTMLDocument
Dim ie As InternetExplorerMedium
Dim objButton As HTMLInputButtonElement

'（省略）

Set ie = IEオブジェクト
For Each objButton In ie.document.getElementsByTagName("foo")
    If objButton.Value = "piyo" Then

　　　　 '対象のボタンを取得後、VBAではなく、javascriptでクリックする。そうすることで、制御はVBAに残ったままになり、以下のコードが実行される。
        ie.document.Script.setTimeout "javascript:document.getElementById('hage').click()", 200
        Sleep 1000

        hwnd = FindWindow("#32770", "Web ページからのメッセージ")
    
        If hwnd <> 0 Then
            Debug.Print hwnd, ie.hwnd
    
            PostMessage hwnd, WM_COMMAND, vbOK, 0
        End If
        Exit For
    End If
Next

Answer 2

当方、VBAはデータ解析や、DB出力結果と人間が管理している
excelファイルの突合・運用手順の自動化等ではある程度経験が
有りますが、IE連携や（今やそれでもないらしい）webページのダイアログ
については、殆ど素人です。

しかも、「TanakaHiroaki」さんから有用そうな回答もあります。
（SendMessage も宣言が必要そうですが）

ただ追記・修正依頼に書いてしまった以上、外していても構わないので、
直感した回答を記させて頂きます。

＞＞'DeclareステートメントにPtrSafe属性を追加；64ビット版Excel対応のため
＞＞Declare PtrSafe Function FindWindowEx・・・

を定義しているのに、例文ではhoge()中に、この関数は登場していません
しかし実行環境は64bitとのことです。

ならば、
hwnd = FindWindowは
hwnd = FindWindowEx と書くべきなのではないかなと
感じました。

大外ししていれば、申し訳ないです。
先に謝って置きます「済みません」

Comments

[koyamashinji]

ご回答ありがとうございます。返信遅くなり申し訳ありません。仕事上、こちらの検証が月末日しかできず、また次回実施する際、頂いたご意見をもとにトライしてみます。

Answer 3

SendMessage を使う方法です。

hWindow = FindWindow("#32770", "Web ページからのメッセージ")
hButton = FindWindowEx(hWindow, 0&, "Button", "OK")
SendMessage hButton, &H6, 1, 0&  'ボタンをアクティブにする
SendMessage hButton, &HF5, 0, 0& 'ボタンをクリックする

Comments

[koyamashinji]

ご回答ありがとうございます。返信遅くなり申し訳ありません。仕事上、こちらの検証が月末日しかできず、また次回実施する際、頂いたご意見をもとにトライしてみます。