進口?系統
進口?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,學了才系統。