vba网抓基础之查询手机号码归属地

最新推荐文章于 2025-02-21 16:40:04 发布

02be55f

最新推荐文章于 2025-02-21 16:40:04 发布

阅读量1.1k

点赞数 1

分类专栏： VBA网络抓包文章标签： vba网抓 VBA抓取手机号码归属地 VBA网络访问网络正则表达式

本文链接：https://blog.youkuaiyun.com/qq_30508729/article/details/114389643

版权

本文介绍了VBA进行网络抓取的基本方法，特别是如何查询手机号码归属地。通过GET请求，设置User-Agent和Content-Type头，甚至可能需要添加COOKIES。提取数据时，可以使用split和replace函数，或者结合正则表达式来完成数据的提取和处理。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

VBA常见访问网络的方式有2种，一种是GET，一种是POST

GET示例代码有2种写法：

第1种：

Public Function MobileAddr(mobstr As String)

Dim xmlHttp As Object
Set xmlHttp = CreateObject("MSXML2.XMLHTTP")
’－－－－－－－－－－－－－－－－－－－
xmlHttp.Open "GET", "https://www.ip138.com/mobile.asp?mobile=" + mobstr + "&action=mobile"
xmlHttp.setRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 10.0; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/80.0.3987.87 Safari/537.36 SE 2.X MetaSr 1.0"
xmlHttp.Send
’－－－－－－－－－－－－－－－－－－－
Do While xmlHttp.ReadyState <> 4
DoEvents
Loop
’－－－－－－