重赏！请在vb中用winsock编写一个最简单的广域网聊天程序

说实话,这100分我很想要,但你想要的东西有点太不明确了,代码可以随时给你写出来,但那样你还是不会太明白的,所以,最好还是加上我的QQ,实时的帮你解决问题,共同学习!
首先,你要的是广域网程序,你所谓的网络壁垒是指什么?防火墙?还是想穿透路由器,从外网和路由器内部的机器连接?
防火墙,一般情况下禁止低端端口的连接,当你的程序用高端端口连接的时候,一般没问题!
穿透路由器,需要在路由器里做端口映射,例如,两个不同网吧内的机器想要连接,不做映射的话,很难完成!除非像QQ一样,有服务器!
你要的最简单,功能最基本,应该是想要连接了发送接收功能就可以了吧,至于说明,我还是那句话,从QQ上,你问一句,我答一句,那样的说明要比什么都详细!
另外,winsock常用的有两种协议,TCP和UDP,初学者,建议用UDP,连接简单,直接发送就可以,以后再学TCP!
我QQ:6032131,另外,可以看看我的资料,里面有几个关于WINSOCK问题的回答!
谢谢你的100分,当然,如果不把分给我,也没关系!呵呵!
先拿这个试试吧
在这里填写好相关的ip绝对能聊嘎嘎

用WINSOCK控件编写聊天程序
在工具箱中增加Winsock控件，选中
“Microsoft Winsock Control 6.0”
1、设计Tcp服务器程序
在窗体中加入一个Winsock控件，取名Winsockfwq
Txtfs （发送）文本框
Txtjs （接收）文本框
Cmdexit （退出）按钮
Private Sub Cmdexit_click()
End
End Snd
Private Sub Form_Load()
Txtfs.Visible=False
Txtjs.Visible=False
Winsockfwq.LocalPort=1001
Winsockfwq.Listen
End Sub
Private Sub Txtfs_Change