Visual Basic

Imports System.IO

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click


        Dim find As String = "String To Find"
        Dim replace As String = "String To Replace"
        Dim path As String = "c:\InputPath.doc"
        Dim updatedpath As String = "c:\OutputPath.doc"
        Dim encoding As System.Text.Encoding = System.Text.Encoding.GetEncoding(1252)

        Dim fi As New FileInfo(path)

        Dim fs As New FileStream(path, FileMode.Open)

        Dim bytes(CInt(fs.Length)) As Byte

        fs.Read(bytes, 0, CInt(fs.Length))
        fs.Close()

        Dim newBytes() As Byte = DoReplace(bytes, encoding.GetBytes(find), encoding.GetBytes(replace))

        fs = New FileStream(updatedpath, FileMode.Create)
        fs.Write(newBytes, 0, newBytes.Length)
        fs.Close()

    End Sub

    Public Function DoReplace(ByVal bytes As Byte(), ByVal findBytes As Byte(), ByVal replaceBytes() As Byte) As Byte()

        Dim newBytes As New Generic.List(Of Byte)
        Dim ndx As Integer = 0

        For x As Integer = 0 To bytes.Length - 1
            ' bytes is the original files bytes 
            If bytes(x) = findBytes(ndx) Then
                ' findBytes is a byte[] from the"find" string 
                If ndx = (findBytes.Length - 1) Then
                    For y As Integer = 0 To replaceBytes.Length - 1
                        'replaceBytes is a byte[] from the "replace" string 
                        newBytes.Add(replaceBytes(y))
                    Next
                    ndx = 0
                Else
                    ndx += 1
                End If
            Else
                If ndx > 0 Then
                    For y As Integer = 0 To ndx - 1
                        newBytes.Add(findBytes(y))
                    Next
                End If
                ndx = 0
                newBytes.Add(bytes(x))
            End If
        Next

        Return newBytes.ToArray

    End Function
End Class

Imports System.Net.Sockets
Imports System.Text
Module Module1
    Sub Main()
        Dim tcpListener As New TcpListener(6100)
        Dim requestCount As Integer
        Dim clientSocket As TcpClient
        tcpListener.Start()
        msg("Server Started")
        clientSocket = tcpListener.AcceptTcpClient()
        msg("Accept connection from client")
        requestCount = 0

        While (True)
            Try
                requestCount = requestCount + 1
                Dim networkStream As NetworkStream = _
                        clientSocket.GetStream()
                Dim bytesFrom(10024) As Byte
                networkStream.Read(bytesFrom, 0, CInt(clientSocket.ReceiveBufferSize))
                Dim dataFromClient As String = _
                        System.Text.Encoding.ASCII.GetString(bytesFrom)
                dataFromClient = _
            dataFromClient.Substring(0, dataFromClient.IndexOf("$"))
                msg("Data from client -  " + dataFromClient)
                Dim serverResponse As String = _
                    "Server response " + Convert.ToString(requestCount)
                Dim sendBytes As [Byte]() = _
                    Encoding.ASCII.GetBytes(serverResponse)
                networkStream.Write(sendBytes, 0, sendBytes.Length)
                networkStream.Flush()
                msg(serverResponse)
            Catch ex As Exception
                MsgBox(ex.ToString)
            End Try
        End While


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

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

Imports System.Net.Sockets
Imports System.Text
Public Class lokMudClient
    Dim clientSocket As New System.Net.Sockets.TcpClient()
    Dim serverStream As NetworkStream

    Private Sub btnConnect_Click(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles btnConnect.Click
        Dim serverStream As NetworkStream = clientSocket.GetStream()
        Dim buffSize As Integer
        Dim outStream As Byte() = _
        System.Text.Encoding.ASCII.GetBytes("Message from Client$")
        serverStream.Write(outStream, 0, outStream.Length)
        serverStream.Flush()

        Dim inStream(10024) As Byte
        buffSize = clientSocket.ReceiveBufferSize
        serverStream.Read(inStream, 0, buffSize)
        Dim returndata As String = _
        System.Text.Encoding.ASCII.GetString(inStream)
        msg("Data from Server : " + returndata)
    End Sub

    Private Sub lokMudClient_Load(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles MyBase.Load
        msg("Client Started")
        clientSocket.Connect("204.209.44.6", 6100)
        outputBox.Text = "Client Socket Program - Server Connected ..."
    End Sub

    Sub msg(ByVal mesg As String)
        outputBox.Text = outputBox.Text + Environment.NewLine + " >> " + mesg
    End Sub
    Private Sub btnClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClose.Click
        Me.Close()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOptions.Click
        dialogsForm.Show()
    End Sub
End Class