高分求基于VB语言的ICQ设计与实现

我刚刚做了一个，不过我是在XP下用VB6.0做的，用的是WINSOCK控件、不过很简单哦，只是点对点的

一·Winsock的主要属性、事件和方法

Winsock是不可见控件，控件文件名是MSWINSCK.OCX，全称为Mcirosoft winsock control，使用时要将此控件调入工具箱。

1·属性：①Protocol=0 //使用TCP协议；

②RemoteHost //准备连接远程机的IP地址

③RemotePort //连接远程机的IP端口号 （1024—65535之间）

④LocalPort //本地机监听IP端口号必须与呼叫机端口号相同

2·方法：①connect //申请连接远程机

②listen //设置监听

③accept //建立实际连接

④senddata //发送数据

⑤getdata //接收数据

⑥close //关闭连接

Private Sub Form_Load()

myip.Text = CStr(a.LocalIP) '得到本地IP
myname.Text = CStr(a.LocalHostName) '把计算机名当作初时用户名
idtext.Text = 5000 '初时端口号
myid.Text = 5000
a.LocalPort = myid.Text
a.Listen

End Sub

Private Sub a_ConnectionRequest(ByVal requestID As Long)

b.Accept requestID

End Sub

Private Sub b_DataArrival(ByVal bytesTotal As Long)
Dim i A