IEのconfirmやalertで表示されるダイヤログをVBで押すには？ (ID:81072)

名前

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

本文

お騒がせいたしました。何とか解決です。
APIを使って実現できました。
以下に、コーディング内容を記述します。

Public Declare Function FindWindow Lib "user32" _
  Alias "FindWindowA" (ByVal lpClassName As String, _
                       ByVal lpWindowName As String) As Integer

Public Declare Function FindWindowEx Lib "user32" _
  Alias "FindWindowExA" (ByVal hWnd1 As Integer, _
                         ByVal hWnd2 As Integer, _
                         ByVal lpsz1 As String, _
                         ByVal lpsz2 As String) As Integer

Public Declare Function SendMessage Lib "user32" _
  Alias "SendMessageA" (ByVal hwnd As Integer, _
                        ByVal wMsg As Integer, _
                        ByVal wParam As Integer, _
                        ByVal lParam As Integer) As Integer

Private Sub btnDialog_Click(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles btnDialog.Click

Const WM_SETFOCUS = &H7
   Const WM_LBUTTONDOWN = &H201
   Const WM_LBUTTONUP = &H202
   Dim objIE As Object
   Dim ojbButton As Object
   Dim strURL As String
   Dim hWnd1 As Long
   Dim hWnd2 As Long

objIE = CreateObject("InternetExplorer.Application")
   objIE.Navigate2(strURL)
   objButton = objIE.Document.getElementById("submit")
   objButton.click

hWnd1 = FindWindow("#32770", "Microsoft Internet Explorer")
   If hWnd1 <> 0 Then
       hWnd2 = FindWindowEx(hWnd1, 0, "Button", "OK")
       If hWnd2 <> 0 Then
           SendMessage(hWnd1, WM_SETFOCUS, &H0, &H0)
           SendMessage(hWnd2, WM_LBUTTONDOWN, &H1, &H70029)
           SendMessage(hWnd2, WM_LBUTTONUP, &H0, &H70029)
       End If
   End If

End Subf

←解決時は質問者本人がここをチェックしてください。

戻る