展开全部
网页打开后:下面的代码可以取得源码,并放入srcTxt变量。
Dim srcTxt$
srcTxt = WebBrowser1.Document.documentElement.outerHTML
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
2013-04-06
展开全部
Private Sub Command1_Click()
Dim YDM
YDM = WebBrowser1.Document.body.createtextrange().htmltext
Open "D:\WEB.html" For Output As #1
Print #1, YDM
Close #1
End Sub
Dim YDM
YDM = WebBrowser1.Document.body.createtextrange().htmltext
Open "D:\WEB.html" For Output As #1
Print #1, YDM
Close #1
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
2013-04-05
展开全部
webbrowser有一个代码Attribute,读取即可。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询
广告 您可能关注的内容 |