VB中text如何获取webbrowser网页中的内容

在WebBrowser1的加载完成事件中写代码。 set d=WebBrowser1.documentif d is nothing then exit subtext1.text=d.body.innerTEXT '换成body.innerHTML可以显示HTML源代码。