VB .net 2010 Winsock Nachfolger mit Events. Wer weis wies geht?

[Philipp F. (philipp5054)]

Hallo Zusammen,
ich versuche ganz ehrlich seit 2 1/2 Stunden selbst eine Lösung zu 
finden. Ich will eine Mini Anwendung welche auf eingehende Verbindung 
wartet (TCP/IP). Wenn nun jemand "ankloppft" soll ein Event ausgelöst 
werden in welchem dann die Verbindung angenommen wird. Im nächsten 
Schritt soll dann bei jedem Daten Empfang ein weiterer Event (Sub) 
ausgelöst werden.

Hier mein VB6 Source zu der Aufgabe:

Private Sub Command1_Click()
  Winsock1.SendData Text1.Text & vbCrLf
End Sub

Private Sub Form_Load()
  Text1.Text = ""
  Text2.Text = ""
  Winsock1.Listen
  Debug.Print "Winsock is Listen"
End Sub

Private Sub Winsock1_Close()
  Debug.Print "Winsock Close"
End Sub

Private Sub Winsock1_Connect()
  Debug.Print "Winsock Connect"
End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
  Debug.Print "Winsock gets Connection Request"
  Winsock1.Close
  Debug.Print "Winsock Close"
  Winsock1.Accept (requestID)
  Debug.Print "Winsock Acceptet Connection"
End Sub


Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
  Dim strDummy As String
  Call Winsock1.GetData(strDummy, vbString)
  Text2.Text = Text2.Text & strDummy
End Sub

Kann mir biiiiiitte jemand eine einfache VB .net Lösung aufzeigen? 
Gegoogelt habe ich wie bekloppt. Habe schon was von Listener und Co 
gehört. Allerdings haben die keine Events.

Vielen Dank schon mal an alle die bis hier gelesen haben ;-)

Gruß Philipp

[Klaus W. (mfgkw)]

Vielleicht findet man mit google ein passenderes Forum?
Nicht, daß ich etwas dagegen hätte - aber hier nach VB-Hausuafgaben zu 
fragen ist vielleicht nicht so ergiebig wie bei einem thematisch 
passenderen Forum.
Hier sind mehrheitlich Leute unterwegs, die mit Mikrocontrollern 
unterwegs sind und die in Assembler und C programmieren.

[Philipp F. (philipp5054)]

Hallo Klaus,
also mit Hausaufgaben hat das ehrlich nichts zu tun!!!
Aus der Schule bin ich raus. Wollte das für eine Bastelei mit nem 
Android als Gegenstelle nutzen. Ich meine unter VB6 läuft es ja doch 
will nicht am alten hängen bleiben. ;-)
Der Tip mit dem anderen Forum ist gut doch die Anzahl ist so groß das 
ich keine Lust habe mich an 100 anzumelden. In der hoffnung das auch nur 
in einem wirklich geholfen wird. Hier weiß ich mitlerweile das es viele 
hilfsbereite Menschen mit viel wissen gibt.

In diesem Sinne.

Gruß Philipp

[bluppdidupp (Gast)]

http://msdn.microsoft.com/de-de/library/system.net.sockets.tcplistener%28v=vs.80%29.aspx

[bluppdidupp (Gast)]

Da kannst du dir ja ne Wrapper-Klasse drumbauen, wenn du unbedingt 
Events haben willst ;D

[Finchi (Gast)]

Am besten machst Du das mit einem Thread(System.Threading Namespace)
in diesen wartest du mit
TcpClient Client = TcpListener.AcceptTcpClient()
Auf einen Clienten dann kannst du den Clienten an eine Andere Sub 
weitergebn

MFG