client/chat error

[Pouncer]

Option Explicit

Private Sub cmdClose_Click()
'Disable the outgoing buttons and tell the user
'that the connection has been closed

wsChat.Close
cmdClose.Enabled = False
cmdSend.Enabled = False
txtName.Enabled = True
cmdListen.Enabled = True
cmdConnect.Enabled = True
txtIn.text = "----- Connection Closed -----" & vbCrLf
End Sub

Private Sub cmdConnect_Click()
'Before we can connect, we should check to see
'if there is an IP and name for the user.

If txtIP.text = "" Or txtName.text = "" Then
MsgBox "You must enter both an IP and alias first!", vbCritical, "Error!"
txtName.SetFocus
Exit Sub
End If
On Error Resume Next

'Connecting the IP that is placed in the txtIP.text value.

wsChat.Close
wsChat.Connect txtIP.text, 1234

cmdClose.Enabled = True
cmdListen.Enabled = False
cmdConnect.Enabled = False
txtName.Enabled = False

End Sub

Private Sub cmdListen_Click()
If txtName.text = "" Then
MsgBox "You must enter an alias first!", vbCritical, "Error!"
txtName.SetFocus
Exit Sub
End If

'Place the local IP into this textbox and wait for a chat invitation.

txtIP.text = wsChat.LocalIP
wsChat.Close
wsChat.LocalPort = 1234
wsChat.Listen
cmdClose.Enabled = True
cmdListen.Enabled = False
cmdConnect.Enabled = False
txtName.Enabled = False
AddText "----- Waiting for Connection -----", txtIn
End Sub

Private Sub wsChat_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
If Number <> 0 Then
AddText "----- Error [" & Description & "] -----" & vbCrLf, txtIn
Call cmdClose_Click
End If

Do
DoEvents
Loop Until wsChat.State = sckConnected Or wsChat.State = sckError

If wsChat.State = sckConnected Then
'Tell the user that the connection has been established
AddText "----- Connection Established -----" & vbCrLf, txtIn
cmdSend.Enabled = True
txtName.Enabled = False
txtOut.SetFocus
Else
'Tell the user that the connection has been established
AddText "----- Connection Failed -----" & vbCrLf, txtIn
End If
End Sub

Private Sub AddText(ByVal text As String, ByRef Box As TextBox)
Box.text = Box.text & text & vbCrLf
Box.SelStart = Len(Box.text)

'Send the data to the remote user
wsChat.SendData "[" & txtName.text & "] " & txtOut.text
AddText "[" & txtName.text & "] " & txtOut.text, txtIn

'Clear out typed text and refocus on the box
txtOut.text = ""
txtOut.SetFocus
End Sub


my problem is that when i click on the 'listen' button it gives me a error '40006 saying wrong connection or protocol state' and it highlights this line in the addtext function

wsChat.SendData "[" & txtName.text & "] " & txtOut.text

any ideas why :confused:

i want my computer ip to act as the server, and make clients connect to this server so they can exchange messages

[Pino]

Ok this is simple.

You can send any data to a client until you are connected (ie the client has connected to you and you have accepted it)

What is happening is you are setting up listening but no-one has connected so you have not made a connection hence you connot send data.

This is what the error means.

Pino