Delphi实现自动发贴和识别验证码 王泽宾 推荐

这是去年编写的一个delphi小程序，当时有个宁波的朋友让我帮他写个软件，要求如下：能够在xxxx网站上的各个交易区，实现自动发帖。
xxxx是一个游戏点卡交易站点，他们按照省份进行划分交易区域，信息发布者每次只能在一个省份发布信息。当然可能他们也是出于某种目的，比如防止信息泛滥。发布者发布信息的页面都有一个图形验证码，只有填写正确的验证码才能完成整个流程。
当时他是一直用着，现在是否还在用不得而知了，把这段代码放出来纯粹是与大家交流学习，不要作恶。
登录网站,自动填写网页数据，并提交，这样的功能比较简单，我想大家也都会，我就随便举个例子:
首先，在form上嵌入一个标准的webbrowser控件（程序中使用了另一个webbrowser控件，但可以互换），navigate一个url,然后通过ole对象访问即可。
比如页面上有个id为btnok的按钮，那么可以这样访问：
try
o := EmbeddedWB1.OleObject.document.all.item('btnok',0);
o.click;
except
txtError.caption := '当前页面未发现<确认提交>的输入位置，请核对！';
end;
复杂一点的地方主要是验证码的识别部分：
多亏这个网站的验证码图片比较简单，4个字符组成，虽然有干扰色，有噪点，有字符粘联，并带一定旋转，但只有数字，没有字母和汉字，否则麻烦大了，得做个完整的ocr系统。
图片处理流程如下：



识别模拟过程如下：



对比相似度是识别的难点，我这里由于图片比较简单，所以比较省力。对于比较复杂的图片识别，你可以建立数学模型，将图片和模板做成矩阵，依照矩阵变换和旋转进行相似度的比较，感兴趣的哥们可以更深入的了解。

源码我把它放到资源里面去，大家可以免分下载。各位见笑了，dephi7编写，当时的识别率差不多80%左右。

附件：http://down.51cto.com/data/2351711