_TCPIpToName
Возвращает имя хоста указанного IP адреса
#include <Inet.au3>
_TCPIpToName($sIp [, $iOption = 0 [, $hDll_Ws2_32 = "Ws2_32.dll"]])
Параметры
$sIp | IP адрес в формате IPv4 |
$iOption |
[необязательный] Default = 0 0 = Возвращает строку имени хоста 1 = Возвращает массив (смотрите примечание) |
$hDll_Ws2_32 |
[необязательный] Дескриптор библиотеки Ws2_32.dll |
Возвращаемое значение
Успех: | Возвращает имя хоста или массив (смотрите примечание) |
Ошибка: | Возвращает "" пустую строку |
@error: | 0 = нет ошибок. |
1 = inet_addr DllCall неудачно | |
2 = inet_addr неудачно | |
3 = gethostbyaddr DllCall неудачно | |
4 = gethostbyaddr неудачно, WSAGetLastError = @extended | |
5 = gethostbyaddr и WSAGetLastError неудачно | |
6 = strlen/sZStringRead неудачно | |
7 = Ошибка чтения массива псевдонимов |
Примечания
Требуется WSAStartup (делается функцией TCPStartup).См. также
TCPStartup, TCPNameToIPПример
#include <Array.au3>
#include <Inet.au3>
Global $aResult, $sResult, $sIP
; Пример 1
TCPStartup()
$sIP = TCPNameToIP("hiddensoft.com")
$sResult = _TCPIpToName($sIP)
If @error Then
MsgBox(0, "_TCPIpToName()", "@error = " & @error & @LF & "@extended = " & @extended)
Else
MsgBox(0, "hiddensoft.com реально это:", $sResult)
EndIf
; Пример 2
TCPStartup()
$sIP = _GetIP()
$aResult = _TCPIpToName($sIP, 1)
If @error Then
MsgBox(0, "_TCPIpToName()", "@error = " & @error & @LF & "@extended = " & @extended)
Else
_ArrayDisplay($aResult, "Local Hostname(s)")
EndIf