tcp server client

[bas1278]

ik heb een tcp server een client gemaakt maar het werkt nog niet helemaal.
de bedoeling is dat hij text doorgeeft.

ik kan met een client op mijn pc verbinden met server op mijn pc
ik kan met een client op een andere pc in het netwerk verbinden met server op mijn pc
maar, ik kan niet vanaf buiten het netwerk verbinden met de server.

server:

Imports System.Net
Imports System.IO
Imports System.Net.Sockets
Module Module1
    Sub Main()
        Dim clientListener As New TcpListener(49494)
        clientListener.Start()
        Dim mySocket As Socket = clientListener.AcceptSocket()
        Dim recieveBuff(225) As Byte
        mySocket.Receive(recieveBuff, recieveBuff.Length, SocketFlags.None)
        Dim str As String = System.Text.Encoding.ASCII.GetString(recieveBuff, 0, recieveBuff.Length).Trim(Microsoft.VisualBasic.ChrW(0))
        While Not str.StartsWith(".")
            Console.WriteLine(str)
            mySocket.Receive(recieveBuff, recieveBuff.Length, SocketFlags.None)
            str = System.Text.Encoding.ASCII.GetString(recieveBuff, 0, recieveBuff.Length).Trim(Microsoft.VisualBasic.ChrW(0))
        End While
        Console.WriteLine("")
        clientListener.Stop()
    End Sub
End Module

client:

Imports System.Net
Imports System.IO
Imports System.Net.Sockets
Module Module1
    Sub Main()
        Try
            Console.WriteLine("Connecting to 49494 192.168.1.78")
            Dim serverListener As New TcpClient("192.168.1.78", 49494)
            Dim readStream As Stream = serverListener.GetStream
            serverListener.SendBufferSize = 256
            Console.WriteLine("Input Lines:")
            Dim str As String = Console.ReadLine()
            While True
                Dim sendBuff As Byte() = System.Text.Encoding.ASCII.GetBytes(str)
                readStream.Write(sendBuff, 0, sendBuff.Length)
                If str.StartsWith(".") Then
                    GoTo Done
                End If
                str = Console.ReadLine()
            End While

Done:       Console.WriteLine("Done")
        Catch exp As Exception
            Console.WriteLine("Exception: " + exp.ToString())
        End Try
    End Sub
End Module

bas

 

[raymondhvh]

als dit is om een RAT ofzo temaken, of om een chat te maken
dan zou ik ftp gebruiken met .txt bestanden

 

[bas1278]

ik wil informatie over sturen.
als ik bij de cient op een button klik dat de server dan iets uitvoerd en een reactie geeft dat het gelukt is.

ik hoop dat dit duidelijk is