论坛 › 已解决问题区 › IP地址解析--查出IP的物理地址

lanfengc 发表于 2011-3-10 20:49:59

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

本帖最后由 lanfengc 于 2014-1-9 11:20 编辑



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

**** Hidden Message *****

boyhong 发表于 2011-3-10 21:00:16

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

wsfda 发表于 2011-3-10 21:18:29

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

水木子 发表于 2011-3-10 21:19:16

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

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

boyhong 发表于 2011-3-10 21:26:08

回复 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 发表于 2011-3-10 21:30:31

先看内容再回来补讨论

haodd 发表于 2011-3-10 21:44:07

看看 {:face (327):}

水木子 发表于 2011-3-10 21:46:11

回复 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 发表于 2011-3-11 01:20:32

我记得以前有的
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 发表于 2011-3-11 02:07:03

新人路过。。。学习一下

xlcwxl 发表于 2011-3-11 06:15:54

看看方法{:face (411):}

xjdjpbp 发表于 2011-3-11 06:35:18

回覆來看看8行源碼

骗子 发表于 2011-3-11 09:13:47

进来学习下

lanfengc 发表于 2011-3-11 10:11:34

本帖最后由 lanfengc 于 2011-3-11 10:17 编辑

回复boyhong
水木子 发表于 2011-3-10 21:46 http://www.autoitx.com/images/common/back.gif


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

lanfengc 发表于 2011-3-11 10:13:11

我记得以前有的
lpxx 发表于 2011-3-11 01:20 http://www.autoitx.com/images/common/back.gif


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

查看完整版本: IP地址解析--查出IP的物理地址