Dim uiAuto As CUIAutomation8: Set uiAuto = New CUIAutomation8 Dim ui(0 To 15) As IUIAutomationElement9 ' {ClassName = "View", Name = "", ControlType = UIA_PaneControlTypeId (0xC371)} Set ui(0) = GetTargetView(uiAuto) ' ← 目標の ClassName = "View" を取得する関数 ' Nothing Set ui(1) = ui(0).FindFirst(TreeScope_Children, uiAuto.CreatePropertyCondition(UIA_ClassNamePropertyId, "WebView")) Set ui(2) = ui(0).FindFirst(TreeScope_Children, uiAuto.CreatePropertyCondition(UIA_ClassNamePropertyId, "Chrome_RenderWidgetHostHWND")) ' {ClassName = "WebView", Name = "", ControlType = UIA_DocumentControlTypeId(0xC36E)} Set ui(3) = uiAuto.RawViewWalker.GetFirstChildElement(ui(0)) ' {ClassName = "Chrome_RenderWidgetHostHWND", Name = "Chrome Legacy Window", ControlType = UIA_PaneControlTypeId (0xC371)} Set ui(4) = uiAuto.RawViewWalker.GetNextSiblingElement(ui(3)) ' {ClassName = "", Name = "Visual Basic 中学校", ControlType = UIA_DocumentControlTypeId(0xC36E)} Set ui(5) = uiAuto.ControlViewWalker.GetFirstChildElement(ui(0)) Set ui(6) = uiAuto.ContentViewWalker.GetFirstChildElement(ui(0)) Set ui(7) = ui(0).FindFirst(TreeScope_Children, uiAuto.RawViewCondition) Set ui(8) = ui(0).FindFirst(TreeScope_Children, uiAuto.ControlViewCondition) Set ui(9) = ui(0).FindFirst(TreeScope_Children, uiAuto.ContentViewCondition) ' {ClassName = "MainTitle", Name = "Visual Basic 中学校", ControlType = UIA_TextControlTypeId(0xC364)} Set ui(10) = ui(4).FindFirst(TreeScope_Children, uiAuto.CreatePropertyConditionEx(UIA_NamePropertyId, "中学", PropertyConditionFlags_MatchSubstring)) Set ui(11) = ui(4).FindFirst(TreeScope_Children, uiAuto.CreateTrueCondition()) Set ui(12) = ui(4).FindFirst(TreeScope_Children, uiAuto.RawViewCondition) Set ui(13) = ui(4).FindFirst(TreeScope_Children, uiAuto.ControlViewCondition) Set ui(14) = ui(4).FindFirst(TreeScope_Children, uiAuto.ContentViewCondition) Set ui(15) = uiAuto.RawViewWalker.GetFirstChildElement(ui(5))