关于在VB中GetPrivateProfileString返回字符串长度及处理的一些问题 »

« IDA v5.5&5.6 SDK

前些天写个小工具时遇到了这个获取验证码的问题[此验证码图片地址非常见的img、jpg或bmp结尾]，在朋友的帮助下解决了，在这小结下：

'获取网页中的验证码图片到图片框中
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant) 'DocumentComplete Fires when a document has been completely loaded and initialized.
                                                                                'pDisp: Object that specifies the top-level or frame WebBrowser object corresponding to the event.
On Error Resume Next
    Dim objDoc As Object, objImage As Object '定义两个对象
    If pDisp Is WebBrowser1.object Then 'Is Operator: Used to compare two object reference variables.
        'Document[属性]------Retrieves the automation object of the active document, if any. When the active document is an HTML page, this property provides access to the contents of the HTML Document Object Model (DOM). Specifically, it returns an HTMLDocument object reference.
        'all[集合]------Returns a reference to the collection of elements contained by the object.
        'tags[方法]------Retrieves a collection of objects that have the specified HTML tag name.
        For Each objImage In WebBrowser1.Document.All.tags("IMG")
            If InStr(objImage.src, "xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx") > 0 Then        'xxxxxxxxxxx为验证码图片的地址
                'body[对象]------Specifies the beginning and end of the document body.
                'createControlRange[方法]------Creates a controlRange collection of nontext elements.
                Set objDoc = WebBrowser1.Document.Body.CreateControlRange()
                'controlRange Collection------A collection of elements returned by the createControlRange or createRange method
                'add[方法]------Adds an element to the areas, controlRange, or options collection.
                'execCommand[方法]------Executes a command on the current document, current selection, or the given range.
                objDoc.Add objImage
                objDoc.execCommand "Copy"
                Image1.Picture = Clipboard.GetData
            End If
        Next
    End If
End Sub

代码中我加了很多注释，方便大家理解。欲了解更多，请参考MSDN。