Question

请教VB下用webbrowser控件截取一个网页中指定标签内的所有内容并且将其写到自己的本地文件当中的方法

我想用VB下的webbrowser控件截取一个网页中指定标签内的所有内容并且将其写到自己的本地文件当中，并且如果其中含有图片<img>就将其一块下载到本地中并且更新这个图片的src为本地的图片地址。请大家指教

Answer 1

Private Sub webBs_DocumentComplete(ByVal pDisp As Object, URL As Variant)
On Error Resume Next
If Not (pDisp Is webBs.Object) Then Exit Sub
Dim docm As HTMLDocument
Set docm = webBs.Document
Dim aa As HTMLLinkElement
For Each aa In docm.getElementsByTagName("A") '.links，其他的替换掉“A”，链接可以直接用.links
debug.print aa.outerHTML
'你还可以检测其中有没有IMG（用for each obj1 in aa.all），如果有再下载
next
下载图片，并存储
dim b() as byte
b() = Inet1.OpenURL(strURL, icByteArray)
Open strPath & strFileName & strExt For Binary Access Write As #1
Put #1, , b()
Close #1
至于替换地址，只要把img.scr=“……”改掉就可以了

Answer 2

下载地址可以用正则判断内容获取到
但是你要从中替换图片的话 webbrowser是无法做到的
有2个方法可以实现
1 有个什么HTML的流什么的可以
2 写个DLL 弄个inline hook
个人倾向于第二种