CodeS-SourceS
Rechercher un code, un tuto, une réponse

Comment cree un serveur

Soyez le premier à donner votre avis sur cette source.

Snippet vu 7 814 fois - Téléchargée 46 fois

Contenu du snippet

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

A voir également

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.