Accessible ObjからIE Obj

質問

VBAからIE９のタブ機能を操作しようと悪戦苦闘しております。

詳しく申し上げると、最前面に表示されているIEの
アクティブなタブを確実につかんだうえで、
そのページのDOMを操作したいです。

色々調べていったところ、IAccessibleインタフェースの
中にあるaccStateプロパティを見れば、タブがアクティブになっているかどうか
判別できるところまでたどり着きました。

以下のページを参考にしました。
http://mt-soft.sakura.ne.jp/kyozai/excel_apps/tab-ctrl/index-jump.html?pg_02.html

※C#を多少かじったので、クラス等の知識は微量ですがあります。

上記のサイトを参考に実際にコードを組んでいたのですが、
AccessibleオブジェクトとIEオブジェクトを行き来する方法が
わからず、せっかくタブの状態がわかっても
それをメインのコードに反映することができません。

Accessibleオブジェクトの階層を上のほうまで辿って行けば、
IEオブジェクト(Shell Windowオブジェクト？）にたどり着く？
ということも考えたのですが、辿り方がわからず頓挫しております。

最前面のIEはFindWindow関数でハンドルを取得し、
それをAccessibleインターフェイスに渡す方法で
accStateを取得しています。

Sub ie_find()

Dim IE As Object
Dim hWnd As Double

hWnd = FindWindow("IEFrame", vbNullString)

'タブのリスト
Dim TabList()
'タブリスト作成
MakeTabList hWnd, TabList

For i = 0 To UBound(TabList)
If TabList(i).accState(CHILDID_SELF) = 2097154 Then
Next i

’ここにいれる処理がわかりません。
’IEオブジェクト⇔Accessibleオブジェクトの
’方法があれば処理できると思います。

End Sub

Private Sub MakeTabList(hWnd As Double, ByRef TabList())
'
' タブ一覧生成
'
Dim hWndChild As Long
Dim Cnt As Long, i As Long
Dim ClassName As String

Call Class_Initialize 'AccessibleオブジェクトのUUID設定

hWndChild = GetDirectUIHWND(hWnd, "CommandBarClass") 'IE9以前
If hWndChild = 0 Then hWndChild = GetDirectUIHWND(hWnd, "WorkerW") 'IE10以降
If hWndChild = 0 Then Exit Sub

Dim objAcc As IAccessible, v

AccessibleObjectFromWindow hWndChild, OBJID_CLIENT, IID_IAccessible, objAcc

If Not (objAcc Is Nothing) Then

Dim Children() As Variant
Dim Count1 As Long, Count2 As Long
Dim retCount As Long

Count1 = objAcc.accChildCount

ReDim Children(Count1 - 1)
Call AccessibleChildren(objAcc, 0, Count1, Children(0), retCount) '子オブジェクト

For i = 0 To objAcc.accChildCount - 1
If TypeOf Children(i) Is IAccessible Then

If Children(i).accRole(CHILDID_SELF) = ROLE_SYSTEM_PAGETABLIST Then 'タブ行？
Count2 = Children(i).accChildCount
ReDim TabList(Count2 - 1)
'タブの一覧を生成　「タブ」と「新しいタブ」のボタン
Call AccessibleChildren(Children(i), 0&, ByVal Count2, TabList(0), retCount)
Exit For
End If
End If
Next i

End If

End Sub

Private Function GetDirectUIHWND(hWnd As Double, ClassName As String) As Long
'
' DirectUIHWND のウィンドウハンドルを取得
'
Dim hWndChild As Long
hWndChild = FindWindowEx(hWnd, 0, ClassName, vbNullString)
If hWndChild <> 0 Then hWndChild = FindWindowEx(hWndChild, 0, "ReBarWindow32", vbNullString)
If hWndChild <> 0 Then hWndChild = FindWindowEx(hWndChild, 0, "TabBandClass", vbNullString)
If hWndChild <> 0 Then hWndChild = FindWindowEx(hWndChild, 0, "DirectUIHWND", vbNullString)
GetDirectUIHWND = hWndChild
End Function

Private Sub Class_Initialize()

'AccessibleオブジェクトのUUID設定

With IID_IAccessible
.Data1 = &H618736E0
.Data2 = &H3C3D
.Data3 = &H11CF
.Data4(0) = &H81
.Data4(1) = &HC
.Data4(2) = &H0
.Data4(3) = &HAA
.Data4(4) = &H0
.Data4(5) = &H38
.Data4(6) = &H9B
.Data4(7) = &H71
End With
End Sub

どうかこの辺詳しい方、ご教示よろしくお願いいたします。

回答No.1

kumatti1 · ベストアンサー

「About Active Accessibility Support (Windows)」
https://msdn.microsoft.com/en-us/library/ie/gg701963%28v=vs.85%29.aspx
このページから察するに(少なくとも)ウィンドウクラス名「Internet Explorer_Server」と
対応してるIAccessibleオブジェクトの子孫要素まで辿らないといけなそうです。

で、IServiceProvider::QueryServiceでIHTMLWindow2を得て、IHTMLDocument2を得ればいいのではと。
(ラッパー関数はIUnknown_QueryService)
https://msdn.microsoft.com/en-us/library/windows/desktop/bb759858%28v=vs.85%29.aspx

お礼

本当にありがとうございました！！
数ヶ月悩んでいたことがついに解決しました！
感謝です！