lzhwm2006 发表于 2008-5-8 09:56:59

获取IP地址

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

gooker 发表于 2008-5-8 10:13:41

#include <INet.au3>
_GetIP ( )

夜苦寒 发表于 2008-5-8 11:01:53

获取本地公网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
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

lzhwm2006 发表于 2008-5-9 17:18:00

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

bob 发表于 2008-5-17 19:25:45

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

catcher 发表于 2008-7-9 17:36:06

用宏很方便

powerofos 发表于 2008-7-9 17:54:38

原帖由 bob 于 2008-5-17 19:25 发表 http://www.autoitx.com/images/common/back.gif
最简单的就是用宏了
MsgBox(0,"当前的ip为",@IPAddress1)


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

qop1830 发表于 2008-7-10 01:34:38

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

sanhen 发表于 2008-7-10 08:44:02

三楼正解。。。

chenzhi1210 发表于 2010-5-16 10:25:32

用@IPAddress1不准确!

as5719 发表于 2010-7-28 14:14:35

还是用不来
页: [1]
查看完整版本: 获取IP地址