'VB.Net не поддерживает тип соединения, но оно позволяет вас к
'«украсьте» структуру для выполнения такой же вещи
_
Приватная структура IP_Parts
Затемните адрес как Int64
Затемните справедливо как байт
Затемните middleRight как байт
Затемните middleLeft как байт
Затемните налево как байт
Закончите структуру
Приватная, котор делят функция IPStrToLong (ByVal IPstr как шнур) как длиной
Тусклый ip как IPAddress
Тусклые части как IP_Parts
Тусклое buf () как шнур
ip = [IPAddress]. Никакие
Если не [IPAddress] .TryParse (IPstr, ip) после этого
Возвращение 0
Закончитесь если
'Свойство IPAddress.Address «было уценено», только мы все еще
'нужна дорога преобразовать IPv4 «многоточие квада» к и от длиннего, настолько как раз
'держите составителя счастливым, мы используйте этот режим
buf = ip.ToString.Split («. «c)
Если buf. Длина <> 4 после этого
'Огорченно, мы не поддерживаем нотацию IPv6
Возвращение 0
Закончитесь если
части. Право = CByte (buf (3))
parts.middleRight = CByte (buf (2))
parts.middleLeft = CByte (buf (1))
части. Левая сторона = CByte (buf (0))
Возвращенное parts.address
Функция конца
|