API的SOCK类模块,如果定义Winsock数组??

VbHand 2005-06-14 10:00:25
源码

http://npower.vicp.net/tools/apisock.rar (72 KB)

这个是客端源码,我想winsock数组做个服务器端,

如使用Winsock控件时只要将index设为0即可,

但这个类模块我不知怎搞了,麻烦知道的高手回复下,多谢!!
...全文
210 点赞 收藏 10
写回复
10 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
supergreenbean 2005-07-10
你要么定义一个回调的方法替代你现在的事件方式
回复
VbHand 2005-07-09
自己顶下
回复
VbHand 2005-06-18
难道不能详细点吗,解决了我可加分

附连接里的部分源码,希望会的都来帮我改改,多谢!!!


Option Explicit
Dim WithEvents Server As CSocketMaster
Attribute Server.VB_VarHelpID = -1

Private Sub cmdListen_Click()
Server.CloseSck
cmdListen.Enabled = False
txtPort.Enabled = False
Server.Bind txtPort
Server.Listen
End Sub



Private Sub cmdSend_Click()
Server.SendData txtMessage

End Sub

Private Sub Form_Load()
Set Server = New CSocketMaster
End Sub

Private Sub Server_ConnectionRequest(ByVal requestID As Long)
Server.CloseSck
Server.Accept requestID
cmdSend.Enabled = True
End Sub
Private Sub Server_DataArrival(ByVal bytesTotal As Long)
Dim data As String
Server.GetData data
txtLog = txtLog + data + vbCrLf
End Sub
Private Sub Server_Error(ByVal Number As Integer, Description As String, ByVal sCode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
MsgBox Description, vbCritical, "Server Error " & Number
cmdSend.Enabled = False
cmdListen.Enabled = True
txtPort.Enabled = True
Server.CloseSck
End Sub

Private Sub txtPort_Change()
Form1.txtPort = txtPort
End Sub


http://npower.vicp.net/tools/apisock.rar (72 KB)
连接带有用服务器和客户端源码及sockAPI类模块
回复
zhujiechang 2005-06-17
常用的集合类->Collection 对象.
回复
xinliangyu 2005-06-17
dim mySocket() as clsSocket?
回复
yanexp 2005-06-17
周未人多,帮你顶下
回复
VbHand 2005-06-16
类的数组用集合就可以了。

高手请详细点呀
回复
VbHand 2005-06-15
顶下,希望高手有空来帮我看看!!
回复
VbHand 2005-06-14
类的数组用集合就可以了???????

本人对类这些操作不太熟识,请问是怎样写的??
回复
zhujiechang 2005-06-14
类的数组用集合就可以了。
回复
相关推荐
发帖
网络编程
创建于2007-09-28

1474

社区成员

VB 网络编程
申请成为版主
帖子事件
创建了帖子
2005-06-14 10:00
社区公告
暂无公告