Router per UpnP ansteuern

Dim client As New TcpClient

client.Connect("192.168.0.1", 80)

Dim stream As NetworkStream = client.GetStream
Dim bytes As Byte() = New Byte((My.Resources.msg.Length)) {}

bytes = Encoding.ASCII.GetBytes(My.Resources.msg)

stream.Write(bytes, 0, bytes.Length)
bytes = New Byte(1024) {}

Dim str As String = String.Empty

Dim count As Integer = stream.Read(bytes, 0, bytes.Length)

str = Encoding.ASCII.GetString(bytes, 0, count)

stream.Close()
client.Close()