Utilice VB para obtener el código de máquina de la computadora

Es difícil responder a su solicitud, VB no parece poder obtener el número de serie físico del disco duro, solo el número de serie de la partición. Sin embargo, puede llamar a un dll escrito por otros programas para obtener el número de serie físico del disco duro para obtener el número de serie de la CPU que utilicé wmi. La capa inferior de VB no es muy buena

Consulte la API para obtener el número de serie del disco duro

Función de declaración privada MymachineC Lib "kernel32" Alias ​​​​"GetVolumeInformationA" (ByVal lpRootPathName como cadena, ByVal lpVolumeNameBuffer como cadena, ByVal nVolumeNameSize mientras, lpVolumeSerialNumber mientras, lpMaximumComponentLength mientras, lpFileSystemFlags mientras, ByVal lpFileSystemNameBuffer como cadena, ByVal nFileSystemNameSize mientras)

Private Sub Form_Load()

Atenuar AA, Número de serie del HDD, Maxlen, Sysflag siempre que: Dim VolName, FsysName como cadena

AA = MymachineC("c:\", VolName, 256, Número de serie del HDD , Maxlen, Sysflag, FsysName, 256)

msgbox "C número de serie del disco duro-código de máquina La-(16):" amp Hex (número de serie del disco duro)

Fin; niño