TcpListener bestemte ip'er

har fundet ud af det

nej har jeg ikke sorry

det nemmeste er vel at checke IP naar du har acceptet en connection og hvis den
ikke matcher good listen saa closer du connection med det samme

okay prøve lige og se om jeg kan få det til at virke.
trode bare at man kunne lave den her om: Dim srv As New TcpListener(IPAddress.Any, 2275)
ændre den der IPaddress.any

kan umedbart ikke finde en function som giver mig ip'en på clienten

jeg mener at den parameter er til hvis serveren har flere netkort og flere IP
adresser at vaelge hvilken man vil lytte paa

øhh vil det sige jeg ikke har mulighed for det.. forstår ikke helt hvad du mener

kan du ikke finde den i det TcpClient objekt som du faar tilbage
fra Accept ?

nej det er der jeg har ledt...
syntes jeg har kørt det hele igennem

.Client.RemoteEndPoint i .NET 2.0

jeg har desværre ikke fået vs 2005 i nu.
jeg har 2003
der er ikke nogen anden måde??

hvis du kan leve med en Socket fremfor en TcpClient, saa kan du bruge
AcceptSocket fremfor Accept

(Socket har .RemoteEndPoint)

har aldrig brugt socket før...
kan du lave et lille eksempel?

jeg kan godt proeve at bixe noget

TcpClient eksempel:

Imports System
Imports System.IO
Imports System.Net
Imports System.Net.Sockets

Class Server
    Public Shared Sub Main(ByVal args As String())
        Dim server As TcpListener = New TcpListener (IPAddress.Any, 1234)
        server.Start
        Dim client As TcpClient = server.AcceptTcpClient
        Dim rdr As StreamReader = New StreamReader (client.GetStream)
        Dim wrt As StreamWriter = New StreamWriter (client.GetStream)
        Dim line As String
        line = rdr.ReadLine
        While Not (line Is Nothing) And line <> "QUIT"
            Console.WriteLine(line)
            line = rdr.ReadLine
        End While
        rdr.Close
        wrt.Close
        client.Close
        server.Stop
    End Sub
End Class

samme eksempel med Socket:

Imports System
Imports System.IO
Imports System.Net
Imports System.Net.Sockets
Imports System.Text

Class Server
    Public Shared Function ReadLine(sock As Socket) As String
        Dim b(1000) As Byte
        Dim n As Integer = 0
        Do
            n += sock.Receive(b, n, b.Length - n, 0)
        Loop Until b(n-1) = 10
        return Encoding.Default.GetString(b, 0, n - 2)
    End Function
    Public Shared Sub Main(ByVal args As String())
        Dim server As TcpListener = New TcpListener (IPAddress.Any, 1234)
        server.Start
        Dim sock As Socket = server.AcceptSocket
        Dim line As String
        line = ReadLine(sock)
        While Not (line Is Nothing) And line <> "QUIT"
            Console.WriteLine(line)
            line = ReadLine(sock)
        End While
        sock.Close
        server.Stop
    End Sub
End Class

og

        Console.WriteLine(sock.RemoteEndPoint)

udskriver det rigtige !

bemærk at ovenstående egen ReadLine funktion ikke er production quality

den forudsætter at linie afslutning er sidst i en pakke

den forudsætter at linier ikke er længere end 1000 byte

etc.

Tak...
bare læg et svar

ok