Clipper On Line • Ver Tópico - Número serial do HD - Anti cópia

Número serial do HD - Anti cópia

Projeto Harbour - Compilador de código aberto compatível com o Clipper.

Moderador: Moderadores

 

Número serial do HD - Anti cópia

Mensagempor Hasse » 29 Mar 2013 20:29

Hasse
CP200 / CP500 / Basic / dBase III / dBase IV / Clipper Summer / RTlink / Exospace.
Clipper 5.3b / Blinker 7.0 / CDX com TAG
xHarbour 1.2.1-6604 / Borland C++ (5.5.1) 32 bit / HBmake.
Harbour 3.2.0dev (r1412121623) / MINGW / HBM2 / MiniGui HMG 3.1.4 / IDE (Roberto Lopez).
"Conheça todas as teorias, domine todas as técnicas, mas, quando tocares uma alma humana, seja apenas outra alma humana." (C.G.Jung)
Avatar de usuário

Hasse
Usuário Nível 4

Usuário Nível 4
 
Mensagens: 815
Data de registro: 19 Out 2004 10:30
Cidade/Estado: Jaraguá do Sul - SC
Curtiu: 0 vez
Mens.Curtidas: 24 vezes

Número serial do HD - Anti cópia

Mensagempor lugab » 29 Mar 2013 21:13

Sorrry, Hasse, but this link is broken.....
 http://www.wizdownloads.com/download/Wi ... serial-dll



Page not found

The page you are looking for does not exist.
It's possible that you typed the address incorrectly, or that the page no longer exists.

You can try to use the search on top to find the page you wanted.
lugab
lugab
Colaborador

Colaborador
 
Mensagens: 843
Data de registro: 19 Mai 2009 15:58
Curtiu: 126 vezes
Mens.Curtidas: 38 vezes

Número serial do HD - Anti cópia

Mensagempor Hasse » 30 Mar 2013 09:08

Então vamos mudar a forma de proceder.
Digitar no Google:
"Diskserial.dll download", que aparecem centenas de sites para downloads.

ou colar o código abaixo na janela de URL:
http://www.google.com.br/#hl=pt-BR&output=search&sclient=psy-ab&q=DiskSerial.dll+download&oq=DiskSerial.dll+download&gs_l=hp.12...54648.59039.0.60782.10.10.0.0.0.0.283.1848.2-7.7.0...0.0...1c.1.7.psy-ab.IJaR1pjHNxk&pbx=1&bav=on.2,or.r_qf.&bvm=bv.44442042,d.eWU&fp=9ef3a9fdb74c8ab7&biw=1366&bih=633
Hasse
CP200 / CP500 / Basic / dBase III / dBase IV / Clipper Summer / RTlink / Exospace.
Clipper 5.3b / Blinker 7.0 / CDX com TAG
xHarbour 1.2.1-6604 / Borland C++ (5.5.1) 32 bit / HBmake.
Harbour 3.2.0dev (r1412121623) / MINGW / HBM2 / MiniGui HMG 3.1.4 / IDE (Roberto Lopez).
"Conheça todas as teorias, domine todas as técnicas, mas, quando tocares uma alma humana, seja apenas outra alma humana." (C.G.Jung)
Avatar de usuário

Hasse
Usuário Nível 4

Usuário Nível 4
 
Mensagens: 815
Data de registro: 19 Out 2004 10:30
Cidade/Estado: Jaraguá do Sul - SC
Curtiu: 0 vez
Mens.Curtidas: 24 vezes

Número serial do HD - Anti cópia

Mensagempor esgici » 30 Mar 2013 19:08

Saudação
Esgici
Viva Clipper !
esgici
Usuário Nível 1

Usuário Nível 1
 
Mensagens: 34
Data de registro: 27 Ago 2012 14:51
Cidade/Estado: Turkiye
Curtiu: 1 vez
Mens.Curtidas: 7 vezes

Número serial do HD - Anti cópia

Mensagempor asimoes » 07 Mar 2021 19:22

Só funciona com IDE
â–ºHarbour 3.x | Minigui xx-x | HwGuiâ—„
Pense nas possibilidades abstraia as dificuldades.
Não corrigir nossas falhas é o mesmo que cometer novos erros.
A imaginação é mais importante que o conhecimento. (Albert Einstein)
Avatar de usuário

asimoes
Colaborador

Colaborador
 
Mensagens: 4919
Data de registro: 26 Abr 2007 16:48
Cidade/Estado: RIO DE JANEIRO-RJ
Curtiu: 341 vezes
Mens.Curtidas: 258 vezes

Número serial do HD - Anti cópia

Mensagempor JoséQuintas » 07 Mar 2021 21:13

asimoes escreveu:Só funciona com IDE


Não entendi.

