Utilizando a Classe através do CreateObject - Late Binding
Processo para utilizar a Classe sem a necessidade de referenciar a DLL em 'Referencias' em seu projeto VBA/VB, utilizando o CreateObject.
Exemplo:
Dim SendMen As Object
Set SendMen = CreateObject("KSD_Whatsapp.Class_whatsapp")
Eventos disponíveis na Classe
Abaixo listamos os principais eventos e seus parâmetros disponíveis na classe:
StartModulo
Inicializa o app que realizará a sincronização com o seu celular
Parâmetros:
- Número da licença: chave fornecida pela Kartoffel para utilização da aplicação
Exemplo:
Dim SendMen As Object
Set SendMen = CreateObject("KSD_Whatsapp.Class_whatsapp")
SendMen.StartModulo "Sua chave","Key User"
EndModulo
Finaliza o app de sincronização com celular.
Parâmetros: Não há parâmetros
Exemplo:
Dim SendMen As Object
Set SendMen = CreateObject("KSD_Whatsapp.Class_whatsapp")
SendMen.EndModulo
EnviaMensagem
Realiza o envio de mensagem de texto
Parâmetros:
- Número da licença: chave fornecida pela Kartoffel para utilização da aplicação
- Número do Celular: número do celular para o envio da mensagem ddd+celular (apenas números)
- Mensagem: mensagem a ser enviada
- KeySeg: número do seu Key User
Exemplo:
Dim SendMen As Object
Set SendMen = CreateObject("KSD_Whatsapp.Class_whatsapp")
SendMen.EnviaMensagem "Numero Licença", "Número do celular", "Sua Mensagem", "Key User"
EnviaImagem
Realiza o envio de uma imagem com a mensagem no corpo da imagem. Evento valido somente para o envio de mensagens. Se for passado uma arquivo que não seja uma imagem, a mensagem não será encaminhada.
Parâmetros:
- Número da licença: chave fornecida pela Kartoffel para utilização da aplicação
- Número do Celular: número do celular para o envio da mensagem ddd+celular (apenas números)
- Mensagem: mensagem a ser enviada
- Sua Imagem: rota do arquivo a ser enviado, em formato .JPG, .PNG, .BMP, .GIF
- KeySeg: número do seu Key User
Exemplo:
Dim SendMen As Object
Set SendMen = CreateObject("KSD_Whatsapp.Class_whatsapp")
SendMen.EnviaImagem "Numero Licença", "Número do celular", "Sua Mensagem", "Rota da Imagem", "Key User"
EnviaAnexo
Realiza o envio de um arquivo de qualquer formato. Evento realiza apenas o envio do anexo. Mensagem deverá ser enviada antes ao após esse evento. Não é obrigatório o envio de mensagens antes ou após o envio do anexo.
Parâmetros:
- Número da licença: chave fornecida pela Kartoffel para utilização da aplicação
- Número do Celular: número do celular para o envio da mensagem ddd+celular (apenas números)
- Anexo: rota do arquivo a ser enviado em qualquer formato no limite máximo de 100 mb (tamanho limitado pelo próprio Whatsapp)
- KeySeg: número do seu Key User
Exemplo:
Dim SendMen As Object
Set SendMen = CreateObject("KSD_Whatsapp.Class_whatsapp")
SendMen.EnviaAnexo "Numero Licença", "Número do celular", "Rota do anexo", "Key User"
VersaoApp
Informa a versão e date de disponibilização da classe
Exemplo:
Dim SendMen As Object
Set SendMen = CreateObject("KSD_Whatsapp.Class_whatsapp")
SendMen.VersaoApp
DadosLicenca
Carrega os dados da licença do usuário através de xml
Parâmetros:
- Número da licença: chave fornecida pela Kartoffel para utilização da aplicação
Exemplo:
Dim SendMen As Object
Set SendMen = CreateObject("KSD_Whatsapp.Class_whatsapp")
SendMen.DadosLicenca "Numero Licença"
Demais eventos, podem ser visualizados no arquivo de exemplo fornecido com o componente.
