如果有多台计算机,那就稍微复杂一些,客户端程序可以不做改动,而服务器端程序需要略做改动:
Private sub sckserver_connectrequest(Index as Integer,Byval requestid as long)
dim sip as string
dim I as integer
sip=sckserver(0).RemoteHostIP '获得登录者的IP地址
I=1
Do while I<=sckserver.ubound '检查是否已经有该地址的记录
If sckserver(I).RemoteHostIP=sip then '如有,不必加载新的控件
Sckserver(I).Accept requestid
Exit sub
End if
I=I+1
Loop
Load sckserver(I) '否则,加载新的控件
Scksrver(I).accept requestID
End sub
注意到:以上的信息交谈实际上都发生在客户机与服务器之间,如果要做成<nobr oncontextmenu="return false;" onmousemove="kwM(3);" id="key3" onmouseover="kwE(event,3, this);" style="COLOR: #6600ff; BORDER-BOTTOM: #6600ff 1px dotted; BACKGROUND-COLOR: transparent; TEXT-DECORATION: underline" onclick="return kwC();" onmouseout="kwL(event, this);" target="_blank">聊天</nobr>室那样,每个人的话都可以被别人“听到”,那就要在服务器端的DataArrival事件中,把接收到的客户机传来的数据,转发给所有客户机即可。
其循环转发信息的代码如下:
For I=1 to sckserver.count
if sckserver(I).state<>sckclosed then
sckserver(I).SendData sdata
end if
next I
分享到:
相关推荐
VB winsock控件实例,供初学者学习
VB Winsock控件实现局域网通信 来自于网络,希望对你有用
visual basic vb winsock控件 编写的 仿QQ聊天室
VB winsock控件详解 大概了解了远程控制的原理,方便实现其他功能。
远程控制功能是基于客户机/服务器这一模型来实现的,所以程序的编制也应分两部分进行:一部分是服务器端--也就是被控制的一方,另一部分是客户端--控制方。...下面是Winsock控件的相关属性,方法和事件
在VB中基于Winsock控件实现网络围棋对弈
使用Winsock控件的VB
VB调用WINSOCK控件,通过UDP协议进行发送及接收数据的示例,事件驱动,速度极快!
做了个简单的聊天实例,供初学者了解winsck控件的应用。
vb的winsock控件编程的实际程序,这是内部软件程序哦,对初学者很有帮助
vb6.0winsock控件2种方式发送大文件,包含服务端、客户端
详细介绍了VB中使用WinSock控件编写网络程序,有使用TCP协议开发的客户端和服务器端例程。附件中有一篇WORD文档和两个调试通过的VB 工程文档。
VB.NET中Winsock控件的使用源码。vb.net中Winsock控件与网上vb6所述不同,本例参考网络例子,然后自己做了修改。 特别注意:如果你的系统是64位win7以上,请将项目属性中“目标cpu”设为X86,负责会报错
VB仿QQ聊天工具,用winsock控件
本来不想说这个问题,是因为我的另一个资料,很多朋友下载了,说是VB6里面的,在VB.NET里面无法使用Winsock。在做次资源,希望能够帮助到大家。资源中有详细说明。 对于老手,还是习惯使用axWinsock 。 1、在VB.NET...
VB通过Winsock控件建立的客户.服务器VB通过Winsock控件建立的客户.服务器
利用 WinSock 控件可以与远程计算机建立连接,并通过用户数据文报协议 (UDP)或者传输控制协议 (TCP)进行数据交换。这两种协议都可以用来创建客户与服务器应用程序。与 Timer 控件类似,WinSock 控件在运行时是不可见...
此代码是VB使用API方法编写的WINSOCK控件,生成的执行文件比较小,功能很强大
winsock访问,利用VB中的winsock控件,TCP协议传输
基于VB_Winsock控件实现网络聊天功能,不错的