VB获取网页中的验证码

小歆12年前软件源码02519
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")

相关文章

VB字符串函数大全

Abs(number) 返回绝对值。 Array(arglist) 创建一个数组。 Asc(string) 返回字符串第一个字符的ANSI码。 Atn(number) 返回反...

VB(十六进制)颜色代码与RGB互转工具V2.0(附屏幕取色工具)06.jpg

【VB源码】十六进制颜色代码与RGB互转工具

VB(十六进制)颜色代码与RGB互转工具     功能介绍:     1.《VB(十六进制)颜色代码与RGB互转工具》是由《VB颜色代...

网络理财收益查询工具2.1.jpg

[小歆][网络理财收益查询工具][V2.1][2014.2.14]

网络理财收益查询工具V2.1 正式版 介绍:     网络理财收益查询工具原名为余额宝收...

VB URL编码函数

VB UTF-8 URL编码函数: Public Function UTF8_URLEncoding(szInput)  ...

VB获取本机公网IP源码

Function HttpGet(url) With CreateObject("Msxml2.ServerXMLHTTP") .open "GET", url, Fa...

VB操作INI文件方案

VB读写ini文件(1) 自从注册表诞生以来ini文件正在逐渐失去其市场占有率,然而基于ini文件的独立性,致使其还没有到达退出历史舞台的地步,很多应用程序的初始化和一些界面参数的设置仍然很愿意...

发表评论    

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