• 新浪微博:
  • 微信 :
按键精灵电脑版
立即下载

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

按键精灵安卓版
立即下载

软件版本:3.3.6
软件大小:62.5M
更新时间:01-16

按键精灵iOS版
立即下载

软件版本:1.6.0
软件大小:29.2M
更新时间:07-29

最新企业版UiBot
立即下载

软件版本:3.3
软件大小:282M
更新时间:08-06

快捷导航

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

登录 注册
返回列表 12345678» / 15
发新话题 回复该主题

【分享】安卓版获取外网IP地址!!! [复制链接]

1#
山海插件里的获取外网IP有时会出现NULL,我就自己弄了个!


  1. '导入山海插件
  2. Import "ShanHai.lua"
  3. TracePrint "您的IP地址是:" & GetNetIP()

  4. Function GetNetIP()
  5.     Dim i, IP接口, IP
  6.     '安卓获取外网IP地址
  7.     GetNetIP = ""
  8.     IP接口 = "http://1212.ip138.com/ic.asp|" &_
  9.             "http://pv.sohu.com/cityjson|" &_
  10.             "http://whois.pconline.com.cn/ipJson.jsp|" &_
  11.             "http://www.1356789.com|" &_
  12.             "http://www.whatismyip.com.tw|" &_
  13.             "http://myip.com.tw|" &_
  14.             "http://myip.cx/ip_geo.php|" &_
  15.             "http://ip111.cn|" &_
  16.             "http://ip.chinaz.com/getip.aspx"
  17.     IP接口 = Split(IP接口, "|")
  18.     For i = 0 To UBOUND(IP接口)
  19.         IP = ShanHai.RegexFind(Url.Get(IP接口(i)), "%d+%.%d+%.%d+%.%d+")
  20.         If UBOUND(IP) >= 0 Then
  21.             GetNetIP = IP(0)
  22.             Exit For
  23.         End If
  24.     Next
  25. End Function
复制代码

    已有1评分我要评分查看所有评分

    最后编辑神梦科技 最后编辑于 2017-04-06 19:25:18
    2#

    好评支持

    按键精灵、易语言接单。QQ:12484234
    3#

    aaaaaaaaaaa

    4#

    aaaaaa

    5#

    什么时候

    6#

    支持一下

    按键精灵安卓版2.5.0即将发布,将带给你更好的编辑体验!点击链接了解新版本功能,还有更多好礼等你来拿哦!
    http://bbs.anjian.com/showtopic-584866.aspx
    7#

    xgnhsgb

    8#

    nice

    吾爱按键!
    9#

    哈哈, 长见识了阿 有点高级的样子 再让干货来的猛烈一点吧!!!!!!!!!!!!!!!!!

    10#

    支持一下!

    11#

    和按键精灵不一样?

    12#

    11111111111

    13#

    这个不错 看看

    14#

    ggggggggggggggggggggggggggggggg

    15#

    fffffffffffffffffffffffffffffffffffff

    16#

    实施上述事实上事实上

    17#

    学习一下

    18#

    支持以下!!!!!!!

    19#

    获取外网IP地址

    不接单,讨论学习→
    20#

    能不能把我的网址去掉,俺不想让你们用

    点评

    神梦科技  好吧!😂  发表于 2016/8/4 22:04:32

    发新话题 回复该主题