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

xlcwxl

到底信哪一个？

答案5#6#

jycel

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

KLU3K

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

xlcwxl

#include
$MYIP = _GetIP()
MsgBox (0,"Debug",$MYIP)
呢？试过么？
KLU3K 发表于 2010-1-12 18:39

试过，跟

#Include <ACN_NET.au3>
_NetworkGetInternetIP()

获取的一样

guland

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


三行代码就搞定呢

bob

获取公网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[0]
  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[0-4]\d|25[0-5]|[01]?\d\d?)\.){3}(2[0-4]\d|25[0-5]|[01]?\d\d?)', 2)
  if not @error then Return $ip[0]
EndIf
Next
SetError(1)
Return -1
EndFunc 

chenzhi1210

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

网维

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

网维

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