如何得到qq密码框的句柄？

Question

我自己写了这个软件,能取窗口句柄和类名.不过QQ的密码框加密了,不能取密码.要的话请留Email.注明是2000还是98.因为我用了一个半透明的.

Answer 1

function GetPasswordText(mHandle: THandle): string; { 返回编辑器里的密码文本 }
const
  Size = 1024;
var
  Buffer: PChar;
begin
  GetMem(Buffer, Size);
  try
    Result := '';
    SendMessage(mHandle, WM_GETTEXTLENGTH, 0, 0);
    SendMessage(mHandle, WM_GETTEXT, Size, LongInt(Buffer));
    Result := string(Buffer);
  finally
    FreeMem(Buffer, Size);
  end;
end; { GetPasswordText }procedure TForm1.Timer1Timer(Sender: TObject);
var
  vHandle: THandle;
begin
  vHandle := WindowFromPoint(Mouse.CursorPos);
  if vHandle = Handle then Exit;
  Caption := GetPasswordText(vHandle);
end;//如果你要给分
//就给zswang!

Answer 2

//想深入用
Windows.GetClassName()
Windows.GetWindowText()
Windows.FindWindow()

Answer 3

谢谢，[email protected] GetPasswordText(mHandle: THandle): string; { 返回编辑器里的密码文本 }
const
  Size = 1024;
var
  Buffer: PChar;
begin
  GetMem(Buffer, Size);
  try
    Result := '';
    SendMessage(mHandle, WM_GETTEXTLENGTH, 0, 0);
    SendMessage(mHandle, WM_GETTEXT, Size, LongInt(Buffer));
    Result := string(Buffer);
  finally
    FreeMem(Buffer, Size);
  end;
end; { GetPasswordText }procedure TForm1.Timer1Timer(Sender: TObject);
var
  vHandle: THandle;
begin
  vHandle := WindowFromPoint(Mouse.CursorPos);
  if vHandle = Handle then Exit;
  Caption := GetPasswordText(vHandle);
end;这段代码可以取最新版的qq的句柄吗？