呵呵.想搞类似QQ军刀的东西吗?

[quote]如果你已经通过像WebBrowser之类的控件访问QQ相关页面，在此页面上有验证码图片。如果你是想获得这个图片，可以这样.但你得知道图片标签的id等独一无二的特征。
引用Microsoft HTML Object Library
添加WebBrowser控件
Private Sub Command2_Click()
Dim doc As HTMLDocument
Dim body As HTMLBody
Dim range As IHTMLControlRange
Dim img As IHTMLControlElement
'webBrowser名为web1
Set doc = Web1.Document
Set body = doc.body
Set range = body.createControlRange     'web1必须是可见的
Set img = doc.images("imgVerify")       '验证码图片的id为imgVerify
Clipboard.Clear
range.Add img
range.execCommand ("copy")
SavePicture Clipboard.GetData, "E:\a.jpg"
Picture1.Picture = LoadPicture("e:\a.jpg")
Set img = Nothing
Set range = Nothing
Set body = Nothing
Set doc = Nothing

End Sub

Private Sub Form_Load()
Web1.Navigate "http://super.qq.com/LoginQQ.jsp"
End Sub
[/quote]

不用保存下来吧，，
这样岂不更省事

Private Sub Command2_Click()
Dim range As Object 
Set range = WebBrowser1.object.Document.body.createControlRange
range.Add WebBrowser1.object.Document.getElementById("imgVerify") 
range.execCommand ("copy")
Picture1 = Clipboard.GetData
Set range = Nothing
End Sub

Private Sub Form_Load()
Web1.Navigate "http://super.qq.com/LoginQQ.jsp"
End Sub

[quote]不用保存下来吧，，
这样岂不更省事
Private Sub Command2_Click()
Dim range As Object 
Set range = WebBrowser1.object.Document.body.createControlRange
range.Add WebBrowser1.object.Document.getElementById("imgVerify") 
range.execCommand ("copy")
Picture1 = Clipboard.GetData
Set range = Nothing
End Sub

Private Sub Form_Load()
Web1.Navigate "http://super.qq.com/LoginQQ.jsp"
End Sub[/quote]

嗯，不错！

[url=http://bbs.pfan.cn/downfile.asp?fileid=4151]看看吧!~可能有用.[/url]

这个是优化后的代码，更精简。

Dim O As Object
Set O = WebBrowser1.Document.body.createControlRange()
Call O.Add(WebBrowser1.Document.All("vfcode"))
Call O.execCommand("Copy")
Set Picture1.Picture = Clipboard.GetData

无意义的精简

嗯！是无意义的精简。不过我是在 www.vbforums.com 论坛上看到的。

思路很好~只是代码有些出入