Question

vb如何获取网页里指定的动态内容， 比如今日头条网站主页的新闻id 比如如何通过xmlhttp

vb如何获取网页里指定的动态内容，

比如今日头条网站主页的新闻id

比如如何通过xmlhttp获取指定网页里的div下h4的内容

Answer 1

给你一个返回网页源码的函数

Public Function GetXML(URL As String) As String                  '返回当前网址的XML源码
On Error Resume Next
Dim xmlHttp As Object
    Set xmlHttp = CreateObject("MSXML2.XMLHTTP")
    xmlHttp.Open "GET", URL, False
    xmlHttp.Send
    If xmlHttp.ReadyState = 4 And xmlHttp.Status = 200 Then
        GetXML = xmlHttp.responseText
    End If
End Function

你可以用这个函数获得相应网站的源码，再通过分析获得的源码利用InStr  Mid等函数进行相应数据提取