通过自己写的程序自动获取指定IE窗口中的框内的内容？？(50分)

通过句柄我们可以往其它的窗口中写信息，那么我们如何获取标题所示的信息呢？？

uses shdocvw;
var
; IEAddress:string;
; ShellWindow: IShellwindows;
; i:integer;
; web:IWebBrowser2;
begin
; shellwindow:= CoShellWindows.Create;
; for i:=0 to shellwindow.Count-1 do
; begin
; ; Web:=shellwindow.Item(i) as IWebbrowser2;
; ; //这里就得到了一个IWebBrowser2的接口，就可以调用他的方法了
; ; IEAddress:=Web.LocationURL;
; end;
end;

这里获得的IEAddress就是IE窗口中的框内的内容了。

如何获取光标所在的IE窗口内的网页框架中的内容？？？

在另外一个帖子上抄的，我试了一下，挺不错的：
procedure TForm1.Timer1Timer(Sender: TObject);
var
; Pos: TPoint;
; Handle: HWND;
; Buf: array[0..1024] of Char;
begin
; GetCursorPos(Pos);
; Handle := WindowFromPoint(Pos);
; HandleEdit.Text := IntToStr(Handle);
; GetClassName(Handle, Buf, 1024);
; ClassEdit.Text := Buf;
; SendMessage(Handle, WM_GETTEXT, 1024, Integer(@Buf));
; TextEdit.Text := Buf;
end;

楼上的，不错。只是不能获得网页框加内的内容呀？？各位帮帮我，怎么做？？

这不是破解/获取密码吗？ ;：D

不是呀。那有什么意思呀。我只想得到ie中的网页框加内的内容。

有谁可以呀？？

uses shdocvw,mshtml

var
; IEAddress:string;
; ShellWindow: IShellwindows;
; i:integer;
; web:IWebBrowser2;
; HTMLDocument: IHTMLDocument2;
begin
; shellwindow:= CoShellWindows.Create;
; for i:=0 to shellwindow.Count-1 do
; begin
; ; Web:=shellwindow.Item(i) as IWebbrowser2;
; ; IEAddress:=Web.LocationURL;
; ; if Application.MessageBox(PChar(IEAddress),Pchar(Caption),MB_YesNo)=IDYes then
; ; begin
; ; ; HTMLDocument := Web.Document as IHTMLDocument2;
; ; ; RichEdit1.Lines.Text:=HTMLDocument.body.Get_innerHTML;
; ; end;
; end;
end;

不行呀。还是获不了呀。这只是通过链接获得呀。
这样吧，谁能帮我获得网易聊天室内分屏后，下面的与我自己聊天相关的内容！！
一定加份，不够的我会再加。

再给点分吧，呵呵

//向带框架的网页中的某个指定的表单内填入文字， 并点击指定按钮，
//这是我用来编写聊天室灌水机器用的， 代码没有优化，仅供参考。
//在程序中，找指定表单的过程麻烦了一些，采用循环的方式， 其实
//完全可以采用 ; ; ; ;o:=oneframe.document.all.item(iName,0);
// ; ; ; ; ; ; ; ; ; ;o.value:='xxxxx';
//这种形式来实现，更为简单一些。 懒得改了
//欢迎探讨 ; ; Town@ppmm.net

procedure TForm1.PutDataframe(iName,ss,sBtnName:String);
var
; ShellWindow: IShellWindows;
; nCount: integer;
; spDisp: IDispatch;
; i,j,k: integer;
; vi,l,o: OleVariant;
; IE1: IWebBrowser2;
; IDoc1: IHTMLDocument2;
; oneframe:Ihtmlwindow2;
; S1,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
; ; ; if idoc1.frames.length<>0 then
; ; ; for k:= 0 to idoc1.frames.length-1 do
; ; ; begin
; ; ; ; ;l:=k;
; ; ; ; ;spDisp:=idoc1.frames.item(l);
; ; ; ; ;if SUCCEEDED(spDisp.QueryInterface(IHTMLWindow2 ,oneframe))then
; ; ; ; ; ;begin
; ; ; ; ; ; ; for j:=0 to oneframe.document.all.length-1 do
; ; ; ; ; ; ; ; ;begin
; ; ; ; ; ; ; ; ; ; Application.ProcessMessages;
; ; ; ; ; ; ; ; ; ; spDisp := oneframe.document.all.item(J, 0);
; ; ; ; ; ; ; ; ; ; if SUCCEEDED(spDisp.QueryInterface(IHTMLInputElement ,HtmlInputEle))then
; ; ; ; ; ; ; ; ; ; ; with HtmlInputEle do
; ; ; ; ; ; ; ; ; ; ; begin
; ; ; ; ; ; ; ; ; ; ; ; S1:=Name;
; ; ; ; ; ; ; ; ; ; ; ; S2:=Type_;
; ; ; ; ; ; ; ; ; ; ; ; S2:=UpperCase(S2);
; ; ; ; ; ; ; ; ; ; ; ; S1:=UpperCase(S1);
; ; ; ; ; ; ; ; ; ; ; ; if (StrComp(PChar(S2),'TEXT')=0) or (StrComp(PChar(S2),'PASSWORD')=0) then
; ; ; ; ; ; ; ; ; ; ; ; ; ;begin
; ; ; ; ; ; ; ; ; ; ; ; ; ;if S1=UpperCase(iName) then
; ; ; ; ; ; ; ; ; ; ; ; ; ; ; begin
; ; ; ; ; ; ; ; ; ; ; ; ; ; ; value :=ss;
; ; ; ; ; ; ; ; ; ; ; ; ; ; ; o:=oneframe.document.all.item(sBtnName,0);
; ; ; ; ; ; ; ; ; ; ; ; ; ; ; o.click;
; ; ; ; ; ; ; ; ; ; ; ; ; ; ; exit;
; ; ; ; ; ; ; ; ; ; ; ; ; ; ; end;
; ; ; ; ; ; ; ; ; ; ; ; ; ;end;
; ; ; ; ; ; ; ; ; ; ;end;
; ; ; ; ; ; ; ; ;end;
; ; ; ; ; ;end;

; ; ; end;
; ; end;
; ;end;
; end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
; putdataFrame('Words','嘻嘻嘻','submit');
; //向名称为words的文本框内填入"嘻嘻嘻"，并点击名称为"submit"的按钮
end;

还是不行呀，老大我的QQ号是 ;940290 我们讨论一下好吗

我试验没问题啊，呵呵。 你的QQ我无法加为好友
我的QQ是 6305153 , 不常上, 因为公司不让玩QQ

[]问题还是没有解决呀！！各位帮帮忙。还谁有办法？？

都是高手啊~~