关于VB制作及时聊天软件

来源：百度知道 编辑：UC知道 时间：2024/09/28 07:24:42
我们老师布置的寒假作业是用VB做一个及时聊天软件 类似QQ的简单软件，向注册 登陆那些功能还会做 但是聊天和加好友就不会了 聊天不是点对点聊天 要求向QQ那样加好友 然后聊天 谁知道具体思路该怎么做啊~

所谓"聊天"是指两个程序能够发送数据给对方。这个程序涉及到数据通讯的知识，仿佛很复杂，不过，由于VB给我们提供了一个Winsock控件，问题就变得很简单了。

先编写"聊天（主机）"程序。在窗体里添加Winsock控件，并设置其Protocol属性为1－SckUDPProtocol，其他属性为缺省值。接着添加两个标签和两个文本框，设置两个标签的标题属性分别为"接收窗"和"发送窗"；两个文本框的标题属性为空。

最后编写代码：

1."聊天（主机）" Private Sub Form-Load()
′设置网络地址Winsock1.LocalPort=1024
Winsock1.RemoteHost="202.96.6.1"
Winsock1.RemotePort=1999
End Sub
Private Sub Text1-Change()
′发送用户输入的内容Winsock1.SendData Text1.Text
End Sub
Private Sub Winsock1-DataArrival
(Byval bytesTotal As Long)
Dim rec As String
′接收对方数据并在文本框内显示Winsock1.GetData rec, vb String
Text2.Text=rec
End Sub

2."聊天（副机）" Private Sub Form_Load()
′设置网络地址Winsock1.LocalPort=1999
Winsock1.RemoteHost="202.96.6.1"
Winsock1.RemotePort=1024

其他部分程序与（主机）相同。最后将两个程序存盘，并编译成执行（.Exe）文件。现在就可以使用这个程序进行对话了

你这个为什么非那VB做...... 用VB做不太可能吧