xlcwxl 发表于 2010-1-12 16:08:28

获取外网ip地址，谁准确？

本帖最后由 xlcwxl 于 2010-1-13 09:16 编辑


到底信哪一个？

答案5#6#

jycel 发表于 2010-1-12 16:16:14

本帖最后由 jycel 于 2010-1-12 16:31 编辑

应该都一样的吧！
122.198.127.40在IP138上面量还是显示的中国
看数据库更新……
AU3自代的不清楚是用的啥

KLU3K 发表于 2010-1-12 18:39:54

#include <Inet.au3>
$MYIP = _GetIP()
MsgBox (0,"Debug",$MYIP)
呢？试过么？

xlcwxl 发表于 2010-1-12 18:56:34

#include
$MYIP = _GetIP()
MsgBox (0,"Debug",$MYIP)
呢？试过么？
KLU3K 发表于 2010-1-12 18:39 http://www.autoitx.com/images/common/back.gif

试过，跟#Include <ACN_NET.au3>
_NetworkGetInternetIP()


获取的一样

guland 发表于 2010-1-12 20:19:43

$oHTTP = InetRead("http://www.ip138.com/ip2city.asp",1)
$s=StringRegExp(BinaryToString($oHTTP),"(?<=<center>).*?(?=</center>)",3)
MsgBox(0,"公网IP获取",$s)

:face (33):
三行代码就搞定呢

bob 发表于 2010-1-13 08:24:08

获取公网IP$begin = TimerInit()
$ip = _GetIP()
msgbox(0,TimerDiff($begin),$ip)

Func _GetIP()
;AMU修改
$ipurl = 'http://www.ip138.com/ip2city.asp' & @cr & _
'http://www.123cha.com/ip/' & @cr & _
'http://ip.91cool.net/ip.php?type=ip' & @cr & _
'http://www.whatismyip.com'
$url = StringSplit($ipurl, @cr)
For $i = 1 to $url
If InetGet($url[$i], @TempDir & "\~ip.tmp") Then
$ip = FileRead(@TempDir & "\~ip.tmp", FileGetSize(@TempDir & "\~ip.tmp"))
FileDelete(@TempDir & "\~ip.tmp")
$ip = StringRegExp($ip, '((2\d|25|?\d\d?)\.){3}(2\d|25|?\d\d?)', 2)
if not @error then Return $ip
EndIf
Next
SetError(1)
Return -1
EndFunc

chenzhi1210 发表于 2010-5-16 10:47:44

5楼的三句话，速度快，经典！
6楼的很强大！

网维 发表于 2010-5-21 20:50:27

网吧现在大部分都是双线，怎么同时找出两个外网IP呀

网维 发表于 2010-5-21 20:50:34

网吧现在大部分都是双线，怎么同时找出两个外网IP呀
页: [1]
查看完整版本: 获取外网ip地址，谁准确？