怎么返回源码为一个?号啊...
抓包数据为
GET /programs/view/T6E52VROqJA/ HTTP/1.1
Accept: */*
Accept-Language: zh-cn
Accept-Encoding: gzip, deflate
User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; QQDownload 691; TencentTraveler 4.0; .NET CLR 2.0.50727; .NET CLR 3.0.04506.648; .NET CLR 3.5.21022)
Host: www.tudou.com
Connection: Keep-Alive
Cache-Control: no-cache
Cookie: playedRecord=1mggjl%2C1mw17w%2C1mzdr2%2C1lwh56%2C1myi0x%2C1mzh1u%2C17pzzr%2C1mwjm1%2C18coe9%2Czw4a1%2Cyagsu%2C13o1b1%2C1mzmjg%2C1n1iud%2C1n1el5%2C1myliw%2C1ln7zj%2C1mx1p6%2C1myigo%2C1mva1l%2F7t8mp%2C1myr58%2F7teo2%2C16z9ji%2C1j18ur%2F7t52t%2C1mtjfs%2F7t52t%2C1mk459%2C1jlmds%2F7taec%2C1mwb7l%2F7taec%2C1jeq21%2F7tfo9%2C1mz5qs%2F7tfo9%2C1mwb8u%2F7tfrh%2C1mz5rg%2F7tfrh%2C1ld4g3%2F7tdpa%2C1mye44%2F7tdpa%2C1mggjn%2C1mtt3p%2C1h3udu%2Crxmz9%2C1mvqvg%2C1mym0g; playTimer_0=1315479855250%7C1757%7C98185665; playTimer_96763383=1315306369343%7C108453%7C46882148; minibar_ad_expo=1; juid=bk3eil0u520; shareOrig=x; search_history_state_undefined=1; search_history_str_undefined=i%E7%BE%8E%E5%A5%B3; search_history_state_96763383=1; search_history_str_96763383=i%E7%BE%8E%E5%A5%B3; seid=bls6oq89nng; seidtimeout=1315481656718; pageStep=37; apyuid="00000084JydXFFDc2KFuaH,57X0Fu3U,5gq0FtK3,5sR0Fu2U,5t50Fu7sFu7wFu7AFu7B,5t70FtMOFtMQFtMTFu2UFu4W,5wE0Fq5HFq5UFq6v,5wH0Fnh0FnhrFnhs,5wT0FsNA,5zI0FtBS,5Ap0Fu5d,5Ax0Fu4VFu5c,5AM0FtK4FtK5,5DV0Fu3U,5Es0FtK8FtK9,5F90FuaHFuaKFuaKFuaLFuaV"; tudouad_citycode=360700; pageUUID=abad1f07-5ddb-4e58-bee6-5c0ff527fdf4~_~453
有人试试看能不能获得源码啊
同时鄙视CSDN广告遮住了内容,影响浏览.
[最优解释]
返回内容：
<!DOCTYPE html><html>
<head>
<title>古装美女大检阅_在线视频观看_土豆网视频 热点</title>
<meta charset="gbk"/>
<meta name="Keywords" content="热点 古装美女大检阅 资讯 热点 快报 实拍 现场频道" />
<meta name="Descriptio
'〓〓〓〓〓〓〓〓〓〓GetUrlByXmlHttp函数相关定义声明等 Start
Private Declare Function GetTickCount Lib "kernel32" () As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Declare Function DeleteUrlCacheEntry Lib "Wininet.dll" Alias "DeleteUrlCacheEntryA" (ByVal lpszUrlName As String) As Long
'删除缓存中文件
'〓〓〓〓〓〓〓〓〓〓GetUrlByXmlHttp函数相关定义声明等 End
'┏〓〓〓〓〓〓〓〓〓 GetUrlByXmlHttp,start 〓〓〓〓〓〓〓〓〓┓
'［详介］：
'函数注释:
'［简介］：
'XMLHTTP方式下载网页
Function GetUrlByXmlHttp(Url As String, Optional MaxTime As Long = 20000, Optional ShowErr As Boolean = True, Optional KillCache As Boolean = True) As String
'VB源码，帮你写函数，帮你写代码，帮你写模块，帮你设计软件
'--需要什么函数或功能，可以联系我。
'版权所有，请保留作者信息.QQ：1085992075
'如需商业用途请联系作者
On Error GoTo Err
Dim XmlHttp ' As xmlhttp
If KillCache Then DeleteUrlCacheEntry Url
Set XmlHttp = CreateObject("Microsoft.XMLHTTP") '//建立对象
With XmlHttp
.Open "GET", Url, True
.send
On Error Resume Next
Dim Tick As Long
Dim S As Integer
Tick = GetTickCount
While Not S = 200 And GetTickCount - Tick < MaxTime
DoEvents
Sleep 1
S = .Status
Wend
If GetTickCount - Tick >= MaxTime And S <> 200 Then Exit Function
GetUrlByXmlHttp = StrConv(.responseBody, vbUnicode)
End With
Set XmlHttp = Nothing '//释放
Exit Function
Err:
If ShowErr Then MsgBox Err.Description & vbCrLf '获取错误信息，产生错误后，错误信息会放入vb.Err对象
Err.Clear
End Function
'┗〓〓〓〓〓〓〓〓〓 GetUrlByXmlHttp,end 〓〓〓〓〓〓〓〓〓┛
Private Sub Command1_Click()
MsgBox GetUrlByXmlHttp("http://www.tudou.com/programs/view/T6E52VROqJA/")
End Sub
MyHttp mh = new MyHttp();
mh.sUrl = "http://www.tudou.com/programs/view/T6E52VROqJA/";
mh.sHwrq.Accept = "*/*";
mh.sHwrq.Headers.Set("Accept-Language", "zh-cn");
//mh.sHwrq.Headers.Set("Accept-Encoding", "gzip, deflate");
mh.sHwrq.UserAgent = "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; QQDownload 691; TencentTraveler 4.0; .NET CLR 2.0.50727; .NET CLR 3.0.04506.648; .NET CLR 3.5.21022)";
mh.sHwrq.KeepAlive = true;
mh.sHwrq.Headers.Set("Cache-Control", "no-cache");
// mh.sHwrq.Headers.Set("Cookie", "playedRecord=1mggjl%2C1mw17w%2C1mzdr2%2C1lwh56%2C1myi0x%2C1mzh1u%2C17pzzr%2C1mwjm1%2C18coe9%2Czw4a1%2Cyagsu%2C13o1b1%2C1mzmjg%2C1n1iud%2C1n1el5%2C1myliw%2C1ln7zj%2C1mx1p6%2C1myigo%2C1mva1l%2F7t8mp%2C1myr58%2F7teo2%2C16z9ji%2C1j18ur%2F7t52t%2C1mtjfs%2F7t52t%2C1mk459%2C1jlmds%2F7taec%2C1mwb7l%2F7taec%2C1jeq21%2F7tfo9%2C1mz5qs%2F7tfo9%2C1mwb8u%2F7tfrh%2C1mz5rg%2F7tfrh%2C1ld4g3%2F7tdpa%2C1mye44%2F7tdpa%2C1mggjn%2C1mtt3p%2C1h3udu%2Crxmz9%2C1mvqvg%2C1mym0g; playTimer_0=1315479855250%7C1757%7C98185665; playTimer_96763383=1315306369343%7C108453%7C46882148; minibar_ad_expo=1; juid=bk3eil0u520; shareOrig=x; search_history_state_undefined=1; search_history_str_undefined=i%E7%BE%8E%E5%A5%B3; search_history_state_96763383=1; search_history_str_96763383=i%E7%BE%8E%E5%A5%B3; seid=bls6oq89nng; seidtimeout=1315481656718; pageStep=37; apyuid="00000084JydXFFDc2KFuaH,57X0Fu3U,5gq0FtK3,5sR0Fu2U,5t50Fu7sFu7wFu7AFu7B,5t70FtMOFtMQFtMTFu2UFu4W,5wE0Fq5HFq5UFq6v,5wH0Fnh0FnhrFnhs,5wT0FsNA,5zI0FtBS,5Ap0Fu5d,5Ax0Fu4VFu5c,5AM0FtK4FtK5,5DV0Fu3U,5Es0FtK8FtK9,5F90FuaHFuaKFuaKFuaLFuaV"; tudouad_citycode=360700; pageUUID=abad1f07-5ddb-4e58-bee6-5c0ff527fdf4~_~453");
//mh.sHwrq.Referer = "http://www.tudou.com/playlist/p/l8108510i8469681.html";
tb.Text = mh.fGetSource(Encoding.GetEncoding("gbk"));
