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%左右。