用VB做的基于TCP的局域网数据传输