您现在的位置:主页 > www.58000222.com >

VB多人聊天室!!!

发布日期:2019-10-01 05:34   来源:未知   阅读:

  我想要一个VB多人聊天室!功能1.就1个程序!!!,只要打开客户端,然后上面写的可以创建一个房间,点击创建,就可以创建一个房间。然后别人可以加入!(在客户端的界面,有一个List可...

  我想要一个VB多人聊天室!功能1.就1个程序!!!,只要打开客户端,然后上面写的可以创建一个房间,点击创建,就可以创建一个房间。然后别人可以加入!(在客户端的界面,有一个List可以自动查询当前的房间,然后双击就可以进入,此功能必须有),也可以输入IP进行查找(有没有都行,最好有)2.不需要服务器,只要1个程序,创建完房间的人,其实和正常人一样,一起聊天,他走了不是服务器就关闭了,是别人还可以继续聊!所有人都走了,房间就自动没了! 就仅仅这点要求!请懂VB的人过来帮助一下!提供点线索!求你们了!

  可选中1个或多个下面的关键词,搜索相关资料。也可直接点“搜索资料”搜索整个问题。

  如果在列表中,则设置标记变量flag为线;并跳出循环,否则设置为假

  表明聊天室用户已到上线;则传递过来的是用户名已存在,拒绝连接的信息

  MsgBox 您输入的用户名已经存在!请使用其他用户名

  给你个概念,我的代码找不到了,但是只要你基础没问题,肯定看的懂,首先在服务器的connectionrequest事件下,用load winsock1(index)数组的方法,无限连接客户端。然后就开始了,服务器和客户端,每次发送时,都要加头字母,比如每个客户端form1.caption的名字就是senddata form1.capiton & @ & text1.text。 这个是最简单的,你如果要按头字母发送各种不同的信息就要再加上投字母,比如客户端上线发布用 senddata up & form1.caption & text1.text ,这样在服务器解读你发的这个信息时,当接收你的信息 getdata str 时, 会先aa=len(str,2) 通过select case aa, case aa=up 就只要你这个信息是上线通知,服务器会把这个信息再senddata出去, 然后各个客户端都getdata 你这个上线信息, 然后再list1.additem到你的好友列表里。具体过程就是,判断服务器发布连接客户端的信息,遵从头字母协议,向各客户端发送数据, 各客户端根据头字母协议,比对好友列表并加入,好友列表已经存在的,服务器向各客户端发布一个客户端上线的信息时,好友列表变色。 说白了就是绕几个弯,你的信息是怎么发布比如上线信息(在connection事件里send),close下线信息(在close事件里send), 发送信息(在command控件下 send)。 然后再减去前面的两个发布模式字母,就是各个客户端的用户名了,也就是各个客户端的form1.caption & @. 这样你也可以私聊,也可以群发。 说的比较乱,你多担待。