THX!!

解决方案 »

  1.   

    OCR技术,目前国内好多家都有此产品,买贝!
      

  2.   

    呵呵,还是买一个OCR的产品吧,要自己写,太累了
      

  3.   

    '用Microsoft的组件.Option Explicit
    '注:要引用MIcrosoft Office Document Imageing 11.0 type
    '这个组件是安了office 2003 以后才有
    Private Sub Command1_Click()
    TestOCR
    End SubSub TestOCR()  Dim miDoc As MODI.Document
      
      Set miDoc = New MODI.Document
      Dim OutText As MODI.Layout
      
      miDoc.Create "C:\1.tif"
      
      Screen.MousePointer = vbHourglass
      miDoc.OCR miLANG_CHINESE_SIMPLIFIED '语言为简体中文
      'miDoc.OCR
      Set OutText = miDoc.Images(0).Layout '识别第一页的数据
      Text1.Text = OutText.Text
      Screen.MousePointer = vbDefault
      miDoc.Close False
      Set OutText = Nothing
      Set miDoc = Nothing
    End Sub
      

  4.   

    小弟在查看Microsoft的资料时无意中发现了这个好东东.
    可以识别汉字和字符的.识别率和效率都不错,现在拿出来,大伙一起研究研究. 
    代码如下:Option Explicit
    '注:要引用MIcrosoft Office Document Imageing 11.0 type
    '这个组件是安了office 2003 以后才有
    Private Sub Command1_Click()
    TestOCR
    End SubSub TestOCR()  Dim miDoc As MODI.Document
      
      Set miDoc = New MODI.Document
      Dim OutText As MODI.Layout
      
      miDoc.Create "C:\1.tif" '打开文档
      
      Screen.MousePointer = vbHourglass
      miDoc.OCR miLANG_CHINESE_SIMPLIFIED '语言为简体中文
      'miDoc.OCR
      Set OutText = miDoc.Images(0).Layout '识别第一页的数据
      msgbox "识别出为是字符如下:" & vbcrlf &  OutText.Text
      Screen.MousePointer = vbDefault
      miDoc.Close False
      Set OutText = Nothing
      Set miDoc = NothingEnd Sub------------------------
    哈哈,拿分来吧!! :)
      

  5.   

    到网上可以搜到有些OCR引擎的
      

  6.   

    如果是动网论坛的验证图片,我有研究。
    看看这个程序,自动注册、自动登录,然后搜索注册用户邮件地址列表。
    http://www.foyi.cn/bbs/UploadFile/2005-3/20053181803598.rar
    建议下载后先行杀毒在打开!