在WebBrowser1的加载完成事件中写代码。
set d=WebBrowser1.documentif d is nothing then exit subtext1.text=d.body.innerTEXT '换成body.innerHTML可以显示HTML源代码。
document获取的是整个DOM对象 你定义一个DOM的相关对象 然后里面有详细的操作 我直说方法 具体实现 自己搞定
