急求VB的发送接收模块代码,谢谢

代人求代码,本科毕业设计,要求如下;"发送端模块向接收端模块发送数据包，当没有拥塞控制时发生拥塞报警，然后重新启动程序，加入拥塞控制不报警，这样就有了对比说明控制起作用了"这是原话,但我的感觉是拥塞控制算法这东西不是自己可以加进去的吧,WinSock里面是不是都规定好了?我也不太明白,请大家指教.现在时间剩不多了马上快要答辩,谢谢!