level 1

第一步,申明一个变量,用来保存这个的索引,你也可以在FOR循环里搞定保存图片的事,就是看上去有点乱而已Dim hao
第二步,遍历网页全部
For i As Integer = 0 To WebBrowser1.Document.All.Count - 1
'获得当前网页对象的源代码
Dim a = WebBrowser1.Document.All(i).OuterHtml
'如果源代码存在border字符,并且长度小于200,就是
正确的
了
If InStr(a, "border") <> 0 And Len(a) < 200 Then
'调试输出
Debug.Print(WebBrowser1.Document.All(i).OuterHtml)
'序列号赋值
hao = i
’这里可以exit for
End If
Next
然后关键的核心代码来了
'随便定义一个变量
Dim CtrlRange As Object
’挂钩网页
CtrlRange = WebBrowser1.Document.Body.DomElement.createControlRange()
‘注意这个hao变量,如果你不知道是什么,看上面
CtrlRange.Add(WebBrowser1.Document.DomDocument.All(hao))
’复制到剪切板
CtrlRange.execCommand("Copy")
‘从剪切板读取数据,如果剪切板是图片类型
If Clipboard.ContainsData(DataFormats.Bitmap) Then
’图片框显示文件
PictureBox1.Image = Clipboard.GetData(DataFormats.Bitmap)
‘图片框的文本保存。。。
PictureBox1.Image.Save("C:\1.jpg", System.Drawing.Imaging.ImageFormat.Jpeg)
End If
