C# と VB.NET の質問掲示板

> 　自端末のIPをネットマスクしたい。
> 　172.30.10.4(自端末IP)を255.255.0.0のネットマスクをして
> 　172.30.0.0のIPアドレスを取得したい。

' ↓めっちゃテキトー。

Module Program
  Sub Main()
    Dim input As String = "172.30.10.4"
    Dim tokens() As String = input.Split(New Char() {"."c})
    Dim mask() As Byte = { 255, 255, 0, 0 }
    Dim first As Boolean = True
    Dim I As Integer = 0
    For Each token As String In tokens
      If Not first Then
        Console.Write(".")
      Else
        first = Not first
      End If
      Console.Write(Byte.Parse(token) And mask(I))
      I = I + 1
    Next
  End Sub
End Module

直接的なものはないので、IPAddress をバイト配列に直してビット演算、かなあ。
επιστημηさんのソースをいぢってみた。

Imports System.Net

Module Program
    Sub Main()
        Dim bytes As Byte() = IPAddress.Parse("172.30.10.4").GetAddressBytes()
        Dim mask() As Byte = {255, 255, 0, 0}
        For i As Integer = 0 To bytes.Length - 1
            bytes(i) = bytes(i) And mask(i)
        Next
        Console.WriteLine(New IPAddress(bytes))
        Console.ReadLine()
    End Sub
End Module

■No44639 (なみえ さん) に返信
> 　172.30.10.4(自端末IP)を255.255.0.0のネットマスクをして
> 　172.30.0.0のIPアドレスを取得したい。

手抜き実装。

Dim client, mask, result As System.Net.IPAddress
client = System.Net.IPAddress.Parse("172.30.10.4")
mask = System.Net.IPAddress.Parse("255.255.0.0")
result = New System.Net.IPAddress(client.Address And mask.Address)

MsgBox(result.ToString())