Dim i As Integer
Private Sub cmdConectar_Click()
wskClienteGrupo.Close
wskClienteGrupo.RemoteHost = "192.168.1.1"
wskClienteGrupo.RemotePort = 1234
wskClienteGrupo.Connect
MsgBox wskClienteGrupo.State
End Sub
Private Sub cmdEnviar_Click()
wskClienteGrupo.SendData "Teste+"
End Sub
'--------------------------------------------------
' Quando tento conectar e enviar ao mesmo tempo ocorre o 40006
Private Sub cmdConectarEnviar_Click()
wskClienteGrupo.Close
wskClienteGrupo.RemoteHost = "192.168.1.1"
wskClienteGrupo.RemotePort = 1234
wskClienteGrupo.Connect
wskClienteGrupo.SendData "Teste+"
MsgBox wskClienteGrupo.State
End Sub
'Desta forma estou tentando usar o cmdConectar e o cmdEnviar, que se eu clicar primeiro no cmdconectar e depois no cmdEnviar, funciona
mas se eu tentar fazer desta forma ocorre o erro 40006
Private Sub cmdConectarEnviar2_Click()
cmdConectar_Click
cmdEnviar_Click
End Sub
'A minha intenção enviar a mensagem para um grupo, como esta abaixo.
Private Sub cmdEnviarGrupo_Click()
For i = 1 To 50
wskClienteGrupo.Close
wskClienteGrupo.RemoteHost = "192.168.1." & i
wskClienteGrupo.RemotePort = 1234
wskClienteGrupo.Connect
wskClienteGrupo.SendData "Teste+"
MsgBox wskClienteGrupo.State
Next
End Sub
O erro 40006 tem a seguinte descrição.
"Wrong protocol or connection state for the requested transaction or request"
State = 0 -> Closed
State = 1 -> Open
State = 2 -> Listening
State = 3 -> connection pending
State = 4 -> resolving host
State = 5 -> host resolved
State = 6 -> connecting
State = 7 -> connected
State = 8 -> peer is closing the connection
State = 9 -> error
Amigos o erro não é a posição do conect, vocês estão certo pois ele tem de vir antes do send mas no meu sistema esta correto o problema foi só aqui não hora de gerar o post eu digitei errado.
Adicionei um msgbox para que vocês vejam o Status da conexão.
Kerplunk o meu chat já esta pronto, já envia e recebe mensagens sem problemas só não consigo fazer um Loop para enviar para um grupo, mas se você puder gostaria de receber os seus exemplo sim.
Obrigado.
