410521a 发表于 2010-6-11 06:59:19

[已解决]用阿福的OCR 登陆网站验证码怎么老是错误？

本帖最后由 410521a 于 2010-6-11 22:48 编辑

#include <IE.au3>
#include <Ocr.au3>
#Include <Clipboard.au3>
#Include <ScreenCapture.au3>

Dim $i=0
$oIE = _IECreate ("http://www.zzwljc.com:8080/login.aspx")
$sHTML = _IEBodyReadHTML ($oIE)

$User = _IEGetObjByName($oIE,"username")
$User.value = "autoittest"

$PW = _IEGetObjByName($oIE,"usepwd")
$PW.value = "autoittest"

$oImgs = _IEImgGetCollection ($oIE)
For $oImg In $oImgs
        $i+=1
        If $oImg.src="http://www.zzwljc.com:8080/yzm.aspx" Then
          $oPic = $oIE.Document.body.createControlRange()
          $oPic.Add($oImg)
      $oPic.execCommand("Copy")
      $img = ClipGet()
         _ClipBoard_Open (0)
         Local $hMemory = _ClipBoard_GetDataEx ($CF_BITMAP)
      _ClipBoard_Close ()
      FileDelete(@ScriptDir & "\yzm.bmp")
       _ScreenCapture_SaveImage (@ScriptDir & "\yzm.bmp", $hMemory)
    EndIf
Next

$a_Image = myReadImageToArray(@ScriptDir & "\yzm.bmp", False, 1, 0x777777)
$s_code_string = myArrarOCR(@ScriptDir&"\CodeFont.txt", $a_Image, 1, 4, 8, "", 5, 1, 4, 5)

$Code = _IEGetObjByName($oIE,"yzm_tbox")
$Code.value = $s_code_string
MsgBox(0,"",$s_code_string)

410521a 发表于 2010-6-11 11:26:05

哎`` 不用审核了`` 但没人出来帮帮忙吗？

jhwl 发表于 2010-6-11 15:46:16

学会调试，先下载到本地，找到图片的正确的格式，调试读出
以达到最佳的效果，告戒：遇事先自己琢磨，给自己思考的机会……

410521a 发表于 2010-6-11 20:19:54

....能提示下吗？

410521a 发表于 2010-6-11 22:11:57

本帖最后由 410521a 于 2010-6-11 22:17 编辑

myArrarOCR(@ScriptDir&"\CodeFont.txt", $a_Image, 1, 4, 8, "", 5, 1, 4, 5)

Func myArrarOCR($s_code_file, $func_array, $Ocr, $CodeNum, $CodeWidth, $CurrValue="", $func_left=0, $func_mid=0, $func_top=0, $func_bottom=0)
1,       4,       8,       "",    5,    1,         4,         5)
识别字数   宽度    ?      左    中   上      下       ?

这都什么意思呀

410521a 发表于 2010-6-11 22:47:40

阿福OCR验证码识别引擎GUI1.0用这个搞定了

410521a 发表于 2010-6-11 22:49:31

#include <Ocr.au3>

这个不用编译吗？

lynfr8 发表于 2010-6-12 00:20:07

myArrarOCR(@ScriptDir&"\CodeFont.txt", $a_Image, 1, 4, 8, "", 5, 1, 4, 5)

Func myArrarOCR($s_code ...
410521a 发表于 2010-6-11 22:11 http://www.autoitx.com/images/common/back.gif




410521a 发表于 2010-6-12 02:26:11

谢谢`` 不知道那说的是像素还是什么`` 我对像素呀`` 平方啊` 都不懂`

lynfr8 发表于 2010-6-12 18:02:08

谢谢`` 不知道那说的是像素还是什么`` 我对像素呀`` 平方啊` 都不懂`
410521a 发表于 2010-6-12 02:26 http://www.autoitx.com/images/common/back.gif


    不懂就网上google

sdwd_lhq 发表于 2010-6-27 10:19:35

学习了，我需要

Ziya 发表于 2010-6-28 10:45:01

#include <Ocr.au3>

这个是哪儿来的...能否提供以下?

lynfr8 发表于 2010-6-28 12:59:57

#include

这个是哪儿来的...能否提供以下?
Ziya 发表于 2010-6-28 10:45 http://www.autoitx.com/images/common/back.gif


    论坛搜索“阿福”

tankwu 发表于 2010-9-9 17:46:50

我的权限不够啊，lynfr8能给发一个吗？

kwyking 发表于 2010-12-10 11:01:35

下个试试。
页: [1] 2
查看完整版本: [已解决]用阿福的OCR 登陆网站验证码怎么老是错误？