安卓按键精灵脚本命令-获取IP通用接口

Function GetNetIP()
    Dim i, IP接口, IP
    GetNetIP = ""
    IP接口 = "http://1212.ip138.com/ic.asp|" &_
          "http://pv.sohu.com/cityjson|" &_
          "http://whois.pconline.com.cn/ipJson.jsp|" &_
          "http://www.1356789.com|" &_
          "http://www.whatismyip.com.tw|" &_
          "http://myip.com.tw|" &_
          "http://myip.cx/ip_geo.php|" &_
           "http://ip111.cn|" &_
          "http://ip.chinaz.com/getip.aspx"
    IP接口 = Split(IP接口, "|")
    For i = 0 To UBOUND(IP接口)
        IP = ShanHai.RegexFind(Url.Get(IP接口(i)), "%d+%.%d+%.%d+%.%d+")
        If UBOUND(IP) >= 0 Then
            GetNetIP = IP(0)
            Exit For
        End If
    Next
End Function