再谈截获IE form密码(1分)

偶注意到msdn 里描述到 HTMLelement 只在na..complete下才有效（就是page全部加载完）
偶希望借助现有很多代码实现如下两个可能来截获到htmlelement

1.在 dobefore....2 内
有一个postdata ，偶尝试showmessage or 转换String 但是……失败，崩溃

2.有无其他方式截获到 submit事件？
并顺利获得html...

（有本书中写的，估计作者也在看本论坛 ：） ，是使用了面班。由于CD坏了无法使用看不到代码，没有体会该代码的实现。但是希望以一个BHO来实现…… ）

如何处理？ 各位有无现成代码 ？或者谁把那个“深度探索”2版里的IE部分代码贴上来啊？

谢谢。

使用这个接口看看
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;