Question

VB 读取WebBrowser网页，里面多框架文字无法取到

VB 读取WebBrowser里面的网页内容，无法读得出来源码。但是WebBrowser是可以显示出来的各处嵌入框架文字的。是多个框架组合成一个网页的
。网页代码如图片。我就想读出刷红色的那几个文字而已。请教代码？

Answer 1

你的这个页面，因为 有 iframe 框架，所以直接获取不到的

可以试下以下代码：

Private Sub Command1_Click()
    '// 获取 frames 框架代三
    Dim str As String
    str = WebBrowser1.Document.frames(0).Document.documentElement.outerHTML '//frames(0) 看你的原代码中有多少个frames而定，也可以遍历一轮
    
    '//复制代码到 剪切板 ，以便可以粘贴查看是否正确
    VB.Clipboard.Clear
    VB.Clipboard.SetText str
    '//弹一下看看
    MsgBox str
End Sub

直接用webBrowser获取到的内容是很有限的，因为很多网页内容是由

js生成的html代码， 对于js或frame框架的代码，直接是获取不到，

我通常做法是：

1. 利用webBrowser向dom中head插入一行js代码<script src="xxx.js"></script>

2. 再在xxx.js里面利用js 就可以随心所欲获取代码了，

3. 利用js在dom中生成个多行输入框，将获取的代码放这里

4. vb再从这个多行输入框内获取内容

这个得有一定js基础才行

追问

您好，代码试了还是获取不到，或者，那些文字在webBrowser界面有显示出来，或者有办法直接复制webBrowser界面框架的文字出来吗？就和双击文字选中复制那种功能一样？

追答

有没有网址过来测试过，我这边试过可以获取得到frame里面的内容

追问

请问一下，怎么遍历一轮?另外，这个frames(0)可以写框架名，不写数字么？

追答

for i=0 to 5'// 假设有6个， frames(i)
str=WebBrowser1.Document.frames(i).Document.documentElement.outerHTML
//此判断是框架中是否有你的代码

if instr(str,"想找的文字")>0 then

'//在这里处理 获取到的 str

end if

next i

Answer 2

我可以帮你获取到 私信我

追问

已解决。Txt1.Text = WebBrowser2.Document.Frames("middleFrame").Frames("leftFrame").Document.body.innerText