salva a tutti sto realizzando un applicazione client server col winsock,ho fatto l'array e va bene,accetta piu connessioni e rimane in ascolto,ora il mio problema e quello di poter scegliere uno dei pc collegati per scambiare dati!vi posto il sorgente:
Private Sub w2_ConnectionRequest(Index As Integer, ByVal requestID As Long)
Dim NumSock As Integer
Dim NumElem As Integer
Dim i As Integer
NumElem = w2.UBound
For i = 1 To NumElem
If w2(i).State <> 7 Then
NumSock = i
w2(NumSock).Close
w2(NumSock).Accept requestID
Exit Sub
End If
Next
Load w2(NumElem + 1)
NumSock = w2.UBound
w2(NumSock).Accept requestID
frmIP.List1.AddItem w2(index).RemoteHostIP
e fin qua cia siamo!ora in un button dovrei fare in modo che potrei scegliere un uno degli ip presenti nella listbox e poter scambiare dati solo con lui!grazie on anticipo
|