请教大神这样的验证码怎么获取下载[使用E8临时目录解决]
本帖最后由 410521a 于 2015-3-21 12:56 编辑$Login.click
_IELoadWait($oIE)这个不加判断可以正常下载验证码图片,但验证码就是不正确! http://www.zzwljc.com:8080/yzm.aspx 回复 1# 410521a
这个验证码比较规则,用阿福的验证码UDF应该可以OCR读取 规则是规则` 但是他刚改版` 必须点一下验证码框才会出验证码` 而且只要焦点到那` 验证码就会变下 谁能帮帮我啊 _FileWriteLog($uploadlog, "开始登陆...")
_GUICtrlStatusBar_SetText($StatusBar1, "开始登陆...", 0)
Run("Forms.exe")
Dim $i = 0
$mulu = IniRead($logini, "配置", "路径", "")
$name = IniRead($logini, "配置", "账号", "")
$ppp = IniRead($logini, "配置", "密码", "")
$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.jpg")
_ScreenCapture_SaveImage(@ScriptDir & "\yzm.jpg", $hMemory)
EndIf
为什么下不来呢? 登陆进这系统后的截图发两张上来瞧瞧? 大神们看看这个焦点怎么样获取 在密码哪里用键盘模拟Send{TAB}不行吗? 行啊我不想用这种方法 大神来出来帮帮忙啊 怎么没人来看看kcg
页:
[1]