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 参数名