取网页验证码方案之一(VB6.0)
当前位置:点晴教程→知识管理交流
→『 技术文档交流 』
这种方案需要目标验证码标签指定了ID属性.
另,简单验证码识别代码在此下载:../article.asp?id=112 代码如下: 复制内容到剪贴板 程序代码 '窗体添加一个WebBrowser,一个CommandButton,一个PictureBox Option Explicit Private Sub Command1_Click() WebBrowser1.Navigate "../login.asp" 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 该文章在 2013/12/11 15:34:05 编辑过 |
关键字查询
相关文章
正在查询... |