SERIAL HD

USUARIO.EXCLUIDOS 31/08/2007 09:53:22
#233536
Bom Dia!!!
Estou precisando de uma ajudinha... preciso de uma chave exclusiva para rodar o sistema em uma determinada máquina ou em várias máquinas, mas só poderá rodar o sistema se tiver num arquivo de parâmetro o serial do HD daquela máquina.
Será que existe alguma rotina pronta para pegar o HD do computador em Visual Basic 6.
Muito Obrigado,
Eduardo
ANGELO 31/08/2007 09:57:04
#233538 Resposta escolhida 

Public 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


[c]Function Get_Number_serie(unid As String) As String
    Dim lVSN As Long, n As Long, s1 As String, s2 As String
    Dim sTmp As String
    
    s1 = String$(255, Chr$(0))
    s2 = String$(255, Chr$(0))
    n = GetVolumeInformation(unid, s1, Len(s1), lVSN, 0, 0, s2, Len(s2))
    sTmp = Hex$(lVSN)
    Get_Number_serie = Left$(sTmp, 4) & "-" &  Right$(sTmp, 4)
End Function


' Para usar:
'
' MsgBox Get_Number_serie("C:\")
[/c]

Ve se te ajuda
Tópico encerrado , respostas não são mais permitidas
Voltar