automatizzando

Hello, Nice work.
Why do not you post the source?
thanks

Imports Microsoft.VisualBasic
Imports System.Net
Imports System.IO
Imports System.Net.Sockets
Imports System.Text
Module Module1
Public Sub Main()
Dim Port As Int32 = 2000
' Port, defined in your PLC project
Dim LocalAddress As IPAddress = IPAddress.Parse("192.168.0.05")
'PC IP address in the same group as PLC IP address
Dim serverSocket As New TcpListener(LocalAddress, Port)
Dim J As Int32
Dim bytesFrom(1024) As Byte
' Input buffer where the messages are read
Dim clientSocket As TcpClient
Dim StrJ As String
Dim StrK As String

'Start the process
serverSocket.Start()
msg("Server Started")
clientSocket = serverSocket.AcceptTcpClient()
msg("Accept connection from client")

'Major loop
While (True)
Try

Dim networkStream As NetworkStream = clientSocket.GetStream()
'Reading the incoming message
J = networkStream.Read(bytesFrom, 0, bytesFrom.Length)
If J > 0 Then
'Message received, J is the number of the received bytes
'Showing the first byte which contains PLC IB0
StrJ = Str(bytesFrom(0))
msg("Data from client - " + StrJ)

Dim serverResponse As String = "Server response "

' Put some information in the output buffer, sendBytes(0) will be shown as QB0 (actually only its first six bits)
Dim sendBytes(255) As Byte

StrK = InputBox("Insert value", "0")
sendBytes(0) = Val(StrK)

networkStream.Write(sendBytes, 0, sendBytes.Length)

networkStream.Flush()
msg(serverResponse + StrK)
End If
Catch ex As Exception
MsgBox(ex.ToString)
End Try
End While

clientSocket.Close()
serverSocket.Stop()
msg("exit")
Console.ReadLine()
End Sub

Sub msg(ByVal mesg As String)
mesg.Trim()
Console.WriteLine(" >> " + mesg)
End Sub
End Module

[/code]