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)

 

 

 

Legenda da Tabela

OK

Functions mostradas e explicadas

NAN

Functions não mostradas

Referência: 6.1 – Visual Basic 6.0

 

 

Function

Explicação da funcionalidade

Ok

ExecutaSQLArray

Essa function serve para executar algum comando SQL que retorne um array de dados. Essa forma de array pode ser entendido como RECORDSET, ou seja, um SELECT.

Ok

 

 

 

ExecutaSQL

Essa function serve para apenas executar um comando SQL, não retornar valor, ou seja, é responsável para executar um: INSERT, UPDATE e DELETE.

OK

 

 

 

Encryptografar

Essa function serve apenas para receber um parâmetro, criptografar e retornar o valor criptografado. Irei utilizar um componente externo para isso.

OK

 

 

 

DesenCryptar

Essa function serve apenas para receber um parâmetro criptografado e retornar o valor descriptografado, ou seja, ao contrário da function anterior.

NAN

 

 

 

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

www.ascompras.com