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![]()