'VB.Net ne soutient pas un type des syndicats, mais il vous permet à
'« décorer » une structure pour accomplir la même chose
_
Structure privée IP_Parts
Obscurcir l'adresse comme Int64
Obscurcir bien comme byte
Obscurcir le middleRight comme byte
Obscurcir le middleLeft comme byte
Obscurcir à gauche comme byte
Finir la structure
Fonction partagée privée IPStrToLong (ByVal IPstr comme corde) en tant que longtemps
Faible IP comme IP address
Faibles parties comme IP_Parts
Faible buf () comme corde
IP = [IP address]. Aucun
Sinon [IP address] .TryParse (IPstr, IP) puis
Retour 0
Finir si
'La propriété d'IPAddress.Address « a été toujours dépréciée », mais nous
'avoir besoin d'une manière de convertir un IPv4 « point de quadruple » à et d'un long, tellement juste
'maintenir le compilateur heureux, nous emploient cette routine
buf = ip.ToString.Split (« . « c)
Si buf. Longueur <> 4 puis
'Désolé, nous ne soutenons pas la notation IPv6
Retour 0
Finir si
pièces. Droit = CByte (buf (3))
parts.middleRight = CByte (buf (2))
parts.middleLeft = CByte (buf (1))
pièces. Gauche = CByte (buf (0))
Parts.address de retour
Fonction de fin
|
