如何得到网页中的验证码图片？急！！！

[CHQSOFT]

目的是通过WebBrowser保存 打开页面上的验证码图片

1.我通过WebBrowser获得当前页，得到网页上的验证码，但是这个验证码我保存不了，于是我想到用 Inet 创建数据流 得到 该验证码 但是两次调用 验证码页面得到的验证码不相同！
2。随后我调用WebBrowser.ExecWB OLECMDID_SAVEAS (4,1) 保存数据可是老是出现那个讨厌的对话框，我是不想让显示对话框，而直接按照我付给的文件名称保存。
请问那位大虾能够得到WebBrowser上的验证码或者是让 WebBrowser和Inet的访问产生验证码的session是相同的或者WebBrowser.ExecWB OLECMDID_SAVEAS (4,1)不显示对话框。

谢谢了！

[CHQSOFT]

怎么没有高手解答呀 高手在那里！

[Alzzl]

不能用2次调用的 否则就变了，
我有源代码，一个自动获取并识别验证码的程序 要的给我发信 [e-mail]

[蒋晟]

http://support.microsoft.com/default.aspx?scid=kb;EN-US;Q293125

[CHQSOFT]

谢谢！ 我正在用jiangsheng提供的资料试一试

[CHQSOFT]

最好有vb的码 有没有呀！

[CHQSOFT]

下面是我根据帮助写的代码但是该文件还是获得不了各位看看怎么会事？
sub search()
Dim webdoc, img
Set webdoc = WebBrowser1.document
Set img = WebBrowser1.document.images
For i = 0 To img.length - 1
Debug.Print i & "//" & img(i).Height & ":" & img(i).Width
getpic (i)
Next
end sub

Public Sub getpic(sImgID As Integer)
Dim doc1 As Object
Set doc1 = WebBrowser1.document
Dim ctrlRange As Object
Set ctrlRange = doc1.body.createControlRange
ctrlRange.Add doc1.images(sImgID) '//选择区域
ctrlRange.execCommand "saveas", True, App.Path & "\" & i & ".bmp" '//保存图片
End Sub

问题是 为什么该图片获得不了。

[笨笨兔兔兔兔兔]

Set img = WebBrowser1.document.getElementsByTagName("img")

这么写在dom情况下好看点儿

Dim doc1 As Object
Set doc1 = WebBrowser1.document
Dim ctrlRange As Object
Set ctrlRange = doc1.body.createControlRange
ctrlRange.Add doc1.images(sImgID) '//选择区域
ctrlRange.execCommand "saveas", True, App.Path & "\" & i & ".bmp" '//保存图片
我晕.....怎么这么写啊

其实把img.src给过来,再用socket或者是inet就可以把图片保存下来....

[笨笨兔兔兔兔兔]

这种东西不难做的

[CHQSOFT]

回复liuxiaoyi666

我也用INET 和 SOCKET 取得该文件并且保存到本地 但是验证码的地址是活动的 每一次触发得到图片是不相同，所以才想出这个办法，调用ctrlRange.execCommand 功能来实现

继续讨论！

[CHQSOFT]

得到图片并不难，要得到打开页面上面的验证码图片就有难度 谢谢参与！继续讨论！

[CHQSOFT]

好了 我的问题也要结贴了，问题我找到了，我的代码没有问题，只不过出现了一些小问题，作了小小的改动就能得到验证码的图片。首先感谢各位的支持，我还会来CSDN和大家一起解决问题，探讨问题。把我所知道的奉献给大家。呵呵 毕竟我做了8年程序员了，但是最近才涉及网络编程谢谢各位的支持！
我的50分送给谁呢 jiangsheng(蒋晟）先生 我相信他一定是知道该问题的解决办法，但是没有直接告诉我 给了我思考的时间 也让我了解了DHTML 编程 怎么赠送点数呀！

[Goodreams]

CHQSOFT()

遇到和你一样的问题，请教你最后是怎么解决的啊？