Código
Private Sub botonDescon_Click() For i = 0 To numSocket - 1 MsgBox (i) socketArray.CloseSck i sockLista.RemoveItem (i) Next i numSocket = 0 End Sub Private Sub botonEscuchar_Click() If (txtPuerto.Text = "") Then MsgBox ("Not a valid port.") Else socketArray.ArrayAdd numSocket socketArray.Bind numSocket, txtPuerto.Text, socketArray.LocalIP(numSocket) socketArray.Listen numSocket labelEstado.Caption = "STATE: Listening at SCK " & numSocket End If End Sub
No uso winsock. Uso CSocketPlus que es muy similar en cuanto a instrucciones. Si alguien sabe para winsock, que comente igual porq es aplicable. gracias.