hi
ich habe mir eine programm in vb.net geschrieben das mir status infos zu meinem root liefert und noch andere funktionen kann.
jetzt hatte ich die idee, eine socketverbindung zu meinem tool aufzubauen, ich kann mich auch verbinden aber die form reagiert nicht mehr.
so wie ich den server starte, bleibt die form stehen und wartet auf die verbindung, ich möchte aber denoch an meinem programm lokal arbeiten und trozdem den server im hintergrund laufen lassen.
was mache ich falsch?
mein code für den server
danke
ich habe mir eine programm in vb.net geschrieben das mir status infos zu meinem root liefert und noch andere funktionen kann.
jetzt hatte ich die idee, eine socketverbindung zu meinem tool aufzubauen, ich kann mich auch verbinden aber die form reagiert nicht mehr.
so wie ich den server starte, bleibt die form stehen und wartet auf die verbindung, ich möchte aber denoch an meinem programm lokal arbeiten und trozdem den server im hintergrund laufen lassen.
was mache ich falsch?
mein code für den server
VB.NET-Quellcode
- Imports System.Net.Sockets
- Imports System.Text
- Module server
- Sub Main()
- ' Must listen on correct port- must be same as port client wants to connect on.
- Const portNumber As Integer = 8000
- Dim tcpListener As New TcpListener(portNumber)
- tcpListener.Start()
- label1.text = "Waiting for connection"
- 'Accept the pending client connection and return
- 'a TcpClient initialized for communication.
- Dim tcpClient As TcpClient = tcpListener.AcceptTcpClient()
- label1.text ="Connection accepted."
- ' Get the stream
- Dim networkStream As NetworkStream = tcpClient.GetStream()
- ' Read the stream into a byte array
- Dim bytes(tcpClient.ReceiveBufferSize) As Byte
- networkStream.Read(bytes, 0, CInt(tcpClient.ReceiveBufferSize))
- ' Return the data received from the client to the console.
- Dim clientdata As String = Encoding.ASCII.GetString(bytes)
- 'Console.WriteLine(("Client sent: " + clientdata))
- Dim responseString As String = "Connected to server."
- Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(responseString)
- networkStream.Write(sendBytes, 0, sendBytes.Length)
- tcpClient.Close()
- tcpListener.Stop()
- End Sub
- End Module
danke
ähh? wasn das