当前位置:首页 > VB

VB获取WebBroswer里的验证码

canca15年前 (2011-10-17)VB558
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Dim X, CtrlRange
Dim ii As Long
ii = 0
For Each X In WebBrowser1.Document.All
If X.tagname = "IMG" Then
If LCase(X.src) = "http://www.monternet.com/authcode" Then
Set CtrlRange = WebBrowser1.Document.body.createControlRange()
CtrlRange.Add (X)
CtrlRange.execCommand ("Copy") '获取验证码
Image1.Picture = Clipboard.GetData '在Image1控件上显示
Exit Sub
End If
ii = ii + 1
End If
Next
End Sub
 
调用页面Javascript方法:
方法1:
webbrowser.document.getElementById("content").onmousedown();

方法2:
webbrowser.document.getElementsByName("content")(0).onmousedown();

方法3:
WebBrowser1.Document.parentWindow.execScript "clearInitContent();"

扫描二维码推送至手机访问。

版权声明:本文由Ant.Master's Blog发布,如需转载请注明出处。

本文链接:https://iant.work/post/207.html

标签: VB
分享给朋友:

“VB获取WebBroswer里的验证码” 的相关文章

在VB中实现MD5算法

——————————————————————————————————————Option Explicit Dim w1 As String, w2 As String, w3 As String, w4 As String Function MD5F(ByVal tempstr As String…

VB小作品--成语大全

       两三年没用过VB开发过啦!今天我用VB开发了个《成语大全》感觉还OK吧!本来想用.Net开发的,它那个框架这么吓人,弄这个小东西,有点大材小用了,用JAVA开发?使用的时候装个JDK也是挺麻烦的。…

祝各位圣诞快乐

昨晚用VB弄的圣诞小礼物。呵呵...一时兴致到了... 下载:http://exs.mail.qq.com/cgi-bin/downloadfilepart?svrid=16&fid=2535de5c7dc3a850b2ad4e367a1c9e48ec2d9e8b55d811c1&f…

VB BHO

以前一直不知道有BHO这个名字,但一直对IE中的"加载项"编程念念不忘. 前不久一网友让我做一个小程序,功能就是替换网页中指定的内容,但是不启动软件,直接用IE看的话就是原文.感觉有点意思的,因为不知道原理,网上找了一下BHO这...…

Browser Helper Objects

一、简介 有时,你可能需要一个定制版本的浏览器。在这种情况下,你可以自由地把一些新颖但又不标准的特征增加到一个浏览器上。结果,你最终有的只是一个新但不标准的浏览器。Web浏览器控件只是浏览器的分析引擎。...…

发表评论

访客

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