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

  • 相关阅读:
    关于# define 的使用
    翻转课堂---案例1
    四则运算
    第一次随笔
    第一次随笔
    第一次随笔
    beta冲刺1
    BETA 版冲刺前准备
    Alpha 事后诸葛亮
    Alpha 答辩总结
  • 原文地址:https://www.cnblogs.com/wanghao72214/p/1383599.html
Copyright © 2020-2023  润新知