Étape 6: Codage le Winsock
Nous devons lui dire quoi faire quand quelqu'un essaie de se connecter et nous devons lui dire où mettre les données qu’il reçoit
OK, double cliquez sur le control(sckMain) de winsock
dans le coin supérieur droit de la boîte de code il faut le dire : erreur
Cliquez sur le menu déroulant et sélectionnez demande de connexion
maintenant il aurait dû un nouvel endroit pour entrer code
dans type là :
Si sckMain.state <> sckClose puis
sckMain.close
fin si
requestid sckMain.accept
txtLog = txtLog.text & "connecté à:" & sckMain.RemoteHostIP & vbcrlf
première et deuxième lignes vérifient si la winsock(sckMain) est fermée et si ce n’est pas, puis il ferme il
troisième ligne ferme if instruction
quatrième ligne indique le winsock (sckMain) d’accepter les connexions
cinquième ligne vous indique que vous êtes connecté en ajoutant une ligne à txtLog
maintenant nous devons dire le winsock quoi faire avec les données, elle reçoit
en haut à droite de la fenêtre de code, cliquez sur le menu déroulant zone et sélectionnez : DataArrival
maintenant, entrez ce code :
Dim Data as string
sckMain.getdata données, vbstring
txtLog = txtLog.text & données & vbcrlf
première ligne rend données une chaîne que la piqûre est où les données qu’elle reçoit sont va être mis avant d’être ajouté à txtLog
deuxième ligne obtient les données et le place dans la chaîne de données comme un vbstring
troisième ligne ajoute les données reçues à txtLog
maintenant, une fois de plus si c’est déroutant et vous avez les questions post commentaire ou message moi