Problem mit Chat code

  • VB.NET

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von Mad Andy.

    Problem mit Chat code

    Hi ich hab hier nen chat und mein Problem ist das die anwendung nicht gestartet wird ich bekomme immer den Fehler das der Zielcomputer den zugriff verweigert was kann ich da tun ??

    Server

    VB.NET-Quellcode

    1. Imports System.Net.Sockets
    2. Imports System.Text
    4. Public Class Form1
    6. Private SimpleServer As TcpListener
    7. Private Client As New TcpClient
    8. Private Stream As NetworkStream
    9. Dim bytes() As Byte
    11. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    13. SimpleServer = New TcpListener(System.Net.IPAddress.Parse(0), 12345)
    15. SimpleServer.Start()
    17. SimpleServer.BeginAcceptTcpClient(AddressOf OnConnect, New Object)
    19. End Sub
    21. Private Sub OnConnect(ByVal ar As System.IAsyncResult)
    22. Client = SimpleServer.EndAcceptTcpClient(ar)
    23. Stream = Client.GetStream
    25. ReDim bytes(Client.ReceiveBufferSize)
    26. Stream.BeginRead(bytes, 0, CInt(Client.ReceiveBufferSize), AddressOf onGetData, New Object)
    27. End Sub
    29. Private Sub onGetData(ByVal ar As System.IAsyncResult)
    31. Dim clientdata As String = Encoding.ASCII.GetString(bytes)
    32. MsgBox(clientdata)
    33. Stream.BeginRead(bytes, 0, CInt(Client.ReceiveBufferSize), AddressOf onGetData, New Object)
    34. End Sub
    37. End Class


    client

    VB.NET-Quellcode

    1. Imports System.Net.Sockets
    2. Imports System.Text
    4. Public Class Form2
    6. Private SimpleClient As New TcpClient
    7. Private Stream As NetworkStream
    9. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    10. SimpleClient.Connect("192.168.2.1", 12345)
    11. Stream = SimpleClient.GetStream
    12. TextBox2.Text = Stream.ToString
    13. End Sub
    18. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    19. Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(textbox1.text)
    20. Stream.Write(sendBytes, 0, sendBytes.Length)
    21. End Sub
    22. End Class