伺服器-1

進口系統

進口System.IO

進口System.Net

進口的System.Net.Sockets

進口System.Text

進口Microsoft.VisualBasic程序

模塊模塊1

    子的Main（）

            昏暗的服務器的TcpListener

            服務器=無

            嘗試

                “端口13000設置的TcpListener。

                昏暗的端口的Int32 = 13000

                朦朧localAddr作為ip地址= IPAddress.Parse（“127.0.0.1”）

                服務器=新的TcpListener（localAddr，口）

                “開始偵聽客戶端請求。

                server.Start（）

                “緩衝區讀取數據

                昏暗的字節（1024）作為字節

                昏暗的數據作為字符串=無

                “輸入監聽循環。

                而真

                Console.Write（“10179517-1Waiting用於連接......”）

                    “執行阻塞調用接受請求。

                    “你也可以用戶server.AcceptSocket（）在這裡。

                    昏暗的客戶端作為的TcpClient = server.AcceptTcpClient（）

                    Console.WriteLine（“保持通話”！）

                    數據=無

                    “獲取流對象讀取和寫入

                    昏暗的流作為的NetworkStream = client.GetStream（）

                    昏暗我作為的Int32

                    '循環接收所有客戶端發送的數據。

                    I = stream.Read（字節，0，bytes.Length）

                    而（ⅰ<> 0）

                        “翻譯數據字節到ASCII字符串。

                        數據= System.Text.Encoding.ASCII.GetString（字節，0，i）的

                        Console.WriteLine（“收到：{0}”，數據）

                        “處理由客戶端發送的數據。

                        數據= data.ToUpper（）

                        昏暗的味精作為字節（）= System.Text.Encoding.ASCII.GetBytes（數據）

                        '發送回響應。

                        stream.Write（味精，0，msg.Length）

                        Console.WriteLine（“發送：{0}”，數據）

                        I = stream.Read（字節，0，bytes.Length）

                    雖然結束

                    “關閉和端接

                    client.Close（）

                雖然結束

            卡子E作為SocketException

                Console.WriteLine（“SocketException：{0}”，E）

            最後

                server.Stop（）

            結束嘗試

            Console.WriteLine（ControlChars.Cr +“敲擊回車鍵繼續......”）

            Console.Read（）

        結束子“主

前端模塊

伺服器-2

進口系統

進口System.IO

進口System.Net

進口的System.Net.Sockets

進口System.Text

進口Microsoft.VisualBasic程序

模塊模塊1

    子的Main（）

        昏暗的服務器的TcpListener

        服務器=無

        嘗試

            “端口15000設置的TcpListener。

            昏暗的端口的Int32 = 13000

            朦朧localAddr作為ip地址= IPAddress.Parse（“127.0.0.2”）

            服務器=新的TcpListener（localAddr，口）

            “開始偵聽客戶端請求。

            server.Start（）

            “緩衝區讀取數據

            昏暗的字節（1024）作為字節

            昏暗的數據作為字符串=無

            “輸入監聽循環。

            而真

                Console.Write（“10179517-2Waiting用於連接......”）

                “執行阻塞調用接受請求。

                “你也可以用戶server.AcceptSocket（）在這裡。

                昏暗的客戶端作為的TcpClient = server.AcceptTcpClient（）

                Console.WriteLine（“保持通話”！）

                數據=無

                “獲取流對象讀取和寫入

                昏暗的流作為的NetworkStream = client.GetStream（）

                昏暗我作為的Int32

                '循環接收所有客戶端發送的數據。

                I = stream.Read（字節，0，bytes.Length）

                而（ⅰ<> 0）

                    “翻譯數據字節到ASCII字符串。

                    數據= System.Text.Encoding.ASCII.GetString（字節，0，i）的

                    Console.WriteLine（“收到：{0}”，數據）

                    “處理由客戶端發送的數據。

                    數據= data.ToUpper（）

                    昏暗的味精作為字節（）= System.Text.Encoding.ASCII.GetBytes（數據）

                    '發送回響應。

                    stream.Write（味精，0，msg.Length）

                    Console.WriteLine（“發送：{0}”，數據）

                    I = stream.Read（字節，0，bytes.Length）

                雖然結束

                “關閉和端接

                client.Close（）

            雖然結束

        卡子E作為SocketException

            Console.WriteLine（“SocketException：{0}”，E）

        最後

            server.Stop（）

        結束嘗試

        Console.WriteLine（ControlChars.Cr +“敲擊回車鍵繼續......”）

        Console.Read（）

    結束子“主

前端模塊

客戶端

進口系統

進口System.IO

進口System.Net

進口的System.Net.Sockets

進口System.Text

進口Microsoft.VisualBasic程序

模塊模塊1

    子的Main（）

        連接（“127.0.0.1”，“嗨~~”）

    END SUB

    子連接（BYVAL服務器[字符串]，BYVAL消息[字符串]）

        嘗試

            “創建一個TcpClient的。

            “注意，此客戶端工作，你需要有一個TCPSERVER 

            “連接到同一地址所指定的服務器，端口

            “組合。

            昏暗的端口的Int32 = 13000

            昏暗的客戶端作為新的TcpClient（服務器，端口）

            “翻譯傳遞的信息轉換成ASCII並將其存儲為一個字節數組。

            昏暗的數據為[字節]（）= System.Text.Encoding.ASCII.GetBytes（消息）

            “獲取閱讀和寫作客戶端流。

            “流流= client.GetStream（）;

            昏暗的流作為的NetworkStream = client.GetStream（）

            “將消息發送到所連接的TCPSERVER。 

            stream.Write（數據1,0，data.Length）

            Console.WriteLine（“發送：{0}”，消息）

            “收到TcpServer.response。

            “緩衝器以存儲響應字節。

            數據=新[字節]（256）{}

            “字符串存儲響應ASCII表示。

            朦朧responseData為[字符串] = [字符串] .Empty

            “讀第一批的TCPSERVER響應字節。

            暗淡的字節作為的Int32 = stream.Read（數據1,0，data.Length）

            responseData = System.Text.Encoding.ASCII.GetString（數據0，字節）

            Console.WriteLine（“收到：{0}”，responseData）

            “關閉的一切。

            stream.Close（）

            client.Close（）

        卡子E作為ArgumentNullException

            Console.WriteLine（“ArgumentNullException：{0}”，E）

        卡子E作為SocketException

            Console.WriteLine（“SocketException：{0}”，E）

        結束嘗試

        Console.WriteLine（ControlChars.Cr +“，按回車鍵繼續......”）

        Console.Read（）

    結束子“連接

前端模塊