Ich habe zwei Methoden, die eigentlich das selbe machen. Beide bleiben an einer und der selben Stelle stecken. Sieht jemand warum?
Programm Nr. 1:
Programm Nr. 2:
Programm Nr. 1:
VB.NET-Quellcode
- Shared Sub Connect(ByVal serverIP As String, ByVal message As String)
- Dim output As String = ""
- Try
- Dim port = 10045
- If Not My.Computer.Network.Ping(serverIP, 100) Then Exit Sub
- Dim client As New TcpClient(serverIP, port)
- Dim data(255) As [Byte]
- data = System.Text.Encoding.ASCII.GetBytes(message)
- Dim stream As NetworkStream = client.GetStream()
- stream.Write(data, 0, data.Length)
- data = New [Byte](255) {}
- Dim responseData As String = String.Empty
- ' Read the first batch of the TcpServer response bytes.
- stream.ReadTimeout = 500
- Dim bytes As Int32 = stream.Read(data, 0, data.Length)
- responseData = Encoding.ASCII.GetString(data, 0, bytes)
- output = "Received: " + responseData
- MessageBox.Show(output)
- ' Close everything.
- stream.Close()
- client.Close()
- Catch e As ArgumentNullException
- output = "ArgumentNullException: " + e.ToString()
- MessageBox.Show(output)
- Catch e As SocketException
- output = "SocketException: " + e.ToString()
- MessageBox.Show(output)
- End Try
- End Sub
Programm Nr. 2:
VB.NET-Quellcode
- Shared Sub Connect1(ByVal serverIP As String, ByVal message As String)
- Dim output As String = ""
- Try
- Dim port = 10045
- If Not My.Computer.Network.Ping(serverIP, 100) Then Exit Sub
- Dim tcp As New TcpClient()
- tcp.Connect(IPAddress.Parse(serverIP), port)
- Dim Writer As New StreamWriter(tcp.GetStream())
- Dim SrReciever As New StreamReader(tcp.GetStream())
- Dim buffer(256) As Char
- Writer.Write(message)
- Writer.Flush()
- SrReciever.Read(buffer, 0, 255)
- 'Writer.Flush()
- Catch e As ArgumentNullException
- output = "ArgumentNullException: " + e.ToString()
- MessageBox.Show(output)
- Catch e As SocketException
- output = "SocketException: " + e.ToString()
- MessageBox.Show(output)
- End Try
- End Sub
