请教各位大虾,本人第一次接触VB.....现在要做一个网络链接的小软件!!但对winsock的了解不深..请问怎么能够实现多个IP的同时链接?不知道有没有这样的功能
解决方案 »
- 如何使用Printer实现类似word的打印设置功能?
- 带自定义坐标的picture中移动控件
- 谁有InstallShield Developer 8.0的资料啊!!!急!!
- 图片渐隐效果的实现
- vb+sql连接及打开显示问题
- 在线等待:怎样象ACDSee或资源管理器那样看大量图片的缩略图,急!!!
- SelectObject不能Select由LoadImage返回来的位图上!关键就不行在这了!
- [问]VB读取大图像时速度过慢的问题 100分
- 真他母亲的见鬼了,我的日期明明是2002-05-13 ,可写到数据库里面的是 1905-6-7 怎么回事
- 如何编写一个查找文本框里是否含有成对出现的"<"和">"
- 如何知道系统是否处于空闲状态,有哪些实现方法?
- 看大家都幸福着呢……
通过创建控件数组,使用一个控件也可以同时接受多个连接请求。利用这种方法,不需要关闭连接,而只需创建新的控件实例(通过设置其索引属性),然后在新的实例上调用 Accept 方法。下面的代码假定名为 sckServer 的窗体上有一个 Winsock 控件,它的 Index 属性被设置为 0;因此控件是控件数组的一部分。在声明部分,声明了一个模块级的变量 intMax。在窗体的 Load 事件中,intMax 被设置为 0,数组中第一个控件的 LocalPort 属性被设置为 1001。然后调用控件的 Listen 方法,使之成为“监听”控件。在连接请求到达时,代码将检测 Index 是否为 0(“监听”控件的值)。如果为 0,监听控件将增加 intMax 的值,并使用该号码来创建新的控件实例。然后,使用新的控件实例接受连接请求。Private intMax As LongPrivate Sub Form_Load()
intMax = 0
sckServer(0).LocalPort = 1001
sckServer(0).Listen
End SubPrivate Sub sckServer_ConnectionRequest _
(Index As Integer, ByVal requestID As Long)
If Index = 0 Then
intMax = intMax + 1
Load sckServer(intMax)
sckServer(intMax).LocalPort = 0
sckServer(intMax).Accept requestID
Load txtData(intMax)
End If
End Sub
UDP:一个开发的端口连接多个IP的远端端口
下来看看
就是多端口对应多IP