Caro amigos, alguem ai sabe como pegar o numero de serie do cd para segurança na instalação, (anti pirataria?).

Tente este

-----------------------------------------------------------------------
FUNCTION PARA PEGAR NÚMERO DE SÉRIE DE HD
-----------------------------------------------------------------------

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

FUNCTION
-----------------------------------------------------------------------
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

CHAMADA
-----------------------------------------------------------------------
Private Sub Command1_Click()
   Text1.Text = DriveSerialNumber("C:") 'o drive é o parâmetro
End Sub
:") 'o drive é o parâmetro
End Sub

Eu acho que dificilmente funcionaria, pois tem programas (clone cd) que fazem uma cópia exata do CD, inclusive seus sistemas antipirataria (cds do office por exemplo).

Até para HD essa técnica não funciona mais, pois existem programas onde vc altera a númeração do HD manualmente tambem, então a pessoa sabendo um HD registrado ele vai la e copia esse número pra um segundo, terceiro micro, e roda na boa.

T+

 

 Existe uma proteção mas segura então , como pegar o numero da BIOS?

Se vc for analisar isso de bloquear o uso é muito prejudicial e trabalhoso para vc e seu sistema, se seu cliente mudar de micro vc teria que "desbloquear" o sistema pra ele, se ele esta do seu lado bem, se ele esta longe, é um problema, ele ficaria tendo que te esperar, geraria um custo pra ele (te ligar, seu deslocamento, seus custos, etc), e ele pode pensar, pq preciso passar por tudo isso se já paguei pra ter esse sistema?

É delicada essa situação. Nos meus eu fiz o seguinte, todo cliente meu tem como uso necessário a internet e banda larga ainda por cima, na hora que eu entro no sistema é feito uma série de coisas (pego atualizacoes, arquivos, etc... do meu servidor de ftp), e nele esta um arquivo do cliente, se algo estiver errado (tipo, numero do HD, CNPJ da empresa, Nome da Empresa, entre outras coisas) eu deixo ele usando ainda por uns dias e peço para ele entrar em contato via e-mail explicando o que aconteceu para ter tais divergencias....), ele me explicando e eu aceitando a explicação, eu mudo o arquivo la no meu servidor FTP para as novas caracteristicas dele, e assim o sistema roda....

Na verdade esse sistema que eu bolei é inutil, pelo menos pra mim, é funcional (funciona mesmo), + pra mim se torna inutil pq eu sou pequenininho, até hj ninguem clonou um sistema meu sequer... rs

+ eu acho que um sistema nesse sentido seria o ideal, sem bloquear nada, até instala, deixa rodar uns dias, + se não for habilitado o arquivo la no meu servidor, tal dia ele para.... eu achei essa a melhor forma. Tai uma ideia, que talvez lhe agrade.

 

T+

 

  Oi Donkey esta idéia é massa e concordo com voce se o sistema fosse comercial mas este sistema eu fiz para comandar uma máquina industrial via usb e porta paralela e estou pensando numa proteção segura para o mesmo. Voce acha que tem como pegar o n série da BIOS? via código