Question

VB 6.0 怎么截取网页中验证码图片

Answer 1

vb6.0代码为:
Dim vtag
Dim CtrlRange
For Each vtag In WebBrowser1.Document.All
If vtag.tagName = "IMG" Then
Set CtrlRange = WebBrowser1.Document.body.createControlRange()
CtrlRange.Add (vtag)
CtrlRange.execCommand ("Copy")
Set Image1.Picture = Clipboard.GetData
End If
Next
用到的控件有WebBrowser,Image

vb6.0后的代码为:
Dim vtag as Object
Dim CtrlRange as Object
For Each vtag In WebBrowser1.Document.DomDocument.All
If vtag.tagName = "IMG" Then
CtrlRange = WebBrowser1.Document.DomDocument.body.createControlRange()
CtrlRange.Add (vtag)
CtrlRange.execCommand ("Copy")
PictureBox1.Image = My.Computer.Clipboard.GetImage()
End If
Next
用到的控件有WebBrowser,PictureBox

'原理都是先找到图片位置再进行复制粘贴

Answer 2

用截图工具