一个刷屏的例子

一个刷屏软件的原理：
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;