获取IP地址

lzhwm2006

如何写获取宽带拨号连接后自动分配到的IP地址.

gooker

#include <INet.au3>
_GetIP ( )

夜苦寒

获取本地公网IP的函数。
官方提供的UDP不是很好用，所以修改了一下。增加了多网站支持。

$begin = TimerInit()
$ip = _GetIP()
msgbox(0,TimerDiff($begin),$ip)

Func _GetIP()
$ipurl = 'http://ip.91cool.net/ip.php?type=ip' & @cr & _
  'http://www.123cha.com/ip/' & @cr & _
  'http://www.ip138.com/' & @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

lzhwm2006

那还是要通过远程的检测IP网站反馈呢。

bob

最简单的就是用宏了
MsgBox(0,"当前的ip为",@IPAddress1)

catcher

用宏很方便

powerofos

原帖由 bob 于 2008-5-17 19:25 发表
最简单的就是用宏了
MsgBox(0,"当前的ip为",@IPAddress1)

对，我正想：楼上几位那么高手，我该不该意思说用这个呢？

qop1830

MsgBox(0,"当前的ip为",@IPAddress1)    那是本地网卡的IP地址

sanhen

三楼正解。。。

chenzhi1210

用@IPAddress1不准确!

as5719

还是用不来