If sckServidor.State <> sckClosed Then sckServidor.Close
sckServidor.Bind 1984
sckServidor.Listen
lbStatusSvr.AddItem "Escutando porta " & sckServidor.LocalPort
CLIENTE:
If sckCliente.State <> sckClosed Then sckCliente.Close
sckCliente.Connect ##IP DO SERVIDOR##, 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
e já tentei colocar varios tipos de IPs..inclusive o que aparece na funcão "Winsock1.IpLocal" do sevidor
alguém que já conseguiu fazer o que consegue fazer pode me ajudar??
Pergunta
tuliod
Olá pessoal! :D
Tudo bem??
preciso de uma ajudinha de vocês..
o winsock pelo que sei..
é possivel fazer comunicações de computadores remotos como eu e voce apenas pelo IP, não?
sabendo seu IP, podemos fazer uma conexao via winsock e criarmos um bate-papo, por exemplo. Tá certo?
Pois bem.. utilizei vaarios metodos e codigos inclusive do site:
http://www.desenvolvedores.net/modules.php...icle&sid=27
SERVIDOR:
CLIENTE:e já tentei colocar varios tipos de IPs..inclusive o que aparece na funcão "Winsock1.IpLocal" do sevidor
alguém que já conseguiu fazer o que consegue fazer pode me ajudar??
por favor..
OBRIGADO!!
Tulio
Link para o comentário
Compartilhar em outros sites
12 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.