|
|
Postada em 18/10/2005 07:16 hs
Concordo com o VACA... a pergunta eh bem simples... Do geito que ele falou vai funcionar... Vou explicar o porque: O "Numero" de Série de um HD (ou qq outro serial) não é uma string, mas sim um numero Hexadecimal, e o VB consegue interpretar isso e converte a string em Numerico. Meu conselho é para vc nao usar o CStr nao, eu prefiro converter os dois valores em Numero, mas Decimal, e nao HEX... eu faria assim: If Val(Registro) = Val(HD) Then Debug.print "Valores Iguais" Qto ao pessoal que deu sugestão de onde pegar ou gravar o serial do HD... sinceramente, vcs estao viajando... não existe coisa mais rapida, facil e segura que usar a API do Windows... nda de banco de dados, ou gravar novamente no registro... Fernando, espero ter ajudado... tanto eu qto o VACA... Flw! galera....
Elieser Carlos Topassi
Analista de Sistemas - Desenvolvedor VB/ASP/.Net
e-mail/msn: elieser_topassi@yahoo.com.br
São José do Rio Preto,SP - Brasil
_____________________________________________________
 "O caminho do tolo aos seus prórios olhos lhe parece reto, mas o sábio ouve conselhos" (Pv 12:15)
|
|
|
|
|
|
|
|
Postada em 18/10/2005 10:49 hs
Bom dia pessoal. Consegui finalmente resolver o problema. Abaixo vai o codigo para ajudar quem precisar o codigo que eu postei acima primeiro: If Registro = HD Then
MsgBox "Valores iguais", VbOkOnly
Else
MsgBox "Valores diferentes", VbOkOnly
Endif
agora o codigo corrigido: RegistroCorrigido = Left$(Registro, InStr(1, Registro, Chr$(0)) - 1) If Registro = HD Then
MsgBox "Valores iguais", VbOkOnly
Else
MsgBox "Valores diferentes", VbOkOnly
Endif
A primeira linha é que é a correção. Agradeço todas as idéias que foram dadas, garanto a todos que foram uteis, e que todas foram testadas ao extremo. Valewz
Fernando Cesar VainiSe voce morrer daqui a 5 minutos, vai levar todo o seu conhecimento. Antes que isso aconteça, compartilhe-o!!!
|
|
|
|
Merlin - u.k.
não registrado
|
|
Postada em 18/10/2005 15:26 hs
Ola. Ao invés desta trabalheira toda ( Que na realidade nao funciona como trava para quem quer realmente piratear um soft pois a criptografia hoje ja nao é bicho de sete cabeças) e sendo seu soft bom comercialmente falando , vou te dar uma dica de como travar ele definitivamente. Entre no site www.proteq.com.br e procure saber. Eu uso em meus projetos aqui em londres e é IMPOSSIVEL a copia do programa. Ate mais. |
|
|
|
|
|
Postada em 19/10/2005 15:11 hs
Merlin... Nosso problema aki (o meu e eu creio q o de quase todos) não é com pirataria em massa, mas sim com akele cliente (leigo) que empresta o seu CD para o dono da padaria da esquina... e ele para outro... e assim por diante... Nunca precisei de um controle mto sofisticado para controlar copias... eu tenho dois que eu desenvolvi (um valida na internet, no meu site, e outro valido por telefone, com serial) e nao sao as coisas mais seguras nao... eles apenas utilizam chaves do registro, arquivos de config e senhas pessoais... nunca tive problemas com softwes meus pirateados... e nunca gastei um centavo com isso nao...
Elieser Carlos Topassi
Analista de Sistemas - Desenvolvedor VB/ASP/.Net
e-mail/msn: elieser_topassi@yahoo.com.br
São José do Rio Preto,SP - Brasil
_____________________________________________________
"O caminho do tolo aos seus prórios olhos lhe parece reto, mas o sábio ouve conselhos" (Pv 12:15)
|
|
|
|
vaini
|
PARAPUÃ
SP - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 20/10/2005 13:51 hs
Valew pessoal pelas respostas e colaboração.
Eu consegui resolver o problema. Eu nao sei se na verdade era um bug no VB ou eu que tava comendo bola.
Minha linha de codigo era assim
ChaveAtual = Left$(ChaveAtual, InStr(1, ChaveAtual, vbNullChar) - 1)
e eu corrigi assim
ChaveFinal = Left$(ChaveAtual, InStr(1, ChaveAtual, vbNullChar) - 1)
Muito obrigado a todos os que colaboraram.
Até a proxima.
Fernando Cesar VainiSe voce morrer daqui a 5 minutos, vai levar todo o seu conhecimento. Antes que isso aconteça, compartilhe-o!!!
|
|
|
|
|
|
Postada em 21/10/2005 12:46 hs
ow... precisando pode perguntar, e hora q tiver resposta, fecha o post... flw!
Elieser Carlos Topassi
Analista de Sistemas - Desenvolvedor VB/ASP/.Net
e-mail/msn: elieser_topassi@yahoo.com.br
São José do Rio Preto,SP - Brasil
_____________________________________________________
"O caminho do tolo aos seus prórios olhos lhe parece reto, mas o sábio ouve conselhos" (Pv 12:15)
|
|
|
|
|
