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
相关问答：
为什么工具栏按扭的宽度改变不了,在属性里改了又变成原来的数值了
大胡子真厉害，回答基本都是爆料级的
大胡子升级真快啊，这才几天就5条短裤外加月排名第一了
想想我这5个短裤混了差不多8年才得到的。
回复 ......
我在类中有一个函数
Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean
siteconfig是我自定义类型的数据，为什么会提示“只有在公共对象模块中� ......
xmlDoc1.loadXML(h)总是返回false，为什么？谢谢帮忙回答一下
h是什么呢。。。。。。。。。
h是xml格式的字符串
你是想打开。XML格式的文件吧？
我是把h放在xmlDoc1里，用xmlDoc1.loadXML(h)，然后取xmlDo ......
刚建了一个群:中山VB编程(105787219)
有在中山及中山周边的程序员请加入.大家一起探讨问题.合作项目.
尽管俺不是中山的，也进来蹭分……
佛山的行吗,广州的行吗?
友情支持
回复内容太短了！
帮顶 ......
