USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Serial do HD
RCA
BH
MG - BRASIL
ENUNCIADA !
Postada em 05/05/2006 11:19 hs            
Olá amigos.
Gostaria que me ajudassem, pois tenho um programinha que quero proteger contra cópia usando o numero serial do HD ou da bios. Vi na seçao de dicas dois projetos , porem nenhum funcionou. Alguem sabe um meio fácil de se pegar o serial, ou o numero da bios, etc?
Um abraço.
   
Daniel
Pontos: 2843
SÃO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 05/05/2006 11:41 hs            
DECLARE A 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
DEPOIS É SO CRIAR A FUNCTION ABAIXO
Function G_Num_Serial_HD() As String
'verifica n. Serial da HD
On Error GoTo Err_G_Num_Serial_HD
    Dim Disque As String, NomVolume As String * 15, NumSerie As Long, Serie As String
    Dim ResStr As String * 32, dum As Long, retval As Long, T_Serie As String * 9, T_NomVolume As String * 15
   
    retval = GetVolumeInformation(Disque, NomVolume, Len(NomVolume), NumSerie, dum, dum, ResStr, Len(ResStr))
    Serie = Right(String(8, "0") + Hex$(NumSerie), 8)
    G_Num_Serial_HD = Left(Serie, 4) + "-" + Right$(Serie, 4)
    Exit Function
Err_G_Num_Serial_HD:
    MSGBOX("Erro na Leitura do Serial da HD")
End Function

dsmn
   
LCRamos
Pontos: 2843
GOIANIA
GO - BRASIL
ENUNCIADA !
Postada em 07/05/2006 03:39 hs            
Sem API   apenas faça referencia a Microsoft Scripting Runtime (Biblioteca)   
 
Dim HD As Drive
Dim sHD As String
Dim Fd As New FileSystemObject
 
Set HD = Fd.GetDrive("C")
sHD = Hex$(HD.SerialNumber)
 
vlu//
   
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2022   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página