有其它办法返回当前活动IP的吗？我分享一个

itljl

$objWMIService = ObjGet("winmgmts:\\.\root\CIMV2")
$colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = TRUE", "WQL", 0x10 + 0x20)
For $objItem In $colItems
 $LocalIP = $objItem.IPAddress(0)
Next
MsgBox(0, 0, 'IP：' & $LocalIP)

先分享上面这个。
这里活动IP的意思有几种情况。
1，如果机子有两个网卡，只用了其中一个，那怎样获取正在使用这个。
2，如果有两个网卡，其中一个没有接网线，怎样获取接了网线，正在使用这个。
3，如果机子是ADSL拨号上网，那正确的应该是获取外网的地址，@ipaddress1获取的有可能是 127.0.0.1 ，还有可能是本地连接设置的IP，而不是拨号连接的地址。这个可以用我分享这个代码来解决。

想知道哪位兄弟收藏的有其它方法，最好是API的。因为有些机子没开WMI服务的。

itljl

论坛上已有的均是API的方式

llztt

论坛里的网卡代码多的是WMI和注册表好不好。。API倒很少见。。
WMI有获取网卡状态（已连接、未插网线等等）的办法，可惜楼主的情况无法用上。。

pusofalse

试下这样：

$iResult = DllCall("iphlpapi.dll", "dword", "GetIfTable", "ptr", 0, "ulong*", 0, "int", 1)
$tBinary = DllStructCreate("ubyte[" & $iResult[2] & "]")
$pBinary = DllStructGetPtr($tBinary)
$iResult = DllCall("iphlpapi.dll", "dword", "GetIfTable", "ptr", $pBinary, "ulong*", $iResult[2], 

"int", 1)

$tNum = DllStructCreate("ulong", $pBinary)
$iNum = DllStructGetData($tNum, 1)
$pBinary += 4

Local $sIfIndices = ""

For $i = 1 to $iNum
        $tBuffer = DllStructCreate("wchar[256];dword[5];byte[8];dword[16];char[256]", $pBinary)
        $pBinary += DllStructGetSize($tBuffer)
        If DllStructGetData($tBuffer, 2, 2) = 23 Then
                $sIfIndices = "," & DllStructGetData($tBuffer, 2, 1) & ","
                ExitLoop
        ElseIf DllStructGetData($tBuffer, 2, 2) = 6 And DllStructGetData($tBuffer, 4, 2) = 5 Then 
                $sIfIndices &= "," & DllStructGetData($tBuffer, 2, 1) & ","
        EndIf
Next

$iResult = DllCall("iphlpapi.dll", "dword", "GetAdaptersInfo", "ptr", 0, "ulong*", 0)
$tBinary = DllStructCreate("ubyte[" & $iResult[2] & "]")
$pBinary = DllStructGetPtr($tBinary)
$iResult = DllCall("iphlpapi.dll", "dword", "GetAdaptersInfo", "ptr", $pBinary, "ulong*", $iResult

[2])

$sBuffer = "ptr;dword;char[260];char[132];uint;byte[8];dword;uint[2];ptr;ptr;char[16];char[16];dword"
While $pBinary <> 0
        $tBuffer = DllStructCreate($sBuffer, $pBinary)
        $pBinary = DllStructGetData($tBuffer, 1)

        If StringInStr($sIfIndices, "," & DllStructGetData($tBuffer, 7) & ",") Then
                Msgbox(0, DllStructGetData($tBuffer, 11), DllStructGetData($tBuffer, 4))
        EndIf
WEnd

itljl

回复 4# pusofalse


    谢谢P版。
但这个没有达到目的。
顶楼的WMI在拨号的机子上，可以得到其拨号连接的IP。
而你这个得到的却是本地连接的IP
这个截图是我在ADSL上截的。

pusofalse

根本的原因是在枚举连接时，没有发现拨号的连接。这一句就是判断是否是拨号连接的。
If DllStructGetData($tBuffer, 2, 2) = 23 Then ... 23对应的连接类型是IF_TYPE_PPP，A PPP network interface. MSDN中是这样解释的。
一台机子中，有ADSL连接，但没有拨号到网络，同样可看做这是一个非活动的连接。当然这是一句多余的话。

itljl

回复 6# pusofalse

谢谢，这下成功了。