Mendapatkan firmware serial hard disk tidak

[nikhilele]

Kode:

Produsen ditugaskan Firmware Hard Disk Serial Number adalah penting untuk banyak alasan

Satu, Anda dapat menciptakan sebuah mesin konstan yang tidak berubah dengan Perubahan Sistem Operasi

atau HDD Format.
Konstan mesin ini dapat digunakan untuk dasar lisensi produk Anda.Ada banyak metode untuk mengambil Firmware HDD Serial Number.
Beberapa hanya memerlukan login Administratif, beberapa memerlukan WMI (Windows Management Instrumentation) untuk menentukan HDD Serial.Kode ini bekerja pada Win-NT, Win-2000, Win-XP, untuk IDE Hard-disk Jenis Hanya saja, tidak memerlukan Administratif login, atau WMI (Windows Management Instrumentation), menggunakan Windows API untuk tiba di Firmware HDD Serial Number.
Ini adalah kode ringan beberapa baris saja.
Mengambil Firmware HDD Serial Number, Model Number HDD, Drive Controller Revisi Jumlah dan rincian lainnya.
Source Code adalah dalam Visual Basic 6.0, VB.NET, dan C #Informasi Lebih kode ini: http://www.browsedatabase.com/hdd.htmlBy the way, Complete Source Code Perizinan tersedia di http://www.wnode.com/wlock.html

 

[Microemission]

Contoh dari hal ini adalah di sini:
http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=48627&lngWId=1
Mencoba Windows Millenium = 98 dan hasil yang baik.

Salam

 

[nikhilele]

sebenarnya saya sedang mencari kode yang dapat digunakan dengan VB
Aku mendapat beberapa tetapi mereka bekerja hanya di xp tidak di 98

 

[newelltech]

Jawaban Anda tidak masuk akal.
Microemission memberikan Anda sebuah link yang sangat baik untuk sebuah program VB yang tidak persis apa yang Anda inginkan.Ia diuji dengan Millenium dan 98.
Apakah kau bahkan mencobanya?

 

[nikhilele]

baik dan handal perangkat lunak yang dibangun menggunakan vc

memberiku ouput

Kode:

Drive Number________________ Model: ST380011A

Drive Serial Number_______________: 4JV1P583

Drive Controller Revisi Number__: 8,01

Controller Buffer Size pada Drive___: 2097152 bytes

Drive Type________________________: Fixed

Drive Size________________________: 80026361856 bytes

 

[scr_wld]

hai!
lihat ini adalah dari http://www.elguille.info/default.aspx

'------------------------------------------------- --------------------------
'Formulir de prueba para leer la etiqueta y el Número de serie de un disco.
'(18/Feb/97)
'------------------------------------------------- --------------------------
Option Explicit

'Declaración de la función, sólo está en el API de 32 bit fungsi api
'
Private Declare Function GetVolumeInformation Lib "kernel32" _
Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, _
ByVal lpVolumeNameBuffer As String, _
ByVal nVolumeNameSize As Long, _
lpVolumeSerialNumber As Long, _
lpMaximumComponentLength As Long, _
lpFileSystemFlags As Long, _
ByVal lpFileSystemNameBuffer As String, _
ByVal nFileSystemNameSize As Long) As LongPrivate Sub Command1_Click ()
'Acción
Dim lVSN As Long, n As Long, s1 As String, s2 As String
Dim Unidad As String
Dim sTmp As String

On Error Resume Next Lokal

'Se debe especificar el Directorio raiz
Unidad = Trim $ (text1)

'Reservar espacio para las que se pasaran CADENAS al API
s1 = String $ (255, Chr $ (0))
s2 = String $ (255, Chr $ (0))
n = GetVolumeInformation (Unidad, s1, Len (s1), lVSN, 0, 0, s2, Len (s2))
's1 será la etiqueta del volumen
'keberanian lVSN tendrá el del Volume Serial Number (Número de serie del volumen)
's2 el tipo de archivos: FAT, dll

'Convertirlo sebuah heksadesimal para mostrarlo como en el Dir.
sTmp = Hex $ (lVSN)

Label3 (0) = s1
Label3 (1) = Left $ (sTmp, 4) & "-" & Right $ (sTmp, 4)
Label3 (2) = s2
End SubPrivate Sub Command2_Click ()
Unload Me
Akhir
End SubPrivate Sub Form_Unload (Cancel As Integer)
'Asegurarnos de "liberar" la memoria.
Set Form1 = Nothing
End Sub
memberikan nomor seri di hex, nama hdd o volumen dari sistem dan file (FAT, FAT32)
best regard