Question

VB 获取网页中的验证码

<div id="dCaptcha">

<p class="margin-top-10">请输入验证码:</p>
<p>
<img id="captchaImg" src="http://api.open.uc.cn/cas/commonjson/captcha?captchaId=697e3b41-4baf-42b6-9d03-4de95c9da438&uc_param_str=nieisivefrpfbimilaprligiwiut" border="0" noselect align="absmiddle" alt="验证码" />
<input type="submit" name="captchaButtonVal" value="换一张" class="captcha" />
</p>
<p>
<input size="4" maxlength="4" type="text" name="captchaVal" id="captchaVal" class="form-input" />
</p>
这是验证码的网页源代码、要把验证码弄到IMAGE上、《Web1.Document.body.createControlRange()
》这种代码我编译时错的。。所以来求教下具体方法和代码、满意的绝对给分、

Answer 1

小左,我真的郁闷哈

我不是给你说了嘛?

Dim X
Dim CtrlRange
For Each X In Web1.Document.All
If X.tagName = "IMG" Then
Web1.Stop
Set CtrlRange = Web1.Document.body.createControlRange()
CtrlRange.Add (X)
CtrlRange.execCommand ("Copy")
Set Image1.Picture = Clipboard.GetData
End If
Next

Web1就是WebBrowser控件,Image1就是IMAGE控件啊?

等WebBrowser控件网页加载完毕就用上面的代码获得验证码图片了

保存本地更简单

SavePicture Image1.Picture, "c:\hxheiyao.bmp"

真搞不懂你!
是否可以解决您的问题？