IP地址解析成主机名失败

xyhqqaa

_TCPIpToName解析一个IP地址到主机名称,为什么解析不了。。我哪使用错了。

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GuiStatusBar.au3>
#include <WindowsConstants.au3>
#include <Inet.au3>
#region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 331, 80, 495, 472)
$input = GUICtrlCreateInput("119.75.217.56", 8, 16, 209, 21);百度IP
$Button1 = GUICtrlCreateButton("Button1", 240, 16, 73, 25)
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###
While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exit
                Case $Button1
                        TCPStartup()
                        $nameip = TCPNameToIP(GUICtrlRead($input))
                        $ipname = _TCPIpToName(GUICtrlRead($input))
                        If _isIP(GUICtrlRead($input)) Then
                                If @error Then
                                        MsgBox(4096, "","错误")
                                Else
                                        MsgBox(4096, "", $ipname)
                                EndIf
                        Else
                                MsgBox(0, "", $nameip)
                        EndIf

        EndSwitch
WEnd
Func _isIP($ip)
        Return StringRegExp($ip, "^(25[0-5]|2[0-4][0-9]|[0-1]{1}[0-9]{2}|[1-9]{1}[0-9]{1}|[1-9])\.(25[0-5]|2[0-4][0-9]|[0-1]{1}[0-9]{2}|[1-9]{1}[0-9]{1}|[1-9]|0)\.(25[0-5]|2[0-4][0-9]|[0-1]{1}[0-9]{2}|[1-9]{1}[0-9]{1}|[1-9]|0)\.(25[0-5]|2[0-4][0-9]|[0-1]{1}[0-9]{2}|[1-9]{1}[0-9]{1}|[0-9])$")
EndFunc   ;==>_isIP

lpxx

StringRegExp返回值是数组

lpxx

而且，貌似正则不对。
论坛有例子，参考一下。

#include <Array.au3>
$T0 = "119.75.217.56"
$Pattern = '((?:(?:25[0-5]|2[0-4]\d|[01]?\d?\d)\.){3}(?:25[0-5]|2[0-4]\d|[01]?\d?\d))'
$Result = StringRegExp($T0, $Pattern, 1)
If Not @error Then MsgBox(0, StringLen($Result[0]), $Result[0])
_ArrayDisplay($Result, 1)

lpxx

解析主机名你先测试

#include <array.au3>
#include <inet.au3>
Local $aResult
TCPStartup()
$sIp="127.0.0.1"
$aResult = _TCPIpToName($sIp, 1)
If @error Then
        MsgBox(0, "_TCPIpToName()", "@error = " & @error & @LF & "@extended = " & @extended)
Else
        MsgBox(0,0,$aResult[1])
EndIf

我就知道这些了，希望可以给你点参考。