Visual Basic 6  - Obtendo o serial do HD


Para obter o número de série de um HD , siga os passos descritos no projeto a seguir:

1- Inicie um novo projeto no VB e no formulário form1 insira um botão de comando com a propriedade Caption = "Obter Número de Série do HD. O formulário tem o seguinte aspecto:

2- No menu Project inclua uma referência a biblioteca Microsoft Scripting Runtime (SCRRUN.DLL)

3- Agora insira o seguinte código no evento Load  do formulário

Private Sub Form_Load()
  Combo1.AddItem "C"
  Combo1.AddItem "D"
  Combo1.AddItem "E"
  Combo1.AddItem "F"
  Combo1.ListIndex = 0
End Sub

4- Insira o seguinte código no evento Click do botão de comando:

Private Sub Command1_Click()
'Exibe o número de serie do drive atual
If Combo1.Text = "" Then Exit Sub
MsgBox " Número de série do dispositivo " & Combo1.Text & " : " & GetDriveSerialNumber(Combo1.Text)
End Sub

B-) Agora defina o código da função GetDriveSerialNumber :

Public Function GetDriveSerialNumber(Optional ByVal DriveLetter As String) As Long

Dim fso As Object
Dim Drv As Object

'Cria um objeto FileSystemObject
Set fso = CreateObject("Scripting.FileSystemObject")

'Atribui a letra do drive atual se nada for especificado
If DriveLetter <> "" Then
     Set Drv = fso.GetDrive(DriveLetter)
Else
     Set Drv = fso.GetDrive(fso.GetDriveName(App.Path))
End If

With Drv
   If .IsReady Then
       DriveSerial = Abs(.SerialNumber)
   Else '"Drive não esta pronto!"
       DriveSerial = -1
   End If
End With

'libera objetos
Set Drv = Nothing
Set fso = Nothing

GetDriveSerialNumber = DriveSerial

End Function

Neste exemplo , quando o usuário clicar no botão de comando a função é chamada passando como parâmetro a letra do drive do qual desejamos obter o número de série.

O resultado final poderia ser algo como:

Você pode melhorar esta função a aplicá-la dentro de suas próprias necessidades...

Até a próxima dica...

Veja os Destaques e novidades do SUPER DVD Visual Basic (sempre atualizado) : clique e confira !

Quer migrar para o VB .NET ?

Quer aprender C# ??

Quer aprender os conceitos da Programação Orientada a objetos ?

Quer aprender o gerar relatórios com o ReportViewer no VS 2013 ?

  Gostou ?   Compartilhe no Facebook   Compartilhe no Twitter

Referências:


José Carlos Macoratti