vb 网页验证码图片如何获得

Question

验证码：<input type="text" name="codestr" id="codestr" size="4" class="input0" tabindex="3" />&nbsp;<span id="imgid1"></span><script language="javascript" type="text/javascript">
var Dv_CodeFile1 = "Dv_GetCode.asp";
document.getElementById("imgid1").innerHTML = '<img src="'+Dv_CodeFile1+'?t='+Math.random()+'" alt="点击刷新验证码" style="cursor:pointer;border:0;vertical-align:top;" onclick="this.src=\''+Dv_CodeFile1+'?t=\'+Math.random()" />'
</script>
只要求获得图片用vb显示出来，不要求识别啊。
高手快点出现吧。

Answer 1

Dim strErr As String
    strErr = creadImg("home/regimage.php?key=", App.Path & "\img.bmp")Public Function creadImg(ByVal strSrc As String, ByVal strSavePath As String) As String
On Error GoTo myErr:
    Dim X
    Dim strImg As String
    strImg = strSrc
    creadImg = ""
    For Each X In WebBrowser1.Document.All
        If X.tagName = "IMG" Then
            If InStr(X.src, strImg) > 0 Then
                Set ctrlRange = WebBrowser1.Document.body.createControlRange()
                ctrlRange.Add (X)
                Clipboard.Clear
                Sleep 5
                DoEvents
                ctrlRange.execCommand ("Copy")
                Sleep 5
                DoEvents
                SavePicture Clipboard.GetData, strSavePath
                Sleep 5
                DoEvents
                Exit For
            End If
        End If
        DoEvents
    Next
    DoEvents
    Exit Function
myErr:
    creadImg = "图片下载错误：" & Err.Description
End Function'借助 WebBrowser 控件