vb.net中Winsock控件的使用

概述vb.net中Winsock控件的使用（转载） vb.net中Winsock控件的使用 以前我们在VB6.0中使用Winsock控件用于网络信息交流,现在转入VB.net 常使用Socket来传送信息.如果我们继续使用Winsock就需要注意许多方面，比如：VB6的Accept RequestID在VB.net中变为了 Accept(e.requestID)……下面详细说明各项属性. VB.net 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 总结

以上是内存溢出为你收集整理的vb.net中Winsock控件的使用全部内容，希望文章能够帮你解决vb.net中Winsock控件的使用所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。