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