Buscar en el Blog

miércoles, 9 de febrero de 2011

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




No hay comentarios:

Publicar un comentario