Πώς να δημιουργήσετε ένα απλό πρόγραμμα συνομιλίας στη Visual Basic χρησιμοποιώντας το Microsoft Winsock Control: 7 βήματα

2024 Συγγραφέας: John Day | [email protected]. Τελευταία τροποποίηση: 2024-01-30 08:38

Σε αυτό το ένστικτο θα σας δείξω πώς να φτιάξετε ένα απλό πρόγραμμα συνομιλίας στο visual basic. Θα εξετάσω τι κάνει όλος ο κώδικας, έτσι θα μάθετε καθώς το φτιάχνετε και στο τέλος θα σας δείξω πώς να τον χρησιμοποιήσετε.

Βήμα 1: Επισκόπηση

Νέο έργο "," κορυφή ": 0.44341801385681295," αριστερά ": 0.2802690582959641," ύψος ": 0.2632794457274827," πλάτος ": 0.5067264573991032}, {" noteID ":" NJL01ANFG0GJ54J "," text "",: "αυτό είναι που θέλετε να επιλέξετε στη συνέχεια κάντε κλικ στο άνοιγμα", "πάνω": 0.25635103926096997, "αριστερά": 0.017937219730941704, "ύψος": 0.22401847575057737, "πλάτος": 0.23542600896860988}] ">

Αυτό το πρόγραμμα θα σας επιτρέψει να ανταλλάξετε μηνύματα μεταξύ δύο ατόμων στο ίδιο δίκτυό σας. Μπορεί να λειτουργήσει αν δεν είστε στο ίδιο δίκτυο, αλλά δεν μπορώ να το δοκιμάσω τώρα.

Θα πρέπει να έχετε Microsoft Visual Basic 6.0, αυτό χρησιμοποιώ. Συνιστάται βασική γνώση προγραμματισμού Ας ξεκινήσουμε !!! ανοίξτε το visual Basic και δημιουργήστε ένα Standard EXE

Βήμα 2: Δημιουργία του User Infrence

Τώρα ήρθε η ώρα να δημιουργήσετε τη φόρμα χρήστη

θα χρειαστεί να προσθέσετε το χειριστήριο χειριστηρίου στην εργαλειοθήκη, κάντε το εξής: 1. κάντε δεξί κλικ κάπου στην εργαλειοθήκη όπου δεν υπάρχει τίποτα 2. κάντε κλικ στα στοιχεία 3. στη μεγάλη λίστα βρείτε το Microsoft Winsock Control 6.0 και επιλέξτε το πλαίσιο δίπλα του 4. στη συνέχεια κάντε κλικ στην εφαρμογή και στη συνέχεια κλείστε Προσθήκη: 5 πλαίσια κειμένου 4 κουμπιά εντολών 1 χειριστήριο χειριστηρίου τακτοποιήστε τα ώστε να μοιάζουν με τη δεύτερη εικόνα παρακάτω

Βήμα 3: Μετονομασία και άλλες αλλαγές ιδιοκτησίας

τώρα θα αλλάξουμε τους υπότιτλους (τι λέει στα κουμπιά εντολών) 1. κλικ στην εντολή12. κοιτάξτε στη δεξιά πλευρά στις ιδιότητες και βρείτε Caption3. αλλάξτε το σε Hostdo το ίδιο για τα υπόλοιπα αλλά κάντε τα: command2 = Connectcommand3 = Closecommand4 = Sendnow πρόκειται να αλλάξουμε τι λένε τα πλαίσια κειμένου1. κάντε κλικ στο πλαίσιο κειμένου που λέει text12. μεταβείτε στο παράθυρο ιδιοτήτων και βρείτε την ιδιότητα Text3. κάντε το κενό4. κάντε το ίδιο για εκείνο που λέει Text25. τώρα κάντε κλικ στο text3 και αλλάξτε την ιδιότητα κειμένου σε 127.0.0.16. τώρα κάντε κλικ στο text4 και αλλάξτε την ιδιότητα κειμένου σε 12347. τώρα κάντε κλικ στο text5 και αλλάξτε την ιδιότητα κειμένου σε Name127.0.0.1 είναι το τοπικό σας ip, ώστε να μπορείτε να δοκιμάσετε το πρόγραμμα στον υπολογιστή σας όταν τελειώσει1234 είναι η θύρα που μπορείτε να κάνετε θέλω, αλλά αφήστε το 1234 προς το παρόν