FUNCTION DriveSerial( cDisk )

   hb_Default( @cDisk, "C:\" )

   RETURN Transform( Padl( hb_NumToHex( VolSerial( cDisk ) ), 8 ), "@R XXXX-XXXX" )


hbmk2 -find serial

hbct.hbc (installed):
VolSerial()


https://github.com/vszakats/hb/blob/master/contrib/hbct/disk.c#L224
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18013
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

Número serial do HD - Anti cópia

Mensagempor asimoes » 07 Mar 2021 21:49

Testei com no meu notebook que é SSD não retornou nada, não testei com a sua função.
Testei agora com a sua função funciona, mas existem outras formas usando a classe Win32_DiskDrive

Acho que esse serial é do windows quando ele instala e não do hd, do hd é usando a classe Win32_DiskDrive método SerialNumber
â–ºHarbour 3.x | Minigui xx-x | HwGuiâ—„
Pense nas possibilidades abstraia as dificuldades.
Não corrigir nossas falhas é o mesmo que cometer novos erros.
A imaginação é mais importante que o conhecimento. (Albert Einstein)
Avatar de usuário

asimoes
Colaborador

Colaborador
 
Mensagens: 4919
Data de registro: 26 Abr 2007 16:48
Cidade/Estado: RIO DE JANEIRO-RJ
Curtiu: 341 vezes
Mens.Curtidas: 258 vezes

Número serial do HD - Anti cópia

Mensagempor asimoes » 07 Mar 2021 22:01

2021-03-07 22_00_06-QUERY.png

2021-03-07 22_02_58-Greenshot.png

2021-03-07 22_04_38-Greenshot.png

Usando a classe Win32_DiskDrive
â–ºHarbour 3.x | Minigui xx-x | HwGuiâ—„
Pense nas possibilidades abstraia as dificuldades.
Não corrigir nossas falhas é o mesmo que cometer novos erros.
A imaginação é mais importante que o conhecimento. (Albert Einstein)
Avatar de usuário

asimoes
Colaborador

Colaborador
 
Mensagens: 4919
Data de registro: 26 Abr 2007 16:48
Cidade/Estado: RIO DE JANEIRO-RJ
Curtiu: 341 vezes
Mens.Curtidas: 258 vezes

Número serial do HD - Anti cópia

Mensagempor JoséQuintas » 08 Mar 2021 18:53

Aquele serial que mostrei é o que o Windows coloca no drive após formatar.
Pra um uso geral tá bom.
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18013
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

Número serial do HD - Anti cópia

Mensagempor asimoes » 10 Mar 2021 11:30

Descobri que essa classe tras também o serial do windows
 FOR EACH oDiskDrive IN oWMIServerA2:ExecQuery( "SELECT * FROM Win32_LogicalDisk" )
      hRecord := Nil
      hRecord := {=>}
      hRecord["Caption"]            := oDiskDrive:Caption
      hRecord["Description"]        := oDiskDrive:Description
      hRecord["FileSystem"]         := oDiskDrive:FileSystem
      hRecord["ProviderName"]       := oDiskDrive:ProviderName
      hRecord["Purpose"]            := oDiskDrive:Purpose
      hRecord["Size"]               := oDiskDrive:Size
      hRecord["Status"]             := oDiskDrive:Status
      hRecord["SystemName"]         := oDiskDrive:SystemName
      hRecord["VolumeName"]         := oDiskDrive:VolumeName
      hRecord["VolumeSerialNumber"] := oDiskDrive:VolumeSerialNumber
      aAdd( aResp, hRecord )
   NEXT

2021-03-10 11_29_26-QUERY.png
â–ºHarbour 3.x | Minigui xx-x | HwGuiâ—„
Pense nas possibilidades abstraia as dificuldades.
Não corrigir nossas falhas é o mesmo que cometer novos erros.
A imaginação é mais importante que o conhecimento. (Albert Einstein)
Avatar de usuário

asimoes
Colaborador

Colaborador
 
Mensagens: 4919
Data de registro: 26 Abr 2007 16:48
Cidade/Estado: RIO DE JANEIRO-RJ
Curtiu: 341 vezes
Mens.Curtidas: 258 vezes

Número serial do HD - Anti cópia

Mensagempor malcarli » 11 Mar 2021 08:35

Ola Asimoes, como chamou ela? tem alguma lib a ser linkada?
Att.

Marcelo A. L. Carli
Marília/SP
Capital Nacional do Alimento ®

https://malc-informatica.ueniweb.com
http://marcelo.lx.com.br
Email / Skype: malcarli@life.com.br
malcarli
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 181
Data de registro: 20 Ago 2015 18:14
Cidade/Estado: marilia/sp
Curtiu: 81 vezes
Mens.Curtidas: 4 vezes

Número serial do HD - Anti cópia

Mensagempor asimoes » 11 Mar 2021 09:16

Tenta usar, se houver error na compilação o hbmk2 vai dar a dica da lib necessária

aDiskInfo := GetDiskInformation()

Vai retonar um vetor hash

FUNCTION GetDiskInformation()
LOCAL cDiskNum AS STRING := "", cPnPDeviceID AS STRING := "", oDiskDrive AS OBJECT
LOCAL oWMIObjA AS OBJECT, oWMIServerA AS OBJECT, oWMIDiskDrive AS OBJECT, oWMIObjA2 AS OBJECT, oWMIServerA2 AS OBJECT, ;
      oWMILogicalDisk AS OBJECT

   oWMIObjA := Win_OleCreateObject( "wbemScripting.SwbemLocator" )
   
   oWMIServerA := oWMIObjA:ConnectServer()
   
   aResp := {}
 
   FOR EACH oDiskDrive IN oWMIServerA:ExecQuery( "SELECT * FROM Win32_LogicalDisk" )
      hRecord := Nil
      hRecord := {=>}
      hRecord["Caption"]            := oDiskDrive:Caption
      hRecord["Description"]        := oDiskDrive:Description
      hRecord["FileSystem"]         := oDiskDrive:FileSystem
      hRecord["ProviderName"]       := oDiskDrive:ProviderName
      hRecord["Purpose"]            := oDiskDrive:Purpose
      hRecord["Size"]               := oDiskDrive:Size
      hRecord["Status"]             := oDiskDrive:Status
      hRecord["SystemName"]         := oDiskDrive:SystemName
      hRecord["VolumeName"]         := oDiskDrive:VolumeName
      hRecord["VolumeSerialNumber"] := oDiskDrive:VolumeSerialNumber
      aAdd( aResp, hRecord )
   NEXT
   
   FOR EACh oDiskDrive IN oWMIServerA:ExecQuery( "SELECT * FROM Win32_DiskDrive" )
      hRecord := Nil
      hRecord := {=>}
      hRecord["SerialNumber"] := oDiskDrive:SerialNumber
      hRecord["Manufacturer"] := oDiskDrive:Manufacturer
      hRecord["MediaType"]    := oDiskDrive:MediaType
      hRecord["Partitions"]   := oDiskDrive:Partitions
      hRecord["Size"]         := oDiskDrive:Size
      hRecord["Caption"]      := oDiskDrive:Caption
      hRecord["Description"]  := oDiskDrive:Description
      hRecord["DeviceID"]     := oDiskDrive:DeviceID
      hRecord["Model"]        := oDiskDrive:Model
      hRecord["SystemName"]   := oDiskDrive:SystemName
      aAdd( aResp, hRecord )
   NEXT
   
RETURN aResp
â–ºHarbour 3.x | Minigui xx-x | HwGuiâ—„
Pense nas possibilidades abstraia as dificuldades.
Não corrigir nossas falhas é o mesmo que cometer novos erros.
A imaginação é mais importante que o conhecimento. (Albert Einstein)
Avatar de usuário

asimoes
Colaborador

Colaborador
 
Mensagens: 4919
Data de registro: 26 Abr 2007 16:48
Cidade/Estado: RIO DE JANEIRO-RJ
Curtiu: 341 vezes
Mens.Curtidas: 258 vezes

Número serial do HD - Anti cópia

Mensagempor Softwhouse » 15 Abr 2021 14:07

Olá ASimões,

Pode mostrar como ver as informações do retorno do vetor aDiskInfo ?

Obrigado.
Fernando
Softwhouse
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 300
Data de registro: 07 Dez 2011 17:44
Cidade/Estado: Porto Alegre/RS
Curtiu: 0 vez
Mens.Curtidas: 12 vezes

Número serial do HD - Anti cópia

Mensagempor asimoes » 15 Abr 2021 16:42

Softwhouse escreveu:Olá ASimões,

Pode mostrar como ver as informações do retorno do vetor aDiskInfo ?

Obrigado.


LOCAL oElemento

FOR EACH oElemento In aDiskInfo
   ? oElemento["VolumeSerialNumber"]
NEXT


Ou

cVolumeSerialNumber := aDiskInfo[1]["VolumeSerialNumber"]
â–ºHarbour 3.x | Minigui xx-x | HwGuiâ—„
Pense nas possibilidades abstraia as dificuldades.
Não corrigir nossas falhas é o mesmo que cometer novos erros.
A imaginação é mais importante que o conhecimento. (Albert Einstein)
Avatar de usuário

asimoes
Colaborador

Colaborador
 
Mensagens: 4919
Data de registro: 26 Abr 2007 16:48
Cidade/Estado: RIO DE JANEIRO-RJ
Curtiu: 341 vezes
Mens.Curtidas: 258 vezes

Número serial do HD - Anti cópia

Mensagempor Softwhouse » 15 Abr 2021 18:34

Valeu, obrigado.
Fernando
Softwhouse
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 300
Data de registro: 07 Dez 2011 17:44
Cidade/Estado: Porto Alegre/RS
Curtiu: 0 vez
Mens.Curtidas: 12 vezes

Anterior



Retornar para Harbour

Quem está online

Usuários vendo este fórum: Google [Bot] e 5 visitantes


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro