VB如何设计 在线查询IP （利用www.ip138.com)

不想用WEBBROWSRE去打开网页，然后分析数据

有直接发送和接收数据的方法么？

例如，在www.ip138.com 查询IP地址

就会弹出这样的网址 http://www.ip138.com/ips.asp?ip=115.26.11.121

提交这个网址，就会返回数据，里面就有IP的地理位置

---

这个网页不是xml的,那不能用xmlhttp了,用winnet控件接收回来再用正则提取如何

---

xmlhttp和winnet都可以。
和是不是xml无关。

---

这样啊,那你给个xmlhttp取html源文件的代码给他啊,再和Regexp合起来应该就可搞定了

---

没整明白。。。啊。。。。

---

首先声明非原创
然后，楼主将GetPublicIP()函数中的取IP地址的部分调整一下就行了
简单点就用字符串截之类的函数就可以了
当然你也可以使用正则
VB code:

'涉及的API列表
'URLDownloadToFile 下载指定URL文件
'DeleteUrlCacheEntry 删除本地缓存文件
'GetUrlCacheEntryInfo 检查本地缓存信息
'FormatMessage 格式化API信息

Option Explicit

Private Const ERROR_SUCCESS As Long = 0 '下载失败

Private Declare Function URLDownloadToFile Lib "urlmon" _
Alias "URLDownloadToFileA" _
(ByVal pCaller As Long, _
ByVal szURL As String, _
ByVal szFileName As String, _
ByVal dwReserved As Long, _
ByVal lpfnCB As Long) As Long

Private Declare Function DeleteUrlCacheEntry Lib "wininet.dll" _
Alias "DeleteUrlCacheEntryA" _
(ByVal lpsz