Trouver un port libre
Contenu du snippet
Cette source sans prétention permet de trouver un port local libre sur l'ordinateur, afin par exemple de créer un serveur en local.
Source / Exemple :
Private Function FindFreePort(Optional Start As Integer = 8080) As Integer
SeekPort:
On Error GoTo Up
Winsock1.LocalPort = Start
Winsock1.Listen
Winsock1.Close
FindFreePort = Start
Exit Function
Up:
On Error Resume Next
Winsock1.Close
Start = Start + 1
GoTo SeekPort
End Function
A voir également
- Trouver un port libre
- Formule chute libre ✓ - Forum C++ & C++ .NET
- Port mysql ✓ - Forum PHP
- String port - Forum Visual Basic 6
- Errordomain=nscocoaerrordomain&errormessage=impossible de trouver le raccourci spécifié.&errorcode=4 - Forum C# / .NET
- Trouver un mot avec des lettres dans le désordre - Forum PHP
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.