'VB.Net stöttar inte en facklig typ, men den låter dig till
'”dekorera” en strukturera för att utföra det samma tinget
_,
Privat strukturera IP_Parts
Dunkelt tilltala som Int64
Dunkel rätt som byte
Dunkel middleRight som byte
Dunkel middleLeft som byte
Dunkelt som lämnas som byte
Avsluta strukturerar
Delade privata fungerar IPStrToLong (ByVal IPstr som stränger) som Long
Dunkel ip som IP address
Dunkla delar som IP_Parts
Dunkel buf () som stränger
ip = [IPet address]. Inga
Om inte [IPet address] .TryParse (IPstr, ip) därefter
Retur 0
Avsluta om
'Har IPAddress.Address-egenskapen ”depreciated”, men vi stillar
'behöv a långt att konvertera en IPv4 ”kvadrat pricker” till och från ett långt, så precis
'uppehället den lyckliga kompilatorn, vi använder denna som är rutinmässig
buf = ip.ToString.Split (”. ”c)
Om buf. Längd <> 4 därefter
'Ledset, vi stöttar beteckningssystemet inte IPv6
Retur 0
Avsluta om
delar. Högert = CByte (buf (3))
parts.middleRight = CByte (buf (2))
parts.middleLeft = CByte (buf (1))
delar. Lämnat = CByte (buf (0))
Återgång parts.address
Avsluta fungerar
|