c'est un serveur qui fonctionne sous telnet pour l'allumer tester ce code
amicalement m@x
PS:Aidez moi a en faire un mieux
Source / Exemple :
Il faut:
un module
2 feuilles form1 form2
2 winsock sckclient et scklisten
code du module:
Global UserOnLine As Integer
Global LastIndex As Integer
code de la form1
Private Sub Form_Load()
sckListen.LocalPort = 666
sckListen.Listen
End Sub
Private Sub sckClient_Close(Index As Integer)
sckClient(Index%).Close
Unload sckClient(Index%)
UserOnLine = UserOnLine - 1
If UserOnLine = 0 Then LastIndex = 0
Form2.Show
End Sub
Private Sub sckClient_DataArrival(Index As Integer, ByVal bytesTotal As Long)
sckClient(Index%).GetData Data$, vbString
If Left$(Data$, 1) = "m" Then
Randomize Timer
Cls
sckClient(Index%).SendData ":ok Connexion établie"
Else
sckClient(Index%).SendData ":Mauvais password"
End If
End Sub
Private Sub sckListen_ConnectionRequest(ByVal requestID As Long)
UserOnLine = UserOnLine + 1
LastIndex = LastIndex + 1
Load sckClient(LastIndex)
sckClient(LastIndex).Accept requestID
End Sub
EXCUSEZ MOI D'AVOIR OUBLIER DE LE METTRE DANS UN ZIP
IL UN PEU PETIT COMME SERVEUR MAIS IL EST CAPABLE DE PRENDRE PLUSIEUR CONNEXION DE DECONNECTER ETC..
Je tient a m'excuser a tout ce qui mon insulter d'avoir oubler de mettre le zip
Conclusion :
@+ les programmeur
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.