想取得某一网页的Html，请问最简单的方法。

Question

我想取得某一网页的Html，比如http://www.cctv.com/default.shtml
只要html text，不要图像，flash等不要用webBrowser，它会下载所有的内容，速度太慢，请问其他最简单的方法。
请给一段示例代码，谢谢！

Answer 1

用Inet控件
dim s as string
s=Inet1.OpenURL("http://www.cctv.com/default.shtml")
msgbox s

Answer 2

http://expert.csdn.net/Expert/FAQ/FAQ_Index.asp?id=165496

Answer 3

异步执行代码
Inet1.Execute "http://www.cctv.com/default.shtml"Private Sub Inet1_StateChanged(ByVal State As Integer)
Select Case State
Case icResponseCompleted
      Dim vtData As Variant '数据变量。
      Dim strData As String: strData = ""
      Dim bDone As Boolean: bDone = False      '取得第一块。
      vtData = Inet1.GetChunk(1024, icString)
      DoEvents
      Do While Not bDone
         strData = strData & vtData
         DoEvents
         '取得下一块。
         vtData = Inet1.GetChunk(1024, icString)
         If Len(vtData) = 0 Then
            bDone = True
         End If
      Loop      msgbox strData
    
End Select
End Sub

Answer 4

用winsock与网站主机的80端口进行TCP连接。连接成功后发送一段HTTP协议。就能返回所需要得到的HTML或是其他东西了。