Public Sub SendRequest(ByVal str As String, ByVal cl As clsTcpClient) Try Dim strm As NetworkStream = cl.GetStream strm.Write(Encoding.ASCII.GetBytes(str), 0, str.Length) gvar_status = "Idle" Catch ex As Exception gvar_status = "Failed" End Try End Sub
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)