编程

记录一下:取网页验证码方案之一(VB6.0)

作者:admin 日期:2009-05-01

字体大小: 小中大

这种方案需要目标验证码标签指定了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