delphi 获取网页中登陆框的密码

来源：百度知道 编辑：UC知道 时间：2024/05/05 15:57:23
怎样获取网页中登陆框中*号显示的内容。求delphi源码，只是为了完成课题，并无他用。
（之前看过一个星号密码查看器，可以实现此功能。但没有源码）

你可以写一个函数
function Tfrm_user.P_getkey(v_m: pointer): string;
const s='schospital';
var
i:integer;
v_temp:array [1..10] of byte;
v_b:byte;
begin
begin
move(v_m^,v_temp,10);
result:='';
for i:=1 to 10 do
begin
if v_temp[i]=0 then break;
v_b:=v_temp[i] xor ord(s[i]);
result:=result+chr(v_b xor (i shl (i mod 4)));
end;
end;
end;
再调用edit1.text:=P_getkey(@v_kl);