進口？系統
進口？System.Net
進口？系統。Net .套接字
進口？系統。穿線
進口？系統。文本
還要理解異步和委托。
如果更簡單的話
sub？tcplisten()？監視進程
Const？LPort？作為？整數？=?6850?本地監聽端口
暗淡？IPadd？作為？IPAddress？=?Dns。GetHostEntry(Dns。GetHostName())。地址列表(1)？本地IP
地址列表包括IPV6和IPV4。
暗淡？IPEP？作為？新的？IPEndPoint(IPadd，LPort)？結節
TCPL？=?新的？TcpListener(IPEP)？建立壹個監控實例
TCPL。Start()？開始傾聽
如果？TCPL。待定？=?真的嗎？然後呢？如果有連接可以訪問。
暗淡？TCPLX？作為？新的？套接字(AddressFamily。互聯網，SocketType。流，協議類型。Tcp)？創建新的套接字
TCPLX=TCPL。接受()？將第壹個掛起的連接傳遞給新的套接字，因為偵聽套接字將繼續偵聽。
暗淡？瑞普。asnew？ipendpoint=TCPLX。遠程端點？此時獲取遠程ip和端口號。
listbox.add(ripep.ip)
暗淡？buff？作為？字節()
buff=TCPLX。接收()？聽著& gt接受& gtRecieve此時可以接受數據
暗淡？s？作為？字符串=編碼。Default.GetString(buff)？轉換為文本
味精？" s "
TCPLX.send(buff)？這是發送。
結束？如果
結束？潛水艇
如果很久沒寫了，可能會有壹點小錯誤。調試自己，壹般步驟是listen & gt接受& gtRecieve，妳最好看看msdn，學了才系統。