一个刷屏软件的例子

肖益齐

一个刷屏软件的原理：

procedure TForm1.Button1Click(Sender:TObject);

var

sw:IShellWindows;

n:integer;

disp:IDispatch;

i:integer;

vi:OleVariant;

ie1:IWebBrowser2;

idoc1:IHTMLDocument2;

begin

sw:=CoShellWindows.Create;

n:=sw.count;

for i:=0 to n-1 do

begin

vi:=i;

disp:=sw.item(vi);

disp.QueryInterface(IWebBrowser2,ie1);

if ie1 <> nil then

begin

memo1.lines.add’Location:’+ie1.LocationName);

ie1.Document.QueryInterfaceIHTMLDocument2,idoc1);

if idco1 <> nil then

begin

if idoc1.activeitem.isEditText then

begin

idoc1.activeitem.innertext:=’Hello,I GOT YOU!’;

keybd_event(VK_RETURN,0,0,0); // 送回车

//当然也是可以找到具体的submit按钮的，调用submit好象安全一点。

end;

memo1.lines.add(’Title:’+idoc1.Title);

memo1.lines.add(’URL:’+idco1.url);

end;

end;

end;

end;