Liebe Forumler,
Ich versuche derzeit eine Verbindung zwischen 2 Programme herzustellen und das senden uns empfangen auf beide Seiten aber es tut nicht richtig.
Ich möchte zum beispiel sätze senden und empfängen und anzeigen lassen auf beide seiten. Ich habe versucht aber ich weiss nicht wie ich es mache um das Senden und empfangen zu bekommen und zum anzeigen.
Ich versuche derzeit eine Verbindung zwischen 2 Programme herzustellen und das senden uns empfangen auf beide Seiten aber es tut nicht richtig.
Ich möchte zum beispiel sätze senden und empfängen und anzeigen lassen auf beide seiten. Ich habe versucht aber ich weiss nicht wie ich es mache um das Senden und empfangen zu bekommen und zum anzeigen.
Brainfuck-Quellcode
- __________________Deklarationen-----------------------------------
- Imports System.Net.Sockets
- Imports System.Text
- Imports System.IO
- Imports System.Threading
- Imports System.Net
- Dim stream As NetworkStream
- Dim streamw As StreamWriter
- Dim streamr As StreamReader
- Dim client As New TcpClient
- Dim thread As New Threading.Thread(AddressOf Listen)
- Dim KommunikationGestartet As Boolean
- Dim TCP_AntwortHauptprogramm As String
- Dim TCP_IP As String = "127.0.0.1"
- Dim Portverbindung As Integer = 8000
- Dim KommunikationLaueft As Boolean
- Dim TCP_Antwort As String
- ---------------------------- Funktion listen ()--------------------------------------------
- Sub Listen()
- While client.Connected
- Dim SendeString As String = Receive()
- End While
- End Sub
- --------------------------Funktion senden ()------------------------------------------
- Sub Senden(ByVal stext As String)
- streamw.WriteLine(stext)
- streamw.Flush()
- End Sub
- -------------------------------Funktion kommunikation---------------------------
- Private Sub kommunikation()
- Try
- client = New TcpClient(TCP_IP, Portverbindung)
- stream = client.GetStream
- streamw = New StreamWriter(stream)
- streamr = New StreamReader(stream)
- thread.Start()
- KommunikationLaueft = True
- Exit Sub
- Catch
- MessageBox.Show("Socket-Fehler ")
- End Try
- End Sub
- ----------------------------------------------------