Étape 5: Les boutons de commande de codage
permet de démarrer avec le premier cmdHost
1. double cliquez dessus, cela fera apparaître la fenêtre de code
2. il devrait ressembler à ceci
Private Sub cmdHost_Click()
End Sub
3. Entrez le code
sckMain.LocalPort = txtPort.text
sckMain.listen
maintenant ce que cela signifie??
la première ligne rend le port local winsocks égal au nombre dans la zone de texte (txtPort)
la deuxième ligne indique le winsock à l’écoute sur ce port pour quelqu'un qui essaie de se connecter
maintenant que fermer et double cliquez sur cmdConnect
Entrez ce code
sckMain.RemoteHost = txtIP.text
sckMain.RemotePort = txtPort.text
sckMain.Connect
les deux premières lignes changent le RemoteHost et le RemotePort de la winsock (sckMain) à l’adresse ip et le port, que nous voulons
le sckMain.Connect dit qu’il se connecte à une personne à l’écoute sur ce port et ip
maintenant pour le bouton Fermer
double-cliquez sur cmdClose et type
sckMain.close
txtLog = txtLog.text & « Connexion fermé! » & vbCrlf
le sckMain.close indique le winsock pour déconnecter
la deuxième ligne ajoute que connexion fermée à txtLog
double-cliquez sur cmdSend et le type
sckMain.senddata "[" & txtName.text & "]" & txtSend.text
txtLog = txtLog.text & "[" & txtName.text & "]" & txtSend.text & vbcrlf
txtSend.text = ""
les deux premières lignes sont fausses j’ai eux droit dans l’éditeur et il change eux lorsque j’ai enregistrer alors regardez la photo pour le bon code
première ligne envoie le texte dans txtSend et votre nom en txtName
deuxième ligne ajoute votre nom et le message que vous avez envoyé à txtLog
troisième ligne efface le texte dans txtSend