ControlGetHandle in AutoIT

Question

有人能告诉我ControlGetHandle（）在幕后做什么吗？它调用什么Windows API函数？我怎么能看到它？（日志/调试模式）。

它有时成功，有时失败，我不明白为什么。我到处找，包括AutoIT.au3包含的文件，但找不到任何信息。

Answer 1

因此，我发现了一个名为"API Monitor"的神奇工具。它向您展示了对操作系统进行的API调用。您可以过滤等。当使用"ControlGetHandle"运行AutoIT时，您可以看到它实际上调用了两个函数：

1. EnumWindows
2. EnumChildWindows

使用相关参数来获得所需的句柄。

谢谢！

Answer 2

我相信它使用了GetDlgCtrlID等。如果您在让它返回句柄时遇到问题，有时更改controlID参数会解决问题。此外，请确保您正在等待控件首先加载。如果控件存在，并且您使用正确的controlID参数AutoIt将能够在99.9999%的时间内获得控件句柄。

Answer 3

首先想到的是，函数找到具有匹配标题的窗口，列出控件，找到具有合适条件（类名和文本）的控件，并返回他的HWnd。这是使用API EnumWindows/GetWindowTextLength/GetWindowText，GetWindowClassName完成的。

---

在这里，我写了一个小例子，但它是用Pascal写的（对不起，后来在AutoIt.；）；）

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
  fhw:hwnd;
  cls,txt:string;
  wind:hwnd;
implementation
{$R *.dfm}
function GetText(wnd:hwnd):string;
var
  len:integer;
begin
  len:=GetWindowTextLength(wnd)+1;
  SetLength(result,len);
  SetLength(Result,GetWindowText(wnd,pchar(result),len));
end;
function GetClsName(wnd:hwnd):string;
begin
  SetLength(result,5000);
  SetLength(result,GetClassName(wnd,pchar(result),5000));
end;

function EnumChildProc(wnd:HWnd; param:Integer):bool;stdcall;
var
  wintext,wincls:string;
  ccmp,tcmp:boolean;
begin
  wintext:=gettext(wnd);
  wincls:=getclsname(wnd);
  if cls <> '' then
  ccmp:=(comparetext(cls,wincls)=0)
  else
  ccmp:=true;
  if txt <> '' then
  tcmp:=(comparetext(txt,wintext)=0)
  else
  tcmp:=true;
  result:=not (tcmp and ccmp);
  if not result then
   wind:=wnd;
end;
procedure GetControlHandle(title:string; wtext:string; clsname:string);
var
  hw:hwnd;
begin
  wind:=0;
  hw:=findwindow(nil,pchar(title));
  if hw <> 0 then
  begin
  cls:=clsname;
  txt:=wtext;
  EnumChildWindows(hw,@EnumChildProc,integer(pointer(result)));
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
  w:hwnd;
begin
  getcontrolhandle('New Project','','Button');
  w:=wind;
  CloseWindow(w);
end;
end.