NUNCA MAIS PASSE RAIVA POR NÃO CONSEGUIR RESOLVER UM PROBLEMA COM O EXCEL - GARANTIDO!

UNIVERSIDADE DO VBA - Domine o VBA no Excel Criando Sistemas Completos - Passo a Passo - CLIQUE AQUI

Você está em: PrincipalArtigosProgweb : Sistemaloginasp006
Quer receber novidades e e-books gratuitos?

Sistema de Login em ASP – Parte VI

 

Olá pessoal, meu nome é Maurício Júnior e o meu objetivo nesse artigo é mostrar e explicar o restante das functions criadas dentro do Visual Basic 6.0. Antes de tudo, segue os dados requisitados para desenvolver o artigo.

 

- Instalar o Visual Studio 6.0;

- Instalar o Visual Basic 6.0;

- Entender de componentes;

- Ter instalado COM PLUS (COM +) na máquina.

 

 

Para qualquer dúvida existente anteriormente, os outros passos podem ser vistos no site www.aspneti.com e www.juliobattisti.com.br. Qualquer dúvida entre em contato pelo e-mail mauricio@aspneti.com.

 

Para quem está acompanhando passo a passo os artigos criados, no passo anterior ficou faltando explicar e mostrar uma function dentro do arquivo Global.bas. Segue a planilha com a lista de functions criadas. (Referência 6.1 – Visual Basic 6.0)

 

Referência: 6.2 – Visual Basic 6.0

 

Bem, como na tabela de legenda mostra; falta mostrar e explicar sobre a function DesenCryptar.

 

DesenCryptar

 

Segue a function dentro do Global.bas. (Referência 6.3 – Visual Basic 6.0)

 

Public Function DesenCryptar(ByVal DESCRICAO As String) As String

'funcao que Desencryptografa a descricao ou mesmo senha

Dim RC4

Static sRetorno

On Error GoTo error

 

    'setando variavel para criptografar e usando

    'um metodo da dll

    'nome da dll RC4DLL.DLL

    Set RC4 = CreateObject("RC4DLL.Crypt")

    sRetorno = RC4.DeCrypt(DESCRICAO, 9999)

 

error:

 

    If Err.Number <> 0 Then

        DesenCryptar = Err.Number

    Else

        DesenCryptar = vRetorno

    End If

    Set RC4 = Nothing

End Function

 

Referência: 6.3 – Visual Basic 6.0

 

Explicação:

 

A primeira atitude que tenho quando vejo uma function ou um método, é analisar a assinatura, ou seja, se é pública, se existe parâmetros de entrar, se retorna valores e que tipo de valores são retornados.

 

Public Function DesenCryptar(ByVal DESCRICAO As String) As String

 

Referência: 6.4 – Visual Basic 6.0

 

Essa function é publica, recebe um parâmetro de entrada do tipo String e retorna um valor do tipo String. Pelo fato de ser uma função que serve para descriptografar ou decodificar um valor, é necessário que receba e retorne um tipo de parâmetro.

 

Dim RC4

Static sRetorno

 

Referência: 6.5 – Visual Basic 6.0

 

A referência 6.5 mostra que apenas foram declaradas duas variáveis que no decorrer da function serão usadas. Esse Static sRetorno é uma variável do tipo String que será retornada no final de tudo.

 

On Error GoTo error

 

Referência: 6.7 – Visual Basic 6.0

 

Depois da declaração das variáveis, usei o On Error GoTo error para poder pegar qualquer tipo de erro que poderá acontecer dentro do bloco error, ou seja, depois da linha descrita na referência 6.7, todo código que der erro automaticamente o sistema saberá que tipo de erro aconteceu. Mais abaixo no código, existe um “error:” para poder pegar ou mostrar ao usuário o tipo de erro ou descrição do erro. É muito importante ter esse bloco dentro do código.

 

    Set RC4 = CreateObject("RC4DLL.Crypt")

    sRetorno = RC4.DeCrypt(DESCRICAO, 9999)

 

Referência: 6.8 – Visual Basic 6.0

 

A referência 6.8, apenas atribuo a variável criada anteriormente chamada “RC4”, crio o objeto da dll externa citada no passo V. É uma dll apenas para codificar e decodificar os caracteres necessários.

 

Em seguida, atribuo a variável sRetorno ao valor setado, concatenando o ponto e a function DeCrypt. Passei os valores necessários para execução da mesma. O valor recebido da function, virgula, o número padrão para decodificar.

 

error:

    If Err.Number <> 0 Then

        DesenCryptar = Err.Number

    Else

        DesenCryptar = sRetorno

    End If

    Set RC4 = Nothing

End Function

 

Referência: 6.9 – Visual Basic 6.0

 

Dentro do bloco “error:”, criei uma condição para verificar se o número do erro é diferente de zero, se for, a function recebe o número do erro para retornar a function que chamou. Senão, a function recebe o valor decriptografado e automaticamente retorna a function que chamou.

 

Depois disso, seto a variável RC4 para Nothing, ou seja, zero a instância criada anteriormente, finalmente fecho a function.

 

Ilustração da function dentro do Visual Basic 6.0

 

 

Segue alguns livros:

 

 

Chego ao final do artigo. Espero ter ajudado de alguma forma.

 

Fique de olho nos próximos artigos.

 

Qualquer dúvida, favor entrar em contato pelo e-mail: mauricio@aspneti.com.

 

Mauricio Junior

www.mauriciojunior.org

www.aspneti.com

 

Quer receber novidades e e-books gratuitos?

Contato: Telefone: (51) 3717-3796 | E-mail: webmaster@juliobattisti.com.br | Whatsapp: (51) 99627-3434

Júlio Battisti Livros e Cursos Ltda | CNPJ: 08.916.484/0001-25 | Rua Vereador Ivo Cláudio Weigel, 537 - Universitário, Santa Cruz do Sul/RS, CEP: 96816-208

Todos os direitos reservados, Júlio Battisti 2001-2021 ®

[LIVRO]: MACROS E PROGRAMAÇÃO VBA NO EXCEL 2010 - PASSO-A-PASSO

APRENDA COM JULIO BATTISTI - 1124 PÁGINAS: CLIQUE AQUI