Pytanie : vb.net hrabiowski ip pasmo

cześć tam,
I polubić the pasmo ip dla example

127.0.0.1 - 127.0.0.20

to dawać sumaryczny. dlaczego móc I to?

Odpowiedź : vb.net hrabiowski ip pasmo

Tutaj być jak I robić ono…   I conver the "kwadrat kropka" notacja w 64 kawałek tęsknić integer.   Po pasmo, ono być dosyć łatwy właśnie the dwa liczba ile adres tam  być między the początek i ending Adres IP pasmo:

(1):
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:

    'VB.Net wspierać Zrzeszeniowy typ, ale ono pozwolić ty 
    '"dekorować" struktura the ten sam rzecz
     _
    Intymny Struktura IP_Parts
         Ćmić adres Jako Int64
         Ćmić Dobrze Jako Bajt
         Ćmić middleRight Jako Bajt
         Ćmić middleLeft Jako Bajt
         Ćmić Z Lewej Strony Jako Bajt
    Kończyć Struktura

    Intymny Podzielony Funkcja IPStrToLong (ByVal IPstr Sznurek) Długo
        Ciemnawy ip Jako IPAddress
        Ciemnawy część Jako IP_Parts
        Ciemnawy buf () Sznurek

        ip = [IPAddress]. Nikt
        Jeśli nie [IPAddress] .TryParse (IPstr, ip) Wtedy
            Powrót (0)
        Kończyć Jeżeli

        'The IPAddress.Address własność "deprecjonować", ale my wciąż
        'potrzebować sposób IPv4 "kwadrat kropka" do i z długi, w ten sposób właśnie
        'utrzymywać the kompilator szczęśliwy, my używać ten rutyna

        buf = ip.ToString.Split (". "c)
        Jeżeli buf. Długość <> 4 Wtedy
            'Zmartwiony, my wspierać IPv6 notacja
            Powrót (0)
        Kończyć Jeżeli

        część. Prawica = CByte (buf (3))
        parts.middleRight = CByte (buf (2))
        parts.middleLeft = CByte (buf (1))
        część. Lewica = CByte (buf ((0)))

        Powrotny parts.address
    Końcówka Funkcja
Inne rozwiązania  
 
programming4us programming4us