奋斗了一晚上终于搞定了新浪微博的验证码识别

alice607 · 发表于 2012-4-4 22:06:07

牛X

happyplace · 发表于 2012-4-5 16:20:35

= =万恶的验证码

wsfda · 发表于 2012-4-5 17:20:59

应该不是OCR，期待楼主的分享，说说原理也行

user3000 · 发表于 2012-4-5 18:32:30

感觉给楼主糊弄了N天. 期待楼主早日出点'上/下文'

sango · 发表于 2012-4-5 19:15:28

楼主好像用“人工智能”识别啊

user3000 · 发表于 2012-4-5 20:26:03

回复 21# sango

如果只有 5楼的代码, 无疑是这样的!

bee2008 · 发表于 2012-5-28 03:17:43

没有下文了码？

ljxu · 发表于 2012-6-27 14:26:40

太监。。。。。。。。

shijimin1005 · 发表于 2012-7-30 10:39:01

支持一下,学习

zisedefeng · 发表于 2012-7-30 11:48:04

喜欢。。。。感谢。。学习。。。

vr4u · 发表于 2012-7-31 12:59:01

方法可嘉，值得学习

loveauto · 发表于 2012-9-9 13:35:27

学习了，正找下载的方式，

txen548 · 发表于 2012-12-16 14:00:22

牛x啊恭喜恭喜！

huketing · 发表于 2012-12-16 17:41:23

好东西啊 ~~~支持支持支持支持支持

huketing · 发表于 2012-12-16 17:42:23

#AutoIt3Wrapper_UseUpx=n
#include <IE.au3>
#include <Clipboard.au3>
#include <ScreenCapture.au3>
$url = "http://service.weibo.com/reg/regindex.php?appsrc=39qqvX&backurl=&diy="
GetPic($url)
Func GetPic($opicURL)
      $oIE = _IECreate($opicURL, 0, 1, 1)
      $i = 1
      If FileExists(@TempDir & "\1") = 0 Then
            DirCreate(@TempDir & "\1")
      Else
            DirRemove(@TempDir & "\1", 1)
            DirCreate(@TempDir & "\1")
      EndIf
      Do
            Sleep(600)
            $Ele = _IEGetObjById($oIE, "check_img")
            $oPic = $oIE.Document.body.createControlRange()
            $oPic.Add($Ele)
            $oPic.Select()
            $oPic.execCommand("Copy");复制到剪贴板
            _ClipBoard_Open(0);从剪切板获取图片数据
            $iVPics = _ClipBoard_GetDataEx($CF_BITMAP)
            _ClipBoard_Close()
            $pic_name = "VPics" & $i & ".bmp"
            _ScreenCapture_SaveImage(@TempDir & "\1\" & $pic_name, $iVPics)
            $Ele = _IEGetObjById($oIE, "refreshCode") ;
            $Ele.click
            $i += 1
      Until $i = 500
      _IELoadWait($oIE)
EndFunc ;==>GetPic

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