Βήμα 4: Αλλαγή των ονομάτων των κουμπιών και των πλαισίων κειμένου

πρέπει να μετονομάσουμε τα κουμπιά εντολών και τα πλαίσια κειμένου για ευκολότερη κωδικοποίηση

1. κάντε κλικ στο Text1 και μεταβείτε στις ιδιότητες και κάντε κλικ στο όνομα και αλλάξτε το σε txtLog το επέλεξα επειδή είναι το αρχείο καταγραφής των μηνυμάτων που στέλνετε και λαμβάνετε 2. κάντε το ίδιο για τα υπόλοιπα αλλά κάντε τα ονόματα: αλλάξτε Text2 σε txtΑποστολή αλλαγής Text3 σε txt Αλλαγή κειμένου4 σε txtΠροσθήκη αλλαγής Text5 σε txtΌνομα αλλαγής Command1 σε cmdΠροσθήκη αλλαγής Command2 σε cmdΣύνδεση αλλαγής Command3 σε cmdΚλείσιμο αλλαγής εντολής 4 σε cmdΑποστολή αλλαγής Winsock1 σε sckMain τώρα υπάρχει ένα ακόμη πράγμα που πρέπει να αλλάξετε κλικ txtLog και στο παράθυρο ιδιοτήτων βρείτε MultiLine και κάντε το αληθινό αυτό το βήμα μπορεί να προκαλέσει κάποια σύγχυση εάν έχετε οποιεσδήποτε ερωτήσεις, δημοσιεύστε ένα σχόλιο ή στείλτε μου μήνυμα

Βήμα 5: Κωδικοποίηση των κουμπιών εντολών

τώρα ήρθε η ώρα να γράψετε τον κωδικό για τα κουμπιά εντολών που ξεκινούν με το πρώτο cmdHost1. κάντε διπλό κλικ, θα εμφανιστεί το παράθυρο κώδικα2. θα πρέπει να μοιάζει με αυτόPrivate Sub cmdHost_Click () End Sub3. εισαγάγετε αυτόν τον κωδικό κλείστε αυτό και κάντε διπλό κλικ στο cmdConnectenter this codesckMain. RemoteHost = txtIP.textsckMain. RemotePort = txtPort.textsckMain. Συνδέστε τις δύο πρώτες γραμμές αλλάξτε το RemoteHost και το RemotePort του ντισοκ (sckMain) στο ip και τη θύρα που θέλουμε το sckMain. Con για σύνδεση με κάποιον που ακούει σε αυτήν τη θύρα και ipnow για κοντινό διπλό κλικ στο cmdClose και typesckMain.closetxtLog = txtLog.text & "Η σύνδεση έκλεισε!" & vbCrlfthe το sckMain.close λέει στο winsock να αποσυνδέσειη δεύτερη γραμμή προσθέτει Σύνδεση κλειστή στο txtLogdouble κλικ στο cmdSend και typesckMain.senddata "[" & txtName.text & "]" & txtSend.texttxtLog = txtLog.text & "[" & txtName κείμενο & "]" & txtSend.text & vbcrlftxtSend.text = "" οι δύο πρώτες γραμμές είναι λάθος, τις έχω σωστά στον επεξεργαστή και τις αλλάζει όταν τις αποθηκεύω, οπότε κοιτάξτε την εικόνα για τη σωστή κωδική πρώτη γραμμή στέλνει το κείμενο txtSend και το όνομά σας σε txtNameesecond line προσθέτει το μήνυμα που στείλατε και το όνομά σας στο txtLogthird line διαγράφει το κείμενο στο txtSend

Βήμα 6: Κωδικοποίηση του Winsock

τώρα ήρθε η ώρα να κωδικοποιήσουμε το νιπτήρα! πρέπει να του πούμε τι να κάνουμε όταν κάποιος προσπαθεί να συνδεθεί και πρέπει να του πούμε πού να βάλει τα δεδομένα το πλαίσιο κωδικού που θα πρέπει να λέει: σφάλμα κλικ στο αναπτυσσόμενο πλαίσιο και επιλέξτε αίτηση σύνδεσης τώρα θα έπρεπε να έχει δημιουργήσει ένα νέο μέρος για να εισαγάγετε κώδικα εκεί πληκτρολογήστε: Εάν sckMain.state sckClose thensckMain.closeend ifsckMain.accept requestidtxtLog = txtLog.text & "Σύνδεση με: "& sckMain. RemoteHostIP & vbcrlffirst και οι πρώτες γραμμές ελέγχουν αν το winsock (sckMain) είναι κλειστό και αν δεν είναι τότε κλείνει και η τρίτη γραμμή κλείνει την if εάν η προηγούμενη γραμμή λέει στο winsock (sckMain) να δεχτεί συνδέσεις η πέμπτη γραμμή σας λέει ότι είστε συνδεδεμένοι προσθέτοντας μια γραμμή στο txtLognow πρέπει να πούμε στο winsock τι να κάνει με τα δεδομένα που λαμβάνειεπάνω δεξιά στο παράθυρο κώδικα κάντε κλικ στο αναπτυσσόμενο πλαίσιο και επιλέξτε: DataArrivalnow εισάγετε αυτόν τον κωδικό: dim Data ως stringsckMain.getdata Data, vbstring txtLog = txtLog.text & data & vbcrlffirst γραμμή κάνει δεδομένα μια συμβολοσειρά, όπου τα δεδομένα που λαμβάνονται θα τοποθετηθούν πριν προστεθούν στην txtLogsecond line λαμβάνει τα δεδομένα και τα τοποθετεί στα δεδομένα συμβολοσειράς, όπως προσθέτει μια τρίτη γραμμή vbstring τα δεδομένα που ελήφθησαν στο txtLognow για άλλη μια φορά εάν είναι μπερδεμένα και έχετε ερωτήσεις, δημοσιεύστε σχόλιο ή στείλτε μου μήνυμα

Βήμα 7: Χρήση του προγράμματος/συμπέρασμα

εντάξει τώρα θα σας πω πώς να χρησιμοποιήσετε το πρόγραμμα

στο οπτικό βασικό αρχείο κλικ και, στη συνέχεια, κάντε το project1.exe αποθηκεύστε το στην επιφάνεια εργασίας σας εάν υπάρχουν σφάλματα αφήστε ένα σχόλιο και θα προσπαθήσω να σας βοηθήσω τώρα να πάτε εκεί που κάνατε το πρόγραμμα και κάντε διπλό κλικ δύο φορές και θα εμφανιστούν δύο προγράμματα ένας υπολογιστής κλικ και από την άλλη κάντε κλικ στο σύνδεσμο και σε αυτόν που κάνατε κλικ στον κεντρικό υπολογιστή σε αυτό θα πρέπει να λέει: Συνδεδεμένος με: 127.0.0.1 τώρα πληκτρολογήστε ένα όνομα και για τους δύο και μπορείτε να στείλετε μηνύματα μεταξύ των δύο λειτουργεί σε LAN και μπορεί να λειτουργήσει στο WAN, αλλά δεν είμαι σίγουρος ότι αφήνω σχόλια, ενημερώνοντάς μου για το πώς έκανα ή εάν έχετε ερωτήσεις ή αν απλά σας αρέσει αν σας άρεσε ή δεν σας άρεσε να το βαθμολογήσετε