以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  【求助】获取网页完整源码  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=84073)
--  作者：飞飞
--  发布时间：2016/4/22 15:29:00
--  【求助】获取网页完整源码
使用WebBrowser获取网址的源码，
以下两个都不行
1.DocumentText   获取到的是中文乱码
2.Document.body.innerHTML 只能获取到body的内容，获取不到head的内容
求助！！想获取head内的源码，谢谢 要用WebBrowser，不要用HttpWebRequest
--  作者：大红袍
--  发布时间：2016/4/22 15:30:00
--  

乱码的话，转一下

 

Dim web As new windows.forms.webbrowser
web.Navigate("https://s.1688.com/selloffer/-CAFDC2EBD3A1BBA8-1046457.html?spm=b26110380.sw0.0.0.pfGSFx&cps=1&n=y&uniqfield=pic_tag_id")
Do Until web.ReadyState = 4
    Application.DoEvents
Loop

Dim getReader = new System.IO.StreamReader(web.DocumentStream, Encoding.Default)
Dim str = getReader.ReadToEnd()
output.show(str)
--  作者：飞飞
--  发布时间：2016/4/22 15:34:00
--  
以下是引用大红袍在2016/4/22 15:30:00的发言：

乱码的话，转一下

 

Dim web As new windows.forms.webbrowser
web.Navigate("https://s.1688.com/selloffer/-CAFDC2EBD3A1BBA8-1046457.html?spm=b26110380.sw0.0.0.pfGSFx&cps=1&n=y&uniqfield=pic_tag_id")
Do Until web.ReadyState = 4
    Application.DoEvents
Loop

Dim getReader = new System.IO.StreamReader(web.DocumentStream, Encoding.Default)
Dim str = getReader.ReadToEnd()
output.show(str)

牛！！！！！！！！！！！！！！！