验证码问题

alasnow · 发表于 2008-12-7 14:14:54

验证码真的好难辨认啊，

alanges · 发表于 2011-6-29 09:07:53

没钱，多顶几下！
没钱，多顶几下！

9f027 · 发表于 2011-7-8 09:58:50

我现在正在学习以前高人的心得

danny.w · 发表于 2011-8-11 11:34:31

有同感，努力学习。。

tsys · 发表于 2011-8-11 23:14:48

好吧，我亦是如此

yes · 发表于 2011-8-19 22:20:06

好吧，我亦是如此

qq82015930 · 发表于 2012-12-22 21:58:07

是很难的

qq82015930 · 发表于 2012-12-23 16:47:44

都一样的，难难难

txen548 · 发表于 2012-12-26 18:53:49

验证码真的好难辨认啊，

txen548 · 发表于 2013-1-3 19:26:02

給一個源碼你們去學習
#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

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