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