DUVIDAS COM WINSOCK

DAVYS 05/04/2005 08:23:56
#76685

Olá pessoal, encontrei um tutorial de winsock, que não explica bem a fundo o codigo, mas o programa funciona, entao se alguem podesse me ajudar a entender esse codigo agradeço.

If sckCliente.State <> sckClosed Then sckCliente.Close
sckCliente.Connect "127.0.0.1", 1984
Do While sckCliente.State <> sckConnected
DoEvents: DoEvents: DoEvents: DoEvents
If sckCliente.State = sckError Then
lbStatusClt.AddItem "Erro!"
Exit Do
End If
lbStatusClt.AddItem "Conectando..."
Loop
If sckCliente.State = sckConnected Then
lbStatusClt.AddItem "Conectado!"
End If

USUARIO.EXCLUIDOS 05/04/2005 08:37:10
#76691 Resposta escolhida

AÃ vai

If sckCliente.State <> sckClosed Then sckCliente.Close 'se o sock estiver aberto ele fecha
sckCliente.Connect "127.0.0.1", 1984 'conecta com o ip 127.0.0.1 (localhost) na posta 1984
Do While sckCliente.State <> sckConnected 'enquanto o socket nao conectar
  DoEvents: DoEvents: DoEvents: DoEvents 'libera recursos do micro para tentar a conexão
  If sckCliente.State = sckError Then 'se o sock der erro
    lbStatusClt.AddItem "Erro!"  'exibe a mensagem de erro
    Exit Do  'sai do DO WHILE
  End If 
  lbStatusClt.AddItem "Conectando..." 'exibe a mensagem de "Conectando..."
Loop 
If sckCliente.State = sckConnected Then 'se o sock conectar
  lbStatusClt.AddItem "Conectado!" 'exibe a msg "Conectado!"
End If

Ok?

Página única

Tópico encerrado , respostas não são mais permitidas

Voltar