VB动态添加WINSOCK控件
RT
一个服务器端 N个客户端
客户端不是都连接的
实现 每个客户端想要跟服务器端连接的时候在服务器端动态添加一个WINSOCK控件
应当写在什么事件了 我会动态添加控件 但是WINSOCK如果都占用着呢客户机怎么让服务器知道有机器想跟服务器连接呢
客户端想与服务器连接时，向此控件发送一条握手信息。服务接到信息后，创建一个winsock，并把此信息及端口发送给客户端，客户端然后用新端口与服务器连接。
客户端关闭时要向服务器发送销毁信息，以销毁动态创建的端口。并且服务器要定时清理端口。
让Winsock1(0)一直处于Listen状态
收到连接请求后
Load Winsock1(1)
使之与Winsock1(1)建立连接。
vb里怎么添加winsock控件
在VB程序中添加Winsock控件的步骤如下：首先，打开你的VB程序，新建一个窗口。接着，找到窗口画板，点击"controls"菜单项。在下拉菜单中选择"OLE"选项，然后会弹出一个"Insert object"窗口。在该窗口中，点击"Insert control"标签，进入控件列表。在列表中找到并双击"Microsoft Winsock control"，此时Winsock...
VB中winsock控件怎么添加
1.在VB中，依次点击工具栏上的“工程”——“部件”，在弹出的对话框中勾选“microsoft winsock control”再点击应用即可添加。2.如果你vb的没有winsock控件，请到http;\/\/thunderhacker.ys168.com （在实用工具中）下载一个winsock控件。
我的Vb 中添加了winsock控件,但是使用的时候跳出下面的信息,这是怎么回...
打开注册表(运行---输入regedit)，找到HKEY_CLASSES_ROOT下的Licenses，在他下面添加一个项，并且命名为2c49f800-c2dd-11cf-9ad6-0080c7e7b78d，然后修改这个项的默认值为：mlrljgrlhltlngjlthrligklpkrhllglqlrk，关闭注册表编辑器，再次启动VB ...
vb winsock控件
SockIndex = FindFreeSocket()'如果已有的sock都忙，而且sock数不超过15个，动态添加sock If SockIndex > SockNum Then Load Sock(SockIndex)End If ConnectState(SockIndex) = BUSY Sock(SockIndex).Tag = SockIndex '接受请求 Sock(SockIndex).Accept (requestID)End Sub '客户断开，关闭相应的s...
VB中使用winsock控件要实现网络通信怎么编程?服务端和客户端都必须各...
首先，新建一工程，名为Server，新建一个窗体，Name为frmServer，在窗体中加入一个winsock控件，Name设为sckServer，协议设为默认的TCP／IP协议。\\x0d\\x0a接下来我们回来frmServer窗体模块中，添加如下代码：\\x0d\\x0aPrivate Sub form_Load()\\x0d\\x0a With Me\\x0d\\x0a .sckServer.LocalPort...
怎么在VB6.0的窗体中加入一个winsock控件
工程->部件 然后勾选 microsoft Winsock Control 6.0(SP4)确定就OK了 然后双击 那个有点像 两个小电脑的图标 在VB6.0的窗体中加入一个winsock控件（步骤完成）
在VB中WINSOCK的使用方法
在窗体中放入一个 Winsock 控件,并将其命名为 udpPeerA。 在“属性”页上,单击“协议”并将协议修改为 UDPProtocol。 在窗体中添加两个 TextBox 控件。将第一个命名为 txtSend,第二个命名为 txtOutput。 为窗体增加如下的代码。 Private Sub Form_Load() '控件的名字为 udpPeerA With udpPeerA '...
VB.net如何添加winsock控件和Ado控件
步骤如下：1. 先到C:\\WINDOWS\\system32目录下看看你的系统里是否已经有了MSADODC.ocx和MSDATGRD.ocx这两个文件（多半是没有的），要是有了就直接看第2步吧。http:\/\/www.ocxdump.com\/download-ocx-files_new.php\/ocxfiles\/M\/MSADODC.OCX\/6.00.81714\/download.html http:\/\/www.ocxdump.com\/...
如何使用VB Winsock控件??
在窗体中放入一个 Winsock 控件，并将它的名字改为 tcpServer。在窗体上添加两个 TextBox 控件。将第一个命名为 txtSendData，第二个为 txtOutput。为窗体添加如下的代码。Private Sub Form_Load()'将 LocalPort 属性设置为一个整数。'然后调用 Listen 方法。tcpServer.LocalPort = 1001tcpServer....
VB Winsock控件的问题
.LocalPort = 14310 '不需要修改端口。End With Set wsk = Nothing Winsock1(i).Accept requestID exit for End If Next i End If End Sub 循环从1 到 Winsock1.UBound+1这样执行到最后就必然会产生错误，也就必然会LOAD控件了.注意你要定时检测断开的控件并将它们UNLOAD，不然的话会很麻烦...
