El GetDiskSerialEl .DLL es un archivo estándar de 32bits.Usted puede usarlo para leer el número de serie del disco duro fácilmente. Como todos sabemos, este número de serie es único en el mundo. Este .DLL es de gran utilidad, por ejemplo, usted puede utilizar el número serial del disco para crear una identificación de máquina o un número de encriptación.
Características claves.
*Fácil obtención del número serie del disco duro.
*Soporta la lectura de varios discos duros físicos.
* Soporta muchos lenguajes de programación, tales como el Delphi, C++Builder, VC, C#, VB.VB NET, PowerBuilder, Visual FoxPro, Clarion, etc y otros.
* También puede leer otros parámetros del disco, tales como Número de Modelo, Número de Revisión, Tamaño del Buffer, Total de Cilindros, de Cabezas, Sectores por pista, etc.
*No requiere derechos del administrador en Win NT/2000/X.
Modulo.bas
Public Type DiskInfo
SerialNumber As String * 20
ModelNumber As String * 40
RevisionNo As String * 8
BufferSize As Long
Cylinders As Long
Heads As Long
Sectors As Long
End Type
Public Declare Function GetIdeDiskInfo Lib "GetDiskSerial.dll" (ByVal DriveNo As Integer, DiskInfo As DiskInfo, ByVal sRegNumber As String) As Long
Public Declare Function GetSerialNumber Lib "GetDiskSerial.dll" (ByVal DriveNo As Integer, ByVal sRegNumber As String) As String
Public Declare Function GetModelNumber Lib "GetDiskSerial.dll" (ByVal DriveNo As Integer, ByVal sRegNumber As String) As String
Public Declare Function GetRevisionNo Lib "GetDiskSerial.dll" (ByVal DriveNo As Integer, ByVal sRegNumber As String) As String
Public Declare Function GetBufferSize Lib "GetDiskSerial.dll" (ByVal DriveNo As Integer, ByVal sRegNumber As String) As Integer
Public Declare Function GetCylinders Lib "GetDiskSerial.dll" (ByVal DriveNo As Integer, ByVal sRegNumber As String) As Integer
Public Declare Function GetHeads Lib "GetDiskSerial.dll" (ByVal DriveNo As Integer, ByVal sRegNumber As String) As Integer
Public Declare Function GetSectors Lib "GetDiskSerial.dll" (ByVal DriveNo As Integer, ByVal sRegNumber As String) As Integer
Private Sub ClearEdit() 'Clear edit box
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
End Sub
Private Sub Command1_Click()
Const RegCode = "000000000000" 'Your Reg Code
Dim MyDiskInfo As DiskInfo
Dim iDiskNo As Integer
Dim kkkk As String
iDiskNo = edtDrive.Text
ClearEdit
If Combo1.Item(0).ListIndex = 0 Then
'Get all info
If GetIdeDiskInfo(iDiskNo, MyDiskInfo, RegCode) Then
Text1.Text = MyDiskInfo.SerialNumber
Text2.Text = MyDiskInfo.ModelNumber
Text3.Text = MyDiskInfo.RevisionNo
Text4.Text = MyDiskInfo.BufferSize
Text5.Text = MyDiskInfo.Cylinders
Text6.Text = MyDiskInfo.Heads
Text7.Text = MyDiskInfo.Sectors
End If
ElseIf Combo1.Item(0).ListIndex = 1 Then
Text1.Text = GetSerialNumber(iDiskNo, RegCode) 'Direct get SerialNumber
ElseIf Combo1.Item(0).ListIndex = 2 Then
Text2.Text = GetModelNumber(iDiskNo, RegCode) 'Direct get ModalNumber
ElseIf Combo1.Item(0).ListIndex = 3 Then
Text3.Text = GetRevisionNo(iDiskNo, RegCode) 'Direct get RevisionNo
ElseIf Combo1.Item(0).ListIndex = 4 Then
Text4.Text = GetBufferSize(iDiskNo, RegCode) 'Direct get BufferSize
ElseIf Combo1.Item(0).ListIndex = 5 Then
Text5.Text = GetCylinders(iDiskNo, RegCode) 'Direct get Cylinders
ElseIf Combo1.Item(0).ListIndex = 6 Then
Text6.Text = GetHeads(iDiskNo, RegCode) 'Direct get Heads
ElseIf Combo1.Item(0).ListIndex = 7 Then
Text7.Text = GetSectors(iDiskNo, RegCode) 'Direct get Sectors
End If
End Sub
Private Sub Command2_Click()
Unload Form1
End Sub
Private Sub Command3_Click()
MsgBox (GetSerialNumber(0, regcod))
End Sub
Private Sub Form_Load()
Combo1.Item(0).ListIndex = 0
End Sub
Puedes descargarlo desde la pagina oficial http://www.devlib.net/getdiskserial.htm
Nota: Solo es una version de Prueba
Características claves.
*Fácil obtención del número serie del disco duro.
*Soporta la lectura de varios discos duros físicos.
* Soporta muchos lenguajes de programación, tales como el Delphi, C++Builder, VC, C#, VB.VB NET, PowerBuilder, Visual FoxPro, Clarion, etc y otros.
* También puede leer otros parámetros del disco, tales como Número de Modelo, Número de Revisión, Tamaño del Buffer, Total de Cilindros, de Cabezas, Sectores por pista, etc.
*No requiere derechos del administrador en Win NT/2000/X.
Modulo.bas
Public Type DiskInfo
SerialNumber As String * 20
ModelNumber As String * 40
RevisionNo As String * 8
BufferSize As Long
Cylinders As Long
Heads As Long
Sectors As Long
End Type
Public Declare Function GetIdeDiskInfo Lib "GetDiskSerial.dll" (ByVal DriveNo As Integer, DiskInfo As DiskInfo, ByVal sRegNumber As String) As Long
Public Declare Function GetSerialNumber Lib "GetDiskSerial.dll" (ByVal DriveNo As Integer, ByVal sRegNumber As String) As String
Public Declare Function GetModelNumber Lib "GetDiskSerial.dll" (ByVal DriveNo As Integer, ByVal sRegNumber As String) As String
Public Declare Function GetRevisionNo Lib "GetDiskSerial.dll" (ByVal DriveNo As Integer, ByVal sRegNumber As String) As String
Public Declare Function GetBufferSize Lib "GetDiskSerial.dll" (ByVal DriveNo As Integer, ByVal sRegNumber As String) As Integer
Public Declare Function GetCylinders Lib "GetDiskSerial.dll" (ByVal DriveNo As Integer, ByVal sRegNumber As String) As Integer
Public Declare Function GetHeads Lib "GetDiskSerial.dll" (ByVal DriveNo As Integer, ByVal sRegNumber As String) As Integer
Public Declare Function GetSectors Lib "GetDiskSerial.dll" (ByVal DriveNo As Integer, ByVal sRegNumber As String) As Integer
Private Sub ClearEdit() 'Clear edit box
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
End Sub
Private Sub Command1_Click()
Const RegCode = "000000000000" 'Your Reg Code
Dim MyDiskInfo As DiskInfo
Dim iDiskNo As Integer
Dim kkkk As String
iDiskNo = edtDrive.Text
ClearEdit
If Combo1.Item(0).ListIndex = 0 Then
'Get all info
If GetIdeDiskInfo(iDiskNo, MyDiskInfo, RegCode) Then
Text1.Text = MyDiskInfo.SerialNumber
Text2.Text = MyDiskInfo.ModelNumber
Text3.Text = MyDiskInfo.RevisionNo
Text4.Text = MyDiskInfo.BufferSize
Text5.Text = MyDiskInfo.Cylinders
Text6.Text = MyDiskInfo.Heads
Text7.Text = MyDiskInfo.Sectors
End If
ElseIf Combo1.Item(0).ListIndex = 1 Then
Text1.Text = GetSerialNumber(iDiskNo, RegCode) 'Direct get SerialNumber
ElseIf Combo1.Item(0).ListIndex = 2 Then
Text2.Text = GetModelNumber(iDiskNo, RegCode) 'Direct get ModalNumber
ElseIf Combo1.Item(0).ListIndex = 3 Then
Text3.Text = GetRevisionNo(iDiskNo, RegCode) 'Direct get RevisionNo
ElseIf Combo1.Item(0).ListIndex = 4 Then
Text4.Text = GetBufferSize(iDiskNo, RegCode) 'Direct get BufferSize
ElseIf Combo1.Item(0).ListIndex = 5 Then
Text5.Text = GetCylinders(iDiskNo, RegCode) 'Direct get Cylinders
ElseIf Combo1.Item(0).ListIndex = 6 Then
Text6.Text = GetHeads(iDiskNo, RegCode) 'Direct get Heads
ElseIf Combo1.Item(0).ListIndex = 7 Then
Text7.Text = GetSectors(iDiskNo, RegCode) 'Direct get Sectors
End If
End Sub
Private Sub Command2_Click()
Unload Form1
End Sub
Private Sub Command3_Click()
MsgBox (GetSerialNumber(0, regcod))
End Sub
Private Sub Form_Load()
Combo1.Item(0).ListIndex = 0
End Sub
Puedes descargarlo desde la pagina oficial http://www.devlib.net/getdiskserial.htm
Nota: Solo es una version de Prueba
No hay comentarios:
Publicar un comentario
Nota: solo los miembros de este blog pueden publicar comentarios.