'VB.Net no apoya un tipo de la unión, sino que le permite a
'“adornar” una estructura para lograr la misma cosa
_
Estructura privada IP_Parts
Amortiguar la dirección como Int64
Amortiguar a la derecha como octeto
Amortiguar el middleRight como octeto
Amortiguar el middleLeft como octeto
Amortiguar a la izquierda como octeto
Terminar la estructura
Función compartida privada IPStrToLong (ByVal IPstr como secuencia) como de largo
IP dévil como IP address
Partes déviles como IP_Parts
Buf dévil () como secuencia
IP = [IP address]. Ninguno
Si no [IP address] .TryParse (IPstr, IP) entonces
Vuelta 0
Terminar si
'La característica de IPAddress.Address “todavía se ha despreciado”, solamente nosotros
'necesitar una manera de convertir un IPv4 “punto del patio” a y desde un largo, tan apenas
'mantener a recopilador feliz, nosotros utilizan esta rutina
buf = ip.ToString.Split (“. “c)
Si buf. Longitud <> 4 entonces
'Apesadumbrado, no apoyamos la notación IPv6
Vuelta 0
Terminar si
piezas. La derecha = CByte (buf (3))
parts.middleRight = CByte (buf (2))
parts.middleLeft = CByte (buf (1))
piezas. Izquierda = CByte (buf (0))
Parts.address de vuelta
Función del final
|