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)得到第一个元素。

代码分析:

var

myitem:olevariant;

myitem:=webbrowser1.document;

for i := 0 to myitem.all.length - 1 do//遍历所有元素

begin

if myitem.all.item(i).tagname = 'input' then//表单一为input标签,还有很多,可以换上'button','textarea',select下拉选择等。。。

if myitem.all.item(i).type

end;

在遍历for i := 0 to myitem.all.length - 1 do 的时候首先要保证webbrowser是有内容的,否则出错。

可以加一句判断:if form1.webbrowser1.document = nil then exit;

好了,这就得到表单的索引和id啦。。。怎么自动提交呢?

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

======================================================
在最后，我邀请大家参加新浪APP，就是新浪免费送大家的一个空间，支持PHP+MySql，免费二级域名，免费域名绑定 这个是我邀请的地址，您通过这个链接注册即为我的好友，并获赠云豆500个，价值5元哦！短网址是http://t.cn/SXOiLh我创建的小站每天访客已经达到2000+了，每天挂广告赚50+元哦，呵呵，饭钱不愁了，\(^o^)/