转 Delphi实现自动发贴和识别验证码 王泽宾收藏

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

 转:

登录网站,自动填写网页数据，并提交，这样的功能比较简单，我想大家也都会，我就随便举个例子:
  首先，在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系统。
  图