这段代码只能截取98下的密码框的密码

Question

这段代码只能截取98下的密码框的密码
procedure TForm1.Timer1Timer(Sender: TObject);
var
p:Tpoint;
hd:HWND;
l:integer;
buf:pchar;
begin
GetCursorPos(p);
hd:=WindowFromPoint(p);
l:=sendmessage(hd,WM_GETTEXTLENGTH,0,0);
getmem(buf,l+2);
sendmessage(hd,WM_GETTEXT,l+1,int64(buf));
edit1.Text :=strpas(buf);
freemem(buf);
end;
那么怎么截取“Nt核心操作系统的密码框的密码”和“IE中密码框的密码”呢？

Answer 1

NT 为了安全，首先要识别 WM_GETTEXTLENGTH 是不是自己程序发出来的，如果不是，他返回的内容是空，
所以，想在NT下做到取密码，就只有让操作系统相信这个消息使自己发出来的。