Visual Basic 6 - Obtendo
o número de série de um HD.
Visual Basic 6 - Obtendo
o número de série de um 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 = "Clique Aqui para obter Número de Série do HD. O formulário tem o seguinte aspecto:
 |
2- O código do projeto vem a seguir::
Insira um Módulo no seu projeto e copie o seguinte código:
A-) Seção General Declarations
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 Long
|
B-) Código da função DriveSerialNumber no módulo inserido
Public Function DriveSerialNumber(strDrive As String) As String Dim x As Long, lngSerialNum As Long Dim strRoot As String strRoot = Left$(strDrive, 1) & ":\" x = GetVolumeInformation(strRoot, "", 0, lngSerialNum, 0, 0, "", 0) DriveSerialNumber = Hex$(lngSerialNum) End Function |
Código do botão de Comando
Private Sub Command1_Click()
Text1.Text = DriveSerialNumber("C:")
End Sub
|
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:
