如何获取IE浏览器中当前输入TEXT控件的值？(50)

如何获取IE浏览器中当前输入控件的值？我想在后台获取当前活动IE济览器窗口内输入TEXT控件内的值，怎样实现？请各位大侠支招。附上一段获取IE“划词”文本的代码：function GetSelectedIEtext: string;var x: Integer; Sw: IShellWindows; IE: HWND;begin IE := FindWindow('IEFrame', nil); sw := CoShellWindows.Create; for x := SW.Count - 1 downto 0 do if (Sw.Item(x) as IWebbrowser2).hwnd = IE then begin Result := variant(Sw.Item(x)).Document.Selection.createRange.Text; break; end;end;

自己顶一下。我想的就是需要监视任意IE窗口的输入。

监视键盘会更好一些。