吾爱破解 - 52pojie.cn

 找回密码
 注册[Register]

QQ登录

只需一步,快速开始

查看: 7763|回复: 9
收起左侧

[其他转载] 读取网页验证码

[复制链接]
mengl520 发表于 2011-9-13 00:02
Option Explicit
Private Sub Command1_Click()
     WebBrowser1.Navigate "http://www.baidu.com/"
End Sub
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
    If URL <> "" Then
        Dim Img As Object, CR As Object
            
        Set Img = WebBrowser1.Document.getElementById("vcodeImg")   '根据验证码的ID取得这个对象
        Set CR = WebBrowser1.Document.body.createControlRange()     '设置选区
            
        CR.Add Img                                                  '添加验证码图片对象到选区
        CR.execCommand ("Copy")                                     '复制
        Set Picture1.Picture = Clipboard.GetData()                  '粘贴过去
    End If
End Sub

发帖前要善用论坛搜索功能,那里可能会有你要找的答案或者已经有人发布过相同内容了,请勿重复发帖。

liujiu780 发表于 2011-10-21 12:37
http://u.115.com/file/difn5mj6
y8160000 发表于 2011-9-24 17:19
有没有一个完整的例子!如果登陆网站就自动登陆的
yikuaidao 发表于 2011-9-13 07:22
a8427127 发表于 2011-9-13 00:59
这个怎么用哦
    会的朋友说说
心跳在左边 发表于 2011-10-21 12:38
学习下~~~~
cdbcdb001 发表于 2011-10-24 15:17
不懂不懂不懂
jokin 发表于 2012-7-18 09:33
学习来了。
本爷叫你呐 发表于 2014-8-3 11:40
比较想知道 QQ空间的验证码怎么获取
1138881806 发表于 2014-8-3 12:11
学习一下
您需要登录后才可以回帖 登录 | 注册[Register]

本版积分规则

返回列表

RSS订阅|小黑屋|处罚记录|联系我们|吾爱破解 - LCG - LSG ( 京ICP备16042023号 | 京公网安备 11010502030087号 )

GMT+8, 2024-11-15 18:46

Powered by Discuz!

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表