ciaoooooooooo...!!! ho fatto un un programmino in locale, client/server che mi permette di "parlare"..come ip ho messo 127.0.0.1 il server ke ascolta sulla porta 2000.
Il programma funziona!!è ke riesco riesco solamente a far ricevere i messaggi al server ma non ha mandarli...in opposto il client manda ma non riceve,posto il codice..se potete aiutarmi
ah, facendo un altro winsock per entrambi?(idea di hj),
nel senso allora nel client il secondo winsock serve a fare il lavoro da server e quindi a ricevere e invece sul server il secondo winsock serve a fare il lavoro da client e quindi mandare i messaggi...solo che stò facendo un kasino immenso:

server:

Private Sub Form_Load()

End Sub

Private Sub invia_Click()
Dim data As String
data = txtOut
wskClient.SendData data & vbCrLf
End Sub

Private Sub Listen_Click()
wskServer.LocalPort = 2000
wskServer.Listen
End Sub

Private Sub wskServer_ConnectionRequest(ByVal requestID As Long)
If (wskServer.State <> sckClosed) Then wskServer.Close
wskServer.LocalPort = 0
wskServer.Accept requestID
End Sub


Private Sub wskServer_DataArrival(ByVal bytesTotal As Long)
Dim a As String
wskServer.GetData a
Text1.Text = a & vbCrLf
End Sub




client:


Private Sub connetti_Click()
wskClient.Connect txthost.Text, txtporta.Text
End Sub

Private Sub Form_Load()

End Sub

Private Sub invia_Click()
Dim data As String
data = txtout
wskClient.SendData data & vbCrLf
End Sub

Private Sub wskClient_DataArrival(ByVal bytesTotal As Long)
Dim a As String
wskClient.GetData a
txtReply = a & vbCrLf

end sub

se potete ripostarmelo corretto..così poi vado studirami gli errori..grassie mille