Πώς να δημιουργήσετε ένα λιμάνι Test σε Visual Basic

Δημιουργία δοκιμή λιμάνι της Visual Basic.NET ( VB.NET ) δεν είναι περίπλοκη - σε VB.NET , μπορείτε να χρησιμοποιήσετε το " System.Net.Sockets " namespace , το οποίο σας παρέχει μια διεπαφή για τον έλεγχο του δικτύου ενός υπολογιστή . Χρησιμοποιήστε την κλάση " TcpClient " για να συνδεθείτε σε κάθε θύρα που θέλετε να ελέγξετε και να εμφανίσει εάν μια θύρα είναι ανοικτή ή κλειστή . Η διαδικασία αυτή είναι χρήσιμη όταν θέλετε να δοκιμάσετε πολλά λιμάνια σε έναν υπολογιστή για να καθορίσει ποια από αυτά είναι διαθέσιμα για χρήση . Τα πράγματα που θα χρειαστείτε για Microsoft Visual Studio
Η Εμφάνιση Περισσότερες οδηγίες
Η 1

την εφαρμογή Microsoft Visual Studio , κάντε κλικ στο σύνδεσμο " Νέα Proejct " και να επεκτείνουν " Visual Basic " κάτω " . Εγκατεστημένα πρότυπα " διπλό κλικ " κονσόλας "για να δημιουργήσετε ένα νέο έργο κονσόλα 2

Προσθέστε τον ακόλουθο κώδικα παραπάνω . " Module Module1 " για να δηλώσει τις ονομάτων που θα χρησιμοποιήσετε στο έργο σας :

Εισαγωγές System.Net.SocketsImports System.NetImports System.ThreadingImports System.Text εικόνων
3

Προσθέστε τον ακόλουθο κώδικα κάτω από το " Sub Main ( ) " για να δημιουργήσετε μια μεταβλητή για να ορίσετε μια μεταβλητή μετρητή , το αρχικό λιμάνι και το τελικό θύρα που θέλετε να δοκιμάσετε :

Dim startPrt As Integer = 75Dim endPrt As Integer = 90Dim lpLng Όπως Long
4

Αντιγράψτε και επικολλήστε τον παρακάτω κώδικα για να δημιουργήσετε ένα βρόχο και να εμφανίσει ένα μήνυμα με την ιδιότητα του κάθε λιμάνι :

για lpLng = startPrt να endPrtDim clientTcp Όπως New TcpClient ( ) TryclientTcp.Connect ( " 1.1.1.1 " , lpLng ) Console. WriteLine ("Port " + lpLng.ToString ( ) + " είναι έτοιμη" ) clientTcp.Close ( ) Catch ex Όπως SocketExceptionConsole.WriteLine ("Port " + lpLng.ToString ( ) + " είναι κλειστό " + ex.Message ) Τέλος TryNextConsole.ReadLine ( )
5

Επεξεργαστείτε το " 1.1.1.1 " string και πληκτρολογήστε τη διεύθυνση IP του κεντρικού υπολογιστή που θέλετε να ελέγξετε . Πατήστε το πλήκτρο "F5 " για να τρέξει το πρόγραμμα και να ξεκινήσει τις δοκιμές σε κάθε λιμάνι .
Η
εικόνων