USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  Visual Basic    (Redes/Comunicações)

Título da Dica:  Utilizando winsock
Postada em 28/9/2003 por [_Chuck_]            
ao abrir o server o winsock deve escutar a porta...
o nome do Winsock é sck
Private Sub Form_Load()
       sck.localPort = 2000 'pode ser qualque outra
       sck.listen
end sub

e ao receber um novo requisito de conexão(ConnectionRequest) ele aceita o susário...
Private Sub sck_ConnectionRequest(ByVal requestID As Long)
    sck.Close
    sck.LocalPort = 2000
    sck.Accept requestID
End Sub

e então, qualquer coisa que ele receber chamará o evento DataArrival, ai é só fazer o seguinte...
Private Sub sck_DataArrival(ByVal bytesTotal As Long)
    Dim dados As String 'variável que irá receber os dados
    
    sck.GetData dados, vbString  'dados recebe tipo string
End Sub


no cliente a coisa é semelhante...

você deve se conectar utilizando o IP e a porta de escuta do servidor...
sck.conect "127.0.0.1",2000 'caso de estiver testando em casa

após isso eu aconselho utilizar a rotinar para aguardar enquanto não conectar e não da erro..
While sck.State <> sckConnected And sck.State <> sckError
    DoEvents
Wend

após isto se conectar basta enviar strings usando...
sck.SendData Texto

e receber do mesmo jeito que o cliete....

Valeu...
Maycon Maia Vitali [_Chuck_]
 


CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página