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
相关问答：
在下是vb的新手，想写段程序，在vb中，使用wscript调用一些外部的命令，但是程序执行一直有错误，请各位高手帮忙解答下，谢谢。
代码如下：
VB code:
Private Function getFile_CMD(filename, filepath) As Bo ......
可以吗
好奇怪的题目额！！
可以告诉我们你到底想问什么 ？
2分给我的话就可以。
........................可以吗
可以!
纠结，
29. vb可以这样做不？ ( H )√
A. ......
Private Sub btnPrint_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnPrint.Click
MouseWait()
Dim ClearTempTabelSQL As String
'If Not ......
Private Sub Command1_Click()
Dim MyString() As String
Open "a.xml" For Binary As #1 ' 打开刚创建的文件。
ReDim MyString(LOF(1) - 1)
Put #1, , MyRecord ' 读入所有字符到变量中 ......
xmlDoc1.loadXML(h)总是返回false，为什么？谢谢帮忙回答一下
h是什么呢。。。。。。。。。
h是xml格式的字符串
你是想打开。XML格式的文件吧？
我是把h放在xmlDoc1里，用xmlDoc1.loadXML(h)，然后取xmlDo ......
