服務器端？
進口？系統。Net .套接字
進口？System.Net
模塊？socketsever
Sub？主()
啟動服務器()
結束？潛水艇
私人？Sub？啟動服務器()
創建服務器端套接字
暗淡？sServer？作為？新的？套接字(AddressFamily。互聯網？SocketType。Dgram，？協議類型。Udp)
暗淡？myip？作為？IP地址
制定本地環路的ip地址。
myip？=?IP地址。parse(" 10.13.115.105 ")
設置服務器端口號。
暗淡？sServerep？作為？新的？IPEndPoint(myip，2001)
設置客戶端的端口號。
暗淡？clientep？作為？新的？IPEndPoint(myip，2002)
將端口綁定到套接字。
sServer。綁定(sServerep)
什麽時候？真實的
嘗試
暗淡？字節(100)？作為？字節
等待客戶的請求
sServer。接收自(字節，？clientep)
暗淡？str？作為？字符串？=?系統。Text.Encoding.ASCII.GetString(字節)
將字符轉換為大寫。
str？=?海峽。圖珀
字節？=?系統。text . encoding . ascii . getbytes(str)
返回結果
sServer。SendTo(字節，？clientep)
接住？e？作為？SocketException
結束？嘗試
結束？在…期間
結束？潛水艇
結束？組件
客戶
界面？還有程序？
進口？系統。Net .套接字
進口？System.Net
公共？班級？表單1
繼承？系統。窗口.窗體.窗體
私人？Sub？bsend_Click(ByVal？寄件人？作為？系統。對象，？ByVal？e？作為？系統。EventArgs)？手柄？bsend。點擊
為客戶端創建壹個套接字。
暗淡？cClient？作為？新的？套接字(AddressFamily。互聯網？SocketType。Dgram，？協議類型。Udp)
指定本地環路的ip地址。
暗淡？myip，？myp 1？作為？IP地址
myip？=?IP地址。parse(" 10.13.115.105 ")
myp 1？=?IP地址。parse(" 10.13.115.136 ")
設置服務器端口號。
暗淡？Serverep？作為？新的？IPEndPoint(myp 1，？2001)
設置客戶端的端口號。
暗淡？clientep？作為？新的？IPEndPoint(myip，2002)
將端口綁定到套接字。
客戶。綁定(客戶端)
嘗試
暗淡？str？作為？字符串？=?文本輸入。文本
暗淡？bytes()？作為？字節？=?系統。text . encoding . ascii . getbytes(str)
向服務器發出請求。
客戶。SendTo(字節，？Serverep)
暗淡？字節2(100)？作為？字節
接受服務器的響應結果。
客戶。接收自(字節2，Serverep)
str？=?系統。Text.Encoding.ASCII.GetString(字節2)
在文本框中顯示結果。
文本顯示。文字？=?文本顯示。文字？& amp？vbNewLine？& amp？潛艇用熱中子反應堆（submarine thermal reactor的縮寫）
接住？呃？作為？SocketException
MsgBox(er。ToString)
結束？嘗試
客戶。關閉()
結束？潛水艇
結束？班級