以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  IP地址查询  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=143548)
--  作者：kaituozhe
--  发布时间：2019/11/28 10:10:00
--  IP地址查询
能否写代码通过IP号查询到IP地址
--  作者：有点蓝
--  发布时间：2019/11/28 11:05:00
--  
Dim ip As String = "14.215.177.39"
Dim hc As New HttpClient("http://ip.ws.126.net/ipquery?ip=" & ip)
hc.ResponseEncoding = "GB2312"
Dim ret As String = hc.GetData()
MessageBox.Show(ret)
[此贴子已经被作者于2019/11/28 11:05:34编辑过]
--  作者：kaituozhe
--  发布时间：2019/11/28 13:26:00
--  

45.195.40.61 var lo="广东省", lc="广州市";
var localAddress={city:"广州市", province:"广东省"}
这是上述代码查询的，

网上查询结算45.195.40.61 来自 中国 香港特别行政区 cloudinnovation.org

不知道是什么原因
--  作者：kaituozhe
--  发布时间：2019/11/28 13:41:00
--  
上述结果中只需要保留广东省广州市，写了e.DataRow("IP地址归属地") = ret.Replace("var lo=""","").Replace(""", lc=""","").Replace(""";","")，但是怎么取消第二行
--  作者：kaituozhe
--  发布时间：2019/11/28 14:05:00
--  
4楼的问题已解决，能不能显示是移动、电信或联通？
--  作者：有点蓝
--  发布时间：2019/11/28 14:44:00
--  
Dim ip As String = "14.215.177.39"
Dim hc As New HttpClient("http://ip.taobao.com/service/getIpInfo.php?ip=" & ip)
Dim ret As String = hc.GetData()
MessageBox.Show(ret)
--  作者：lihe60
--  发布时间：2020/6/1 20:44:00
--  
如何取得“广州市”、“广东省”这个值？
--  作者：有点蓝
--  发布时间：2020/6/1 20:46:00
--  
以下是引用lihe60在2020/6/1 20:44:00的发言：
如何取得“广州市”、“广东省”这个值？

参考：http://www.foxtable.com/mobilehelp/topics/0140.htm