Comment cree un serveur

Soyez le premier à donner votre avis sur cette source.

Snippet vu 8 133 fois - Téléchargée 65 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

Ajouter un commentaire Commentaires
Messages postés
103
Date d'inscription
samedi 23 mars 2002
Statut
Membre
Dernière intervention
2 mars 2004

Mais il a repris exactement le dice server ou quoi ??? Hum bon... t es pardonné pour la gestion des multi connexions c est ce que je fais aussi ! ;)
Messages postés
13
Date d'inscription
samedi 12 janvier 2002
Statut
Membre
Dernière intervention
13 janvier 2002

salut m@x moi je trouve ton server éxélent ! sauf kil a un pb avant il marchait mes au bout de 3 a 4 utilisation il ne marche plus j'aimerait s avoir pk contact moi par mail ! merci

@+

Sn@ke-Mx
Je suis un débutant en programmation, et j'avoue que je trouve bcp de solutions ici
, mais ce qui est dommage, c'est le fait que pour des erreurs ou un oubli ect...
on voit ecrit des insultes, ca ne donne pas envi au débutant de mettre une sources et d'avancer grace au conseil de ceux qui sont plus avancé.
KiKooooooo Tlm =) Deja jveus te dire stp si tu pourrais menvoyer la source, de 2 je taplodie car moi je suis programmateur de progz AOL et je n'est jamais eu lidée de faire un serveur, grace a toi tu m'as donné lidée mais question serveur je mis connais pas trop je tenvoi un mail de suite, Merci @+
bonjours tous le monde je debute en vb et j'aimerais etudier ce source mais je connais pas trop les module . si qq a le source qui marche je lui serais reconnaissant qu'il me l'envoie a drzunway@aol.com merci @+ ;o)
Afficher les 14 commentaires

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.