loooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooool
per il server devi creare un altro socket su un altra applicazione , gli specifichi il localport
sub button1_click()
winsock1.listen
end sub
in questo modo metti il winsock in ascolto di una connessione da parte del client
poi quando arriva la richiesta di connessione da parte del client
Sub winscok1_ConnectionRequest(ByVal requestID As Long)
winscok1.Close
winscok1.Accept requestID
end sub
in questo modo stabilisci una connessione tra te e il client
ok , ora per mandare messaggi
sub button2_click()
winsock1.senddata textBox1.Text
end sub
in textBox1.Text ci scrivi il messaggio , chiaramente
e per riceverli
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
dim Data as String
winsock1.GetData messaggio
textBox2.Text = textBox2.Text + messaggio + vbCrLf
end sub
cosi riesci a visualizzare i messaggi in un altro text
