• 按键公众号 :
按键精灵电脑版
立即下载

软件版本:2014.06
软件大小:22.9M
更新时间:2021-12-03

按键精灵安卓版
立即下载

软件版本:3.7.2
软件大小:46.2M
更新时间:2023-05-10

按键精灵iOS版
立即下载

软件版本:1.8.0
软件大小:29.2M
更新时间:2023-03-21

按键手机助手
立即下载

软件版本:3.8.0
软件大小:262M
更新时间:2023-05-30

快捷导航

登录 后使用快捷导航
没有帐号? 注册

发新话题 回复该主题

[老狼] [老狼][心得分享]----手机号归属地、省编号、市类型查询----再见... [复制链接]

1#
实现效果:获取对应手机号的归属地、省编号、市类型源码一览:
  1. TracePrint "goto"
  2. Dim 手机号=13715936255
  3. PutAttachment GetTempDir(), "*.txt"
  4. Dim 手机号查询,键值表,省, 市
  5. Import "ShanHai.lua"
  6. 手机号查询=Url.HttpGet({"url":"https://cx.shouji.360.cn/phonearea.php?number="&手机号})
  7. 手机号查询= ShanHai.unicode2utf8(手机号查询)
  8. 键值表 = Encode.JsonToTable(手机号查询)
  9. 省=键值表["data"]["province"]
  10. 市=键值表["data"]["city"]
  11. TracePrint 省,市
  12. Dim 读取结果 = File.ReadLines(GetTempDir()&"/省编号市类型.txt")
  13. //调试输出数组
  14. For i=0 to 29
  15. //TracePrint 读取结果(i)
  16. If instr(1, 读取结果(i), 省) > 0 Then
  17. TracePrint "省编号:"&读取结果(i)
  18. Exit For
  19. End If
  20. Next
  21. For i=30 to UBound( 读取结果)
  22. //TracePrint 读取结果(i)
  23. If instr(1, 读取结果(i), 市) > 0 Then
  24. TracePrint "市类型:"&读取结果(i)
  25. Exit For
  26. End If
  27. Next
复制代码
效果一览:

源文件下载:
ywj.rar (, 下载次数:249)

最后编辑瑞祥幽冥狼 最后编辑于 2022-04-28 10:51:16
本主题由 超级版主 瑞祥幽冥狼 于 2023/10/6 17:34:35 执行 审核帖子 操作
收 徒 索 引 ← ← ← ← ← ← ← ← ← ← 点 击

个 人 Q Q 1 : 1 2 2 3 1 1 6 6 1 8[将满]
个 人 Q Q 2 : 6 1 7 0 9 5 5 4 3[可加]
2#

++++分

3#

66666666666

4#

66666谢谢

5#

11111111111111

1111111111111111

6#

6666.作者真厉害啊,太给力,点个赞吧

7#

学习一下b

8#

厉害,学习了

9#

好家伙

10#

快看快看

11#

a1sf2a3f

dsh24dfh4sd

12#

666666

13#


RE:[老狼][心得分享]----手机号归属地、省

14#

省市键值表这个很需要

15#

大萨达撒

16#

大佬666666

17#

学习

18#


19#


20#

好的

发新话题 回复该主题