Delphi7 Webbrowser制作网页表单自动提交器按步分析（1）

相信很多朋友都有过这样的想法，一些单调的表单提交工作，能不能有一些简单方便的方法来完成这些重复的劳动。

比如说，注册用户啦，网站添加文章啦。。。

呵呵，现在小弟做了一个自动提交程序，说是自动，其实也不算啦，只能算半自动。

主要是用Webbrowser控件来完成，所以说速度上比不上HTML的IDHTTP来得快。多线程也没有使用到，因为用webbrowser线程好象没能

发挥太大的作用，webbrowser在线程运用中也很容易假死。。。

1、获取webbrowser自动提交表单的ID和索引。

下面介绍一下程序的使用方法以及它的源码及分析。

第一步 首先在输入要提交的网页地址。

例如：

我们输入：www.baidu.com



点击分析网页，然后就可以把网页的INPUT标签都列出来了。

可以看到ID为Wd的表单就是百度的输入框了。‘百度一下’这个提交按钮并没有ID类型是submit。

怎么提取这些表单呢：

这里先说一下MSHTML

ITEM是MSHTML里一个集合。

网页DOCUMENT对象所有过元素都在这里。可以通过遍历它来得到某个标签的内容。

例如：object.item(0)得到第一个元素。

代码分析：

myitem:=webbrowser1.Document;

end;

在遍历for i := 0 to myitem.all.length - 1 do ]可以加一句判断：if form1.webbrowser1.Document = nil then exit;

好了，这就得到表单的索引和ID啦。。。怎么自动提交呢？[/code]

按下来的话题就是提交了。。。呵呵