vb.net中Winsock控件的使用
发布时间:2020-12-17 07:51:15 所属栏目:百科 来源:网络整理
导读:vb.net中Winsock控件的使用(转载) vb.net中Winsock控件的使用 以前我们在VB6.0中使用Winsock控件用于网络信息交流,现在转入VB.net 常使用Socket来传送信息.如果我们继续使用Winsock就需要注意许多方面,比如:VB6的Accept RequestID在VB.net中变为了 Accep
vb.net中Winsock控件的使用(转载)
vb.net中Winsock控件的使用 以前我们在VB6.0中使用Winsock控件用于网络信息交流,现在转入VB.net 常使用Socket来传送信息.如果我们继续使用Winsock就需要注意许多方面,比如:VB6的Accept RequestID在VB.net中变为了 Accept(e.requestID)……下面详细说明各项属性. VB.net================= Visual Basic 6.0WinSock Control控件与Visual Basic.NET的控件不同, 当Visual Basic 6.0WinSock Control控件在Visual Basic.NET中注册后,会转换并建立以下参考: ·AxMSWinsockLib ·MSWinsockLib ·经转换后,在VB.net中这样使用: Friend WithEvents AxWinsock1 As AxMSWinsockLib.AxWinsock Friend WithEvents AxWinsock1 As AxMSWinsockLib.AxWinsock ... ... Me.AxWinsock1 = New AxMSWinsockLib.AxWinsock() Me.AxWinsock1 = New AxMSWinsockLib.AxWinsock() CType(Me.AxWinsock1,_ CType(Me.AxWinsock1,_ System.ComponentModel.ISupportInitialize).BeginInit() System.ComponentModel.ISupportInitialize).BeginInit() ... ... Me.AxWinsock1.Name = "AxWinsock1" Me.AxWinsock1.Name = "AxWinsock1" Me.AxWinsock1.OcxState = _ Me.AxWinsock1.OcxState = _ CType(resources.GetObject("AxWinsock1.OcxState"),_ CType(resources.GetObject("AxWinsock1.OcxState"),_ System.Windows.Forms.AxHost.State) System.Windows.Forms.AxHost.State) ... ... CType(Me.AxWinsock1,_ System.ComponentModel.ISupportInitialize).EndInit() System.ComponentModel.ISupportInitialize).EndInit() 下面有一个实例: ’{}{}{{}{}{{{}{{}{{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{ '在Server端,使用TCP协议: WskServer.Protocol = MSWinsockLib.ProtocolConstants.sckTCPProtocol WskServer.LocalPort = 555 '按下Listen按钮,Server端用Listen方法,开始监听端口。 WskServer.Listen() 'Client端连接………… Private Sub WskServer_ConnectionRequest(ByVal sender As Object,ByVal e As AxMSWinsockLib.DMSWinsockControlEvents_ConnectionRequestEvent) Handles WskServer.ConnectionRequest WskServer.Accept(e.requestID) WskServer.SendData("CLOSE") End Sub ====================================================================== '在Client端,也使用TCP协议: WskClient。RemotePort = 555 WskClient.Connect() Private Sub WskClient_DataArrival(ByVal sender As Object,ByVal e As AxMSWinsockLib.DMSWinsockControlEvents_DataArrivalEvent) Handles WskClient.DataArrival If WskClient.CtlState <> MSWinsockLib.StateConstants.sckClosed Then‘注意Winsock的即使状态用CtlState判断!如果使用以前的State属性,就会这样:“State”是“AxMSWinsockLib.AxWinsock”中的类型,不能用作表达式。 ” WskClient.Close() End If End Sub ’=========================================================== WinSock的CtlState属性值: 错误发生 9 MSWinsockLib.StateConstants.sckError 连线正在关闭中 8 MSWinsockLib.StateConstants.sckClosing 已与服务端完成连接 7 MSWinsockLib.StateConstants.sckConnected 正在与服务器连接中 6 MSWinsockLib.StateConstants.sckConnecting 已经找到服务端IP 5 MSWinsockLib.StateConstants.sckHostResolved 正在找寻服务器IP 4 MSWinsockLib.StateConstants.sckResolvingHost 正在连线中 3 MSWinsockLib.StateConstants.sckConnectionPending 正在等候连线中 2 MSWinsockLib.StateConstants.sckListening 已开启 1 MSWinsockLib.StateConstants.sckOpen 已关闭(默认值)0 MSWinsockLib.StateConstants.sckClosed
(编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |
相关内容
- [学习笔记] 用TexturePacker建立动画Animation
- ruby-on-rails – 在服务器上没有跟踪的Capybara服务器和浏
- 物联网 毕业设计——方案选择
- ruby-on-rails – 自动打开Rails在编辑器中生成迁移文件
- 为什么当包括XML标头时,C#XmlDocument.LoadXml(string)失败
- 使用XJC和xml.xsd导入时出错:“无法读取模式文档’xml.xsd
- 新手学C/C++:一篇代码学会使用std::future , std::promise
- ruby – 为什么array.each行为依赖于Array.new语法?
- XML 语法规则
- Cocos2dx学习第九章(schedule简介)