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
相关问答：
想在warcraft3里进行写屏操作【如对战平台中的胜负提示信息】，效果就像游戏平台中一样，我试过在一窗口中写入文字，然后一直让窗口强制最前，虽然能实现文字显示，但是文字会不断闪烁，而且有不确定BUG，通过论坛搜 ......
VB怎样获得鼠标处的超级连接呢？
在WebBrowser控件中有这样一个事件:StatusTextChange(index As Integer, ByVal Text As String)
它的Text参数正是鼠标处的超级连接,但问题是如果我的浏览器正� ......
为什么我用form.show和form.hide多次连接了两个窗口只能互换链接两次啊？
代码看看
照道理form.show 没次数限定的吧
我也快疯了。
楼主知道怎么发贴么？
引用
我也快疯了。
楼主知道怎么发贴么？
楼主也 ......
DIM ds as new DataSet
我这样声明 怎老是报 用户定义类型未定义？ 这个需要引用什么吗？？
前提是DataSet对象要存在,就是对象浏览器中有它.没有就要引用.
dataset是ADO.NET对象
如果你用的是vb.net，那么在� ......
Private Sub Command1_Click()
Dim MyString() As String
Open "a.xml" For Binary As #1 ' 打开刚创建的文件。
ReDim MyString(LOF(1) - 1)
Put #1, , MyRecord ' 读入所有字符到变量中 ......
