伺服器-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()
結束子“連接
前端模塊