Questione : gamma del IP di conteggio di vb.net

ciao là, il
I vorrebbe contare le gamme del

127.0.0.1 del IP per esempio - il

to di 127.0.0.20 lo dà totale. come posso fare quello? class= del

Risposta : gamma del IP di conteggio di vb.net

Qui è come lo faccio…   Conver I “la notazione del puntino del quadrato„ in un numero intero lungo 64-bit.   Dopo quello, è abbastanza facile da sottrarre appena i due numeri per vedere quanti indirizzi là sono fra l'inizio e la gamma di IP address di conclusione:

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 non sostiene un tipo del sindacato, ma lo permette a 
    '“decorare„ una struttura per compire la stessa cosa
     _
    Struttura riservata IP_Parts
         Oscurare l'indirizzo come Int64
         Oscurar a destra come byte
         Oscurare il middleRight come byte
         Oscurare il middleLeft come byte
         Oscurar a sinistra come byte
    Concludere la struttura

    Funzione comune riservata IPStrToLong (ByVal IPstr come stringa) come lungamente
        IP fioco come IP address
        Parti fioche come IP_Parts
        Buf fioco () come stringa

        IP = [IP address]. Nessuno
        Se non [IP address] .TryParse (IPstr, IP) allora
            Ritorno 0
        Concluder se

        'La proprietà di IPAddress.Address “è stata svalutata ancora„, ma noi
        'avere bisogno di un senso convertire così appena un IPv4 “puntino del quadrato„ a e da un lungo,
        'mantenere il compilatore felice, noi usano questa procedura

        buf = ip.ToString.Split (“. “c)
        Se buf. Lunghezza <> 4 allora
            'Spiacente, non sosteniamo la notazione IPv6
            Ritorno 0
        Concluder se

        parti. Destra = CByte (buf (3))
        parts.middleRight = CByte (buf (2))
        parts.middleLeft = CByte (buf (1))
        parti. Parte di sinistra = CByte (buf (0))

        Parts.address di ritorno
    Funzione di conclusione
Altre soluzioni  
 
programming4us programming4us