VBA网抓入门

Public Function GetInfo(strMoblie As String) As String
    '创建对象
    Dim xmlHttp As Object
    Set xmlHttp = CreateObject("MSXML2.XMLHTTP")
    '发送请求
    xmlHttp.Open "GET", "http://www.ip138.com:8080/search.asp?action=mobile&mobile=" & strMoblie, False
    xmlHttp.Send

    '等待响应
    Do While xmlHttp.ReadyState <> 4

        DoEvents
    Loop
   '得到请求数据
   Dim strReturn As String
   strReturn = xmlHttp.ResponseText
   GetInfo = strReturn
End Function

---

引用方式：

直接引用
工具–引用

后期绑定

    '创建对象
    Dim xmlHttp As Object
    Set xmlHttp = CreateObject("MSXML2.XMLHTTP")

或者

    '创建对象
    Dim xmlHttp As Object
    Set xmlHttp = CreateObject("Microsoft.XMLHTTP")

---

readyState属性状态

• 0：请求未初始化，还没有调用Open方法
• 1：请求已建立，但是还没有发送
• 2：请求已发送，正在处理中
• 3：请求在处理中，部分响应了
• 4：响应已完全完成

Open方法

• 作用：创建新的http请求

• 格式：xmlHttp.Open 请求方式，网址，是否异步

  Send方法

• 作用：发送请求

• 格式：xmlHttp.Send

  setRequestHeader方法

• 作用：设置请求的头信息

• 格式：xmlHttp.setRequestHeader 参数名，参数值

  getResponseHeader方法

• 作用：获取响应数据头信息
• 格式：xmlHttp.getResponseHeader 参数名