取得IE窗口中的输入框

先取得当前聊天室的窗口的句柄，然后用如下代码获取该窗口中的所有输入框：
uses SHDocVw,MSHTML;
procedure GetIETextField(w:longint):TStringList;
var i,k:integer;
ShellWindow: IShellWindows;
IE:IWebBrowser2;
IDoc:IHTMLDocument2;
spDisp:IDispatch;
aInputText:IHTMLInputTextElement;
v:OLEVariant;
tmpList:TStringList;
begin
tmpList:=TStringList.Create;
ShellWindow:=CoShellWindows.Create;
for k:=0 to ShellWindow.Count-1 do
begin
v:=k;
spDisp:=ShellWindow.Item(v);
spDisp.QueryInterface(IWEBBROWSER2,IE);
if IE=nil then continue;
if IE.Get_HWND<>w then continue;
IDoc:=IE.Document as IHTMLDocument2;
if iDoc=nil then continue;
if Idoc.Frames.Length<>0 then continue;
for i:=0 to Idoc.all.length-1 do
begin
if Idoc=nil then Break;
spDisp:=Idoc.all.item(i,varEmpty);
if SUCCEEDED(spDisp.QueryInterface(IHTMLInputTextElement,aInputText)) then
if aInputText.value<>'' then //****//
tmpList.add('name:'+aInputText.name+' value:'+aInputText.value);
end;
break;
end;
result:=tmpList;
end;
如果要对特定的输入框，只需要在//****//那行进行判断:
if aInputText.name='xxxxxxx' then
　
　
来自：Mutex, 时间：2001-5-18 11:00:25, ID：535010
另外，
如果该页面为Frame或者iFrame形式，在上述代码的
if idoc.Frames.lenght<>0 then Continue那行再进行处理。