수다닷컴

서버용과 클라이언트용 나뉘어있는데요서버용에서 종료를 할때
Private Sub frmMain_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing m_tcpListener.Stop() Dim nType As Integer = MSG_TYPE.MT_DISCONNECT SendToAll(nType.ToString()) End Sub모두에게 접속해제 명령을 보내고 클라이언트는 Private Sub OnReceive(ByVal sender As ClientSock, ByVal strRecv As String) Dim nMsgType As Integer
nMsgType = CInt(strRecv.Substring(0, 1))
strRecv = strRecv.Substring(1)
If nMsgType = MSG_TYPE.MT_CONNECT Then txtMessage.Text = [SYSTEM] 대화방 입장! ElseIf nMsgType = MSG_TYPE.MT_DISCONNECT Then txtMessage.Text = [SYSTEM] 연결 해제! End If End Sub명령을 받아서 [SYSTEM] 연결 해제! 라는 문구를 텍스트에 출력하는데MT_CONNECT 는 잘 되는데 MT_DISCONNECT는 작동을 안합니다. 폼을종료할때 말고도MT_DISCONNECT라는 명령을 보내도 아무런 작동을 안합니다.
제가 아무 책도 없고 지식없이 그냥 채팅소스 하나 구해서 수정하면서하고있는데요
딱히 건드린건 없는거 같은데.. 왜 안되는거죠?

신청하기