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.
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.
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