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, _ 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