vb winsock

http://zhidao.baidu.com/link?url=uXHtVq4IlHaEUvC5z1k9J6uVP_3tY0X-xnAuNMWLV42rCVIysM_IqDzOX7fEdfyeJgfLBlBgGOMdJ4LnbmqV8_

 

要用WINSOCK很简单，主要是HTTP协议实现而已

连接方式

sock.RemoteHost = "www.baidu.com"
sock.RemotePort = 80
sock.Connect
while (sock.state <> sckConnected)
    doevents
wend
sock.SendData "GET /index.htm HTTP/1.1" & vbNewLine & vbNewLine

然后在DataArrival事件里读取内容，例如

Private Sub sock_DataArrival(Index As Integer, ByVal bytesTotal As Long)   
    Dim strData As String   
    sock.GetData strData, vbString
    Msgbox sock
End Sub   

如果获取的就是纯粹的HTML，那么好分析。

但你给的网页还有JS。。。

而且你要的数据也是由JS输出的，HTML源码中无法直接获取数据。