Ir para o conteúdo
  • Revista PROGRAMAR: Já está disponível a edição #57 da revista programar. Faz já o download aqui!

David Pintassilgo

[VB6] Como ver o numero de serie do disco?

Mensagens Recomendadas

David Pintassilgo    5
David Pintassilgo

A pergunta diz tudo.

Quem diz o nº de serie do disco diz outros valores que cada pc tem e que á partida são unicos.

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
Asgorath    0
Asgorath

Em vb6 é assim, tem que adicionar uma referencia a SCRRUN.DLL incluída no Microsoft Scripting Runtime library.

Outra opção é chamar a função GetVolumeInformation da API.

    Public Function DevolveNumeroSerie(Optional ByVal LetraDrive As String) As Long
      
          Dim fso As Object, Drv As Object
          
          
          Set fso = CreateObject("Scripting.FileSystemObject")
          
          
          If LetraDrive <> "" Then
              Set Drv = fso.GetDrive(LetraDrive)
          Else
              Set Drv = fso.GetDrive(fso.GetDriveName(App.Path))
          End If
      
          With Drv
              If .IsReady Then
                  DriveSerial = Abs(.SerialNumber)
              Else    
                  DriveSerial = -1
              End If
          End With
          

          Set Drv = Nothing
          Set fso = Nothing
          
          DevolveNumeroSerie = DriveSerial
          
      End Function

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!

Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.

Entrar Agora


×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade