自动填写验证码问题

lixiang · 发表于 2009-6-24 16:21:28

这个…基本…很难！

a000000 · 发表于 2009-6-25 12:06:22

继续等待高手出现

bob · 发表于 2009-7-1 11:28:04

本帖最后由 bob 于 2009-7-1 11:32 编辑

今天无聊，帮你把验证码问题也给解决了吧


#include <IE.au3>
#include <OCR.au3>

Dim $i=0

$oIE = _IECreate ("http://www.10000ka.com/site2/default.asp",0,1,0)
sleep(3000) ;网站有几个图片始终无法加载完毕，只能用这个等待了！

$oImgs = _IEImgGetCollection ($oIE)
For $oImg In $oImgs
        $i+=1
        If $oImg.src="http://www.10000ka.com/numcode.asp" Then
           $oPic = $oIE.Document.body.createControlRange()
           $oPic.Add($oImg)
           $oPic.execCommand("Copy")
           $img = ClipGet()
        EndIf
Next

$a_Image = myReadImageToArray($img, True, 1, 0xeeeeee)
$s_code_string = myArrarOCR(@ScriptDir&"\CodeFont.txt", $a_Image, 1, 4, 5, "", 0, 5, 0, 0)
MsgBox(0, "识别结果", $s_code_string)

CodeFont.txt 和 OCR.au3 附件下载

bob · 发表于 2009-7-1 11:33:50

密码矩阵就自己解决吧，源代码中就可看到，对比下就行了！

autoit3CN · 发表于 2009-7-1 12:20:00

用正则就可以提取密码矩形了

ytxldc · 发表于 2009-7-1 13:32:03

看不太懂，我也来试一下

ytxldc · 发表于 2009-7-1 13:36:26

看不太懂，我也来试一下

cmirt · 发表于 2009-7-1 19:17:04

不错啊,值得学习!

cmirt · 发表于 2009-7-1 19:17:22

不错啊,值得学习!

foxdcj · 发表于 2009-7-29 11:35:21

全是高手啊,太好了

free168 · 发表于 2009-8-13 18:42:33

感觉好难~~~啊

psp7456 · 发表于 2009-8-21 20:34:25

不错，来学习了！！！

wyd301 · 发表于 2009-8-22 12:39:39

还收费啊，黑！

vfhptuu · 发表于 2009-9-1 21:47:41

晕。没钱下不到啊。

vfhptuu · 发表于 2009-9-1 21:48:23

想学习下识别验证码。这个很有用

		自动登录	找回密码
密码			加入

[IE类操作] 自动填写验证码问题

本帖子中包含更多资源

评分

本帖子中包含更多资源