IP地址解析--查出IP的物理地址

lanfengc

闲的无聊， 利用腾讯QQ的IP分享页面做的一个IP转物理地址的接口。 速度超慢，不过好在地址够详细。  论坛里谁有相关的好接口可以回复下，让我看看。
只有8行代码

游客，如果您要查看本帖隐藏内容请回复

boyhong

不知道这个行不？
"www.ip138.com/ips.asp?ip="&$ip

wsfda

回复看看，这位大哥东西都不错

水木子

不知道这个行不？
"www.ip138.com/ips.asp?ip="&$ip
boyhong 发表于 2011-3-10 21:00

这个还不错，以前练习的时候就是用的这个地址。

boyhong

回复 4# 水木子

$Source = _INetGetSource('http://www.ip138.com/ips.asp?ip='&InputBox("IP","请输入IP地址"))

MsgBox(0, '正则怎么写啊?请教！', StringRegExpReplace($Source, '.*<li>本站主数据((?s))</li>.*', '$1'))


Func _INetGetSource($s_URL, $bString = True)
        Local $sString = InetRead($s_URL, 1)
        Local $nError = @error, $nExtended = @extended
        If $bString Then $sString = BinaryToString($sString)
        Return SetError($nError, $nExtended, $sString)
EndFunc  

tsui

先看内容再回来补讨论

haodd

看看

水木子

回复 5# boyhong

Global $sText
$Source = _INetGetSource('http://www.ip138.com/ips.asp?ip=' & InputBox("IP", "请输入IP地址"))
$aRe = StringRegExp($Source, '(?<=<li>)[^<]+', 3)

For $i = 0 To UBound($aRe) - 1
        $sText &= $aRe[$i] & @CRLF
Next

MsgBox(0, '', $sText)


Func _INetGetSource($s_URL, $bString = True)
        Local $sString = InetRead($s_URL, 1)
        Local $nError = @error, $nExtended = @extended
        If $bString Then $sString = BinaryToString($sString)
        Return SetError($nError, $nExtended, $sString)
EndFunc   ;==>_INetGetSource

lpxx

我记得以前有的
http://www.autoitx.com/thread-20353-1-1.html

#include <ie.au3>
#include<array.au3>
$oHTTP = _IECreate("http://fw.qq.com/ipaddress", 0, 0, 1, 0)
$HTMLSource = _IEDocReadHTML($oHTTP)
$sR = StringRegExp($HTMLSource, '"(.*?)"', 3)
_ArrayDisplay($sR)

baiqmdpdc

新人路过。。。学习一下

xlcwxl

看看方法

xjdjpbp

回覆來看看8行源碼

骗子

进来学习下

lanfengc

回复  boyhong
水木子 发表于 2011-3-10 21:46

    该代码 速度 够快 可惜地址不够详细  亮点是能够解析网址为IP 然后转换IP为物理地址

lanfengc

我记得以前有的
lpxx 发表于 2011-3-11 01:20

    该代码只能获取自己的IP和地址 地址也不详细。  不过好在接口页面源码简单  做成获取本机公网IP的接口挺好