手机号码归属地批量查询

缔造者 · 发表于 2017-5-21 11:44

要求：
对B列的手机号码或者固定电话（必须含区号）归属地进行批量查询。
查询网址为http://cx.shouji.360.cn/

参见附件：

手机归属地查询.rar (10.39 KB, 下载次数: 499)

蓝桥玄霜 · 发表于 2017-5-21 14:35

请参考本页面的“猜您喜欢”中的帖子。

719404338 · 发表于 2017-5-21 14:44

一定要360查询吗？找手机归属地的代码，网上有现成的。Private Sub CommandButton1_Click()
   Dim temp
   n = Range("a65536").End(xlUp).Row
   On Error Resume Next
   With CreateObject("Microsoft.XMLHTTP")
      For p = 2 To n
         .Open "GET", "http://www.hiphop8.com/nub/" & Cells(p, 1) & ".html", True
         .Send
         Do Until .ReadyState = 4
               DoEvents
         Loop
         temp = Split(StrConv(.responseBody, vbUnicode, &H804), "class=T>")
         Cells(p, "B") = Split(Split(temp(1), "<")(0), " ")(1)
         Cells(p, "C") = Split(temp(2), "<")(0)
         Cells(p, "D") = Split(temp(3), "<")(0)
      Next p
      Set r = Nothing
      .Quit
   End With
   Cells.Font.Size = 9
   Cells.Columns.AutoFit
   MsgBox "完成"
End Sub

缔造者 · 发表于 2017-5-22 12:03

719404338 发表于 2017-5-21 14:44
一定要360查询吗？找手机归属地的代码，网上有现成的。Private Sub CommandButton1_Click()
Dim temp ...

首先感谢帮助！
这个网站部分手机号码查询不到！360查询相应较好一点。

缔造者 · 发表于 2017-5-22 12:06

719404338 发表于 2017-5-21 14:44
一定要360查询吗？找手机归属地的代码，网上有现成的。Private Sub CommandButton1_Click()
Dim temp ...

这是复制你的代码进行查询的，结果有的号码查询不到。
见附件：

手机归属地查询.rar (13.08 KB, 下载次数: 225)

缔造者 · 发表于 2017-5-22 12:10

蓝桥玄霜发表于 2017-5-21 14:35
请参考本页面的“猜您喜欢”中的帖子。

谢谢导引！
可悲的是，我是网抓菜鸟，依葫芦画不出瓢。

缔造者 · 发表于 2017-6-1 16:17

未解决，望走过路过的大侠伸手相助，谢谢！

舞文弄墨123 · 发表于 2024-3-16 17:21

719404338 发表于 2017-5-21 14:44
一定要360查询吗？找手机归属地的代码，网上有现成的。Private Sub CommandButton1_Click()
Dim temp ...

不行啊，没有反应

pc_12 · 发表于 2024-3-17 11:10

手机归属地查询.rar (20.53 KB, 下载次数: 14)

dragonthree · 发表于 2024-3-17 15:14

pc_12 发表于 2024-3-17 11:10

好象不行吧？

		自动登录	找回密码
密码			免费注册

[求助] 手机号码归属地批量查询

评分

最新热点 /1