Numa era de respeito pelos direitos de autor de software, a aplicação de software registado electronicamente está a tornar-se cada vez mais difundida. O seu aparecimento permite aos utilizadores uma certa compreensão das funções irrestritas do programa, desempenha um papel na promoção e divulgação e também protege os interesses vitais do produtor. Então, como criamos uma versão de software de registro eletrônico?
Após alguma exploração, o autor simplesmente criou uma versão de registro eletrônico do software usando VB.
Princípios de design
Use a função "GetVolumeInformation" na API para extrair o número de série do disco rígido da máquina do usuário como um código de recurso. Este código é enviado durante o registro e é calculado pelo proprietário dos direitos autorais do software para fornecer o código de registro. o usuário insere o código de registro para concluir todo o processo de registro (para simplificar a explicação, neste exemplo, o código de recurso menos 101 é usado como código de registro).
Crie um novo arquivo de módulo
Crie um novo arquivo de módulo e adicione as seguintes instruções e constantes declaradas ao módulo Module1.Bas:
Declarar função GetVolumeInformation Lib "kernel32" Alias "GetVolumeInformationA"
(ByVal lpRootPathName como string, ByVal lpVolumeNameBuffer como string, ByVal
nVolumeNameSize As Long, lpVolumeSerialNumber As Long, lpMaximumComponentLength As
Longo, lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVal
nFileSystemNameSize As Long) As Long
GetVal global enquanto
Ao programar, tome cuidado para escrever as declarações na mesma linha.
Configurações de formulário
Adicione 2 caixas de texto no Form1 e defina a propriedade Name como Text1 e Text2 respectivamente;
adicionar código
Adicione o seguinte código de programa ao evento Form1_Load do Form1:
Subformulário privado_Load()
Dim TempStr1 como string * 256
Dim TempStr2 como string * 256
Diminuir TempLon1 enquanto
Dim TempLon2 enquanto
………
'Leia as informações sobre registrar-se ou não. Como controlá-lo não será explicado aqui.
………
Chame GetVolumeInformation("C:", TempStr1, 256, GetVal, TempLon1, TempLon2, TempStr2, 256)
Text1.Text = GetVal 'Extraia o número de série da unidade C local para a caixa de texto um
Finalizar sub
Adicione o seguinte código de programa ao evento Command1_Click de Command1:
Subcomando Privado1_Click()
Se Text2 〈〉 CStr(GetVal) Então
MsgBox "O código de registro está incorreto, verifique cuidadosamente se a entrada está correta."
Outro
MsgBox "Você se registrou com sucesso, reinicie o software."
………
(Escreva as informações de registro corretas para que as funções do software não sejam restringidas no futuro. O método específico pode ser definido de acordo com preferências pessoais.)
………
Terminar se
Finalizar sub
Neste ponto, podemos executar o programa. Você descobrirá que simplesmente implementamos a função de usar o número de série do disco rígido para criar uma versão do software registrada eletronicamente.