'VB.Net não suporta um tipo da união, mas permite-o a
'“decorar” uma estrutura para realizar a mesma coisa
_
Estrutura confidencial IP_Parts
Escurecer o endereço como Int64
Escurecer para a direita como o byte
Escurecer o middleRight como o byte
Escurecer o middleLeft como o byte
Escurecer à esquerda como o byte
Terminar a estrutura
Função compartilhada confidencial IPStrToLong (ByVal IPstr como a corda) como por muito tempo
IP não ofuscante como o IP address
Partes não ofuscantes como IP_Parts
Buf não ofuscante () como a corda
IP = [IP address]. Nenhum
Se não [IP address] .TryParse (IPstr, IP) então
Retorno 0
Terminar se
'A propriedade de IPAddress.Address “tem sido menosprezada”, mas nós ainda
'precisar uma maneira de converter tão apenas um IPv4 do “ponto quadrilátero” a e de um longo,
'manter o compilador feliz, nós usam esta rotina
buf = ip.ToString.Split (“. “c)
Se buf. Comprimento <> 4 então
'Pesaroso, nós não suportamos a notação IPv6
Retorno 0
Terminar se
peças. Direita = CByte (buf (3))
parts.middleRight = CByte (buf (2))
parts.middleLeft = CByte (buf (1))
peças. Esquerda = CByte (buf (0))
Parts.address do retorno
Função do fim
|