Aprire Visual Basic e creare un nuovo progetto utilizzando il tasto "Ctrl " e tasti "N". Selezionare la "Applicazione Windows Form " modello per il progetto .
2
Creare un pulsante " ButtonSerialNumb " sul modulo .
3
doppio clic su il pulsante " ButtonSerialNumb " che si trova sul modulo . Copiare e incollare il seguente codice nella parte superiore della finestra del codice , sopra le attuali linee di codice :
Importazioni SystemImports System.Management
4
inserire il seguente codice sotto la linea di codice " private Sub ButtonSerialNum_Click ( ByVal sender As System.Object , ByVal e As System.EventArgs ) Handles ButtonSerialNum.Click " :
Dim oMotherB As Object = NothingDim sMBsernumb As String = NothingDim oWMG As Object = GetObject ( " winmgmts : " ) per
oMotherB = oWMG.InstancesOf ( " Win32_BaseBoard " ) per
Per ogni obj As Object In oMotherB
sMBsernumb + = obj.SerialNumber
Avanti
MsgBox ( sMBserial ) economici 5
Premere il tasto " F5 " per eseguire il codice in modalità di debug .
6
Fare clic sul pulsante etichetta " ButtonSerialNumb " per eseguire il codice . Verrà visualizzata una finestra pop-up , che mostra il numero di serie della macchina .
Programmazione © www.354353.com