UI 自动化 - ElementFromHandle 找不到元素

Question

我正在尝试使用 UIAutomation 访问/控制 Chrome 浏览器（使用基于其他人使用的方法 - 例如获取当前 URL）。

出于练习的目的，我试图在 Delphi 中复制这个问题 - Retrieve current URL from C# windows forms application。我已经导入了 TLB 好的。但是，我对 ElementFromHandle 的调用从未找到元素。

ElementFromHandle 方法的签名是：

function ElementFromHandle(hwnd: Pointer; out element: IUIAutomationElement): HResult; stdcall;

我的测试很简单：

procedure TForm3.Button1Click(Sender: TObject);
var
  UIAuto: IUIAutomation;
  element: IUIAutomationElement;
  value: WideString;
  h: PInteger;
begin
  new(h);
  h^ := $1094E;
  SetForegroundWindow(h^);
  ShowWindow(h^, SW_SHOW);
  UIAuto := CoCUIAutomation.Create;
  UIAuto.ElementFromHandle(h, element);
  if Assigned(element) then
  begin
    element.Get_CurrentName(value);
    showmessage('found -' + value);
  end
  else
    showMessage('not found');
end;

调用 SetForegroundWindow 和 ShowWindow 只是为了以防它需要焦点（但我怀疑它会有所作为并且不会）。我可以确认我传入的句柄（$1094E）是“正确的”，因为 Spy++ 显示了我尝试访问的 Chrome 选项卡的值。 Chrome 中的活动标签始终报告该句柄。

我上面的实现是否正确？使用 UIAutomation 是否比我上面实现的更多？我以前从未探索过。

谢谢

编辑

我发现如果我使用 ElementFromPoint 并传入一个（硬编码）值，我知道我的 Tab 位于 X、Y 的位置 - 它确实有效。即：

  UIAuto := CoCUIAutomation.Create;
  p.x := 2916;
  p.y := 129;
  UIAuto.ElementFromPoint(p, element);
  if Assigned(element) then

如果放置在上面的 OnClick 事件中，上面的 sn-p 确实会返回一个元素实例，并且我也期待这个实例（这是一个奖励）。所以也许我在 ElementFromHandle 中为 Hwnd 传递了一个不正确的值？即，我正在使用我的 MS Spy++ 中找到的 Chrome 的“顶级”句柄：

它直接位于 Spy++ 中的 (Desktop) 下方。

Answer 1

您的错误在于您将窗口句柄传递给ElementFromHandle 的方式。你应该通过HWND。相反，您传递HWND 的地址。

函数真的应该是：

function ElementFromHandle(hwnd: HWND; 
    out element: IUIAutomationElement): HResult; stdcall;

您应该删除对New 的调用，改为：

var
  window: HWND;
....
window := HWND($1094E);

然后像这样调用函数：

if Succeeded(UIAuto.ElementFromHandle(window, element)) then
  ....

也许您最大的根本问题是完全没有错误检查。我认为您需要调整心态，以意识到这些 API 调用不会引发异常。他们通过返回值报告失败。您必须检查每个 API 调用是否失败。

一种常见的方法是将HRESULT 值转换为异常，以防调用OleCheck 失败。例如：

var
  UIAuto: IUIAutomation;
  element: IUIAutomationElement;
  value: WideString;
  window: HWND;
....
window := HWND($1094E);
SetForegroundWindow(window);
ShowWindow(window, SW_SHOW);
UIAuto := CoCUIAutomation.Create;
OleCheck(UIAuto.ElementFromHandle(window, element));
OleCheck(element.Get_CurrentName(value));
ShowMessage('found -' + value);