VB获取网页中的验证码

小歆12年前软件源码02717
VB获取网页中的验证码

函数代码:

Public Function GetImg(WebBrowser, Img, sxz)
'参数
'WebBrowser:等获取验证码网页所在的WebBrowser控件
'Img:显示验证码的Image控件
'sxz:网页中验证码相应属性的属性值
  Dim CtrlRange, x
  For Each x In WebBrowser.Document.All
    If UCase(x.tagName) = "IMG" Then
      'x.src为验证码图片的属性,也可是其他属性 如 x.onload等
      If InStr(x.src, sxz) > 0 Then
        Set CtrlRange = WebBrowser.Document.body.createControlRange()
        CtrlRange.Add (x)
        CtrlRange.execCommand ("Copy")
        Debug.Print "Copy"
        Img.Picture = Clipboard.GetData
      End If
    End If
  Next
End Function


函数调用:

'如获取网页http://www.pceggs.com/login.aspx中的验证码图片代码如下:
'<IMG id=valiCode style="CURSOR: pointer" alt=验证码 src="/VerifyCode_Login.aspx" border=0>
'获取验证码函数调用如下:
Call GetImg(Form1.WebBrowser1, Form1.Image1, "VerifyCode_Login.aspx")

相关文章

PCB工程英文单词

单词 附件:attached 样品:sample 承认:approval 答复:answer;reply 规格:...

小歆专用挂机锁V1.0正式版00.jpg

[小歆][专用挂机锁][V1.0][正式版][2012.10.28]

本软件已升级至1.5,http://www.xxgzs.org/forum.php?mod=viewthread&tid=86    **************...

easybcd.jpg.thumb.jpg

CDlinux硬盘安装,试验有效!

win7 CDlinux 硬盘安装; 软件:EasyBCD,CDlinux.iso 解压或提取CDlinux文件夹(共一个文件夹)至启动分区(如C:\) 打开EasyBCD 点左边的"ADD N...

红色警戒2修改大师V2.80正式版

红色警戒2修改大师V2.80正式版

今天,我给大家分享一个软件,是关于红色警戒破解的,我已经用它很久了,而它与其他人的辅助不一样,功能更加全面,操作更简单,尤其是它的那个可以联机用的功能,废话不多说,直接上图!7 ~: K: v6 k+...

[微软官方]USB2.0提速补丁(x86x64) 官方版

[微软官方]USB2.0提速补丁(x86x64) 官方版

免费为USB2.0设备提速补丁USB2.0提速补丁(x86x64) 官方版 USB2.0提速补丁是一款HotFix热修复补丁,并没有作为常规补丁随系统自动更新,所以我们可以自己来手动下载安装。...

QQ空间登陆工具V6.0.jpg

[小歆][QQ空间登录工具][V6.0][公测版][2012.05.26]

                           ...

发表评论    

◎欢迎参与讨论,请在这里发表您的看法、交流您的观点。