怎么像刷屏软件一样捕抓到一个网页的EDIT 或 单选框或复选框。

Question

这个，应该是比较烦琐的。
1、先要Import一个类型库Microsoft HTML Object Library（非常恐怖的一个Type Library，居然有28万行）。
2、从WebBrowser上获得IHTMLDocument2对象，就是
IDoc := Webbroswer1.Document as IHTMLDocument2
3、
a := 0;
for i := 0 to IDoc.All.length - 1
begin
  AItem := IDoc.All.Item(i, a) as IHTMLElement;
  if UpCase(AItem.TagName) = 'INPUT' then
  begin
    AInputItem := IDispatch(AItem) as IHTMLInputElement;
    // do your things
  end;
  // do other things;
end;

Answer 1

居然有28万行？？？？？？？？？？？？？呵呵～～太恐怖了～～我还是不玩了～～我去玩我的数据库了～～～ngyxh(小灰羊)　～～你自己研究吧～～：）

Answer 2

chechy(chechy)　千万不要把那28万多行的源代码贴出来，千万不要啊。否则我的眼睛会看爆的。

Answer 3

呵呵，我不会的。调用这个文件，Delphi都要好几十秒。
此外，要用好这些对象，需要MSDN，及相关的COM编程知识。
其它方法我就不清楚了。

Answer 4

怎么，被28万行吓倒了？COM应该是最容易，最简单的了。除非，你有本事分析HTML，并生成相应的JavaScript。