MonWinsock.RemoteIPHost = "192.168.1.1" MonWinsock.RemotePort = 1234 MonWinsock.Connect
Do While MonWinsock.State <> SckConnecting DoEvents Loop If MonWinsock.State <> SckConnected Then _ MsgBox "Connexion refusée"
' 0 sckClosed ' 1 sckOpen ' 2 sckListening ' 3 sckConnectionPending ' 4 sckResolvingHost ' 5 sckHostResolved ' 6 sckConnecting ' 7 sckConnected ' 8 sckClosing ' 9 sckError