Πώς να διαβάσετε ένα PC Serial Number σε Visual Basic

Visual Basic είναι ένα ευέλικτο και ευέλικτη γλώσσα προγραμματισμού που επιτρέπει συχνά μια λύση για να κωδικοποιηθεί . Όταν έχουμε να κάνουμε με ένα μεγάλο αριθμό από υπολογιστές με Windows , ένα σημαντικό χαρακτηριστικό για το έγγραφο είναι το σειριακό αριθμό του μηχανήματος . Ο σειριακός αριθμός είναι ένας μοναδικός αριθμός που αντιστοιχεί σε ένα φυσικό στοιχείο που διατίθενται από πολλούς υπολογιστές με Windows . Χρησιμοποιώντας τη λειτουργία διαχείρισης της Visual Basic και συστήματα . Net πλαίσιο , ο σειριακός αριθμός μπορεί να ανακτηθεί με ένα μικρό τμήμα του κώδικα . Τα πράγματα που θα χρειαστείτε για Microsoft Visual Basic ( έκδοση 2003 ή πιο πρόσφατο)
Η Εμφάνιση Περισσότερες οδηγίες
Η 1

Ανοίξτε Visual Basic και να δημιουργήσετε ένα νέο έργο , χρησιμοποιώντας το πλήκτρο "Ctrl " και "Ν" κλειδιά. Επιλέξτε το " Windows Forms Application " πρότυπο για το έργο . 2

Δημιουργήστε ένα κουμπί με την ένδειξη " ButtonSerialNumb " στη φόρμα .
Εικόνων 3

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

εισαγωγές SystemImports System.Management
Η 4

Εισάγετε τον παρακάτω κωδικό κάτω από το όριο της Κωδικός " Private Sub ButtonSerialNum_Click ( ByVal αποστολέα Όπως System.Object , ByVal e Όπως System.EventArgs ) Λαβές ButtonSerialNum.Click " :

Dim oMotherB As Object = NothingDim sMBsernumb As String = NothingDim oWMG As Object = GetObject ( " WinMgmts : " )

oMotherB = oWMG.InstancesOf ( " Win32_BaseBoard " )

For Each obj Καθώς Object Στο oMotherB

sMBsernumb + = obj.SerialNumber

Επόμενο

MsgBox ( sMBserial )
5

Πατήστε το πλήκτρο " F5 " για να εκτελέσει τον κώδικα στη λειτουργία εντοπισμού σφαλμάτων .
Η

6 Κάντε κλικ στο κουμπί με την ένδειξη " ButtonSerialNumb " για να εκτελέσει τον κώδικα . Ένα αναδυόμενο παράθυρο θα εμφανιστεί , με τον αύξοντα αριθμό του μηχανήματος.
Η
εικόνων