VBA Advanced - Declarando Funções API - Declaring API Functions

|Blog Office VBA | Blog Excel | Blog Access | Blog Infochart | 

DESENVOLVO APLICAÇÕES VBA

Acesse uma ENORME lista de Dashboards e Infográficos

Aprenda a detectar gráficos que precisam mudar

Dados ou Informações?

Dashboards - 8 Importantes características desejáveis

Dashboards e Infocharts - Diversas Visualizações de Dados

Diversos exemplos de Gráficos

Excel - DashMap - Mapa do Brasil

Key Performance Indicators - 7 Características desejáveis

MIS - Usufruindo a excelência na análise das suas Informações

O Melhor do Business Intelligence

Os 10 mandamentos do gerenciamento de projetos

Receba  3 Calendários Customizáveis de  2013 em Excel

Usando Gauges em Dashboards no MS Access

Você tem direito as informações da sua empresa

Aprendermos a declarar funções API (Application Program Interface) pode ser muito útil no nosso dia a dia. API é um conjunto de funções predefinidas utilizadas para controlar a aparência e o comportamento de cada elemento do Windows. O único trabalho que teremos será o de aprender a definir as funções dentro do nosso código VBA, e conhecer as suas propriedades, e nos beneficiarmos amplamente das suas facilidades.

Mas onde estão estas funções ?  E como elas se comportam e funcionam ?

As funções API residem em arquivos DLL - Dinamic Link Library - que são bibliotecas de rotinas utilizadas pelo sistema Windows e podem ser encontradas na pasta Windows/System. As DLLs podem ser utilizadas por quaisquer aplicativos externos ao Windows como o VBA.

As DLLs permitiram que o Windows apresentasse uma interface padrão ao usuário. O exemplo mais conhecido é a Commom Dialog - Commdlg32.dll. Este arquivo contém todos os códigos necessários para criar diversas janelas de diálogos padrões no Windows - A janela Abrir, Salvar, Imprimir, etc... 

Então as DLLs são arquivos externos que podem ser usados na sua aplicação VBA e se a DLL que for usar estiver presente no Windows bastará criar um link para ela no seu projeto (fazemos isto declarando a API) além de indicar qual função deseja usar. 

As nossas aplicações ficarão menores pois não precisaremos distribuir este arquivo. Se a DLL não estiver presente no Windows precisaremos incluir a DLL no nosso KIT de distribuição. Abaixo segue uma esquematização deste processo:

Os principais arquivos DLLs do Windows são:

Arquivo DLL	Descrição
KERNEL32	Gerencia a memória ; multitarefa...
USER32	Gerencia mensagens , menus, cursores, comunicações, etc...
GID32	Graphics Device Interface - Recursos de desenho , telas e objetos , redimensionamentos...
COMDL32	Janelas comuns : impressão , salvar , abrir, ...
WINMM	Recursos multimídia, som , video, ...
Lz32	Rotinas de compressão e compactação

Como usar uma API ?

Bem, já sei onde estão as funções API, como posso usá-las no VBA?

Use-a como qualquer função: Fazendo a declaração da função e dos parâmetros, depois fazendo a chamada à função que declarou. Então:

A declaração de uma API possui a seguinte estrutura básica:

Private/Public Declare Function/Sub NomedaFunção Lib NomedaDLL Alias "NomeFunçãoAPI(Argumentos)" As TipodeDados 

Public/Private  - Determina se o procedimento estará disponível para toda aplicação ou somente pelo módulo na qual foi declarado. (As declarações em formulários ou módulos de classes não podem ser Publicas)

Declare Function / Declare Sub - Indica se o procedimento retorna ou não um valor.

NomedaFunção - É o nome da função como será usado no seu projeto VBA.

Lib NomedaDLL - É o nome da livraria DLL onde a função esta localizada.

Alias "NomedaFunçãoAPI" - É o nome da função API como disponibilizada pela DLL onde ela reside.

(Argumentos) - Indica quais parâmetros serão esperados pelo procedimento , o tipo de dados dos parâmetros e se eles serão passados por valor ( ByVal ) ou por referência ( ByRef ).

As TipodeDados - Indica o tipo de dados que sera retornado. Usado somente por funções. 

Vejamos como exemplo a declaração da API FindWindow:

Private Declare Function FindWindow Lib "User32" Alias "FindWindowA" (ByVal lpClassName as String , ByVal lpWindowName as String) As Long

A função é declarada como - Private

O procedimento irá retornar um valor - Function FindWindow 

Lib "User32" Alias "FindWindowA" - A função será exportada do arquivo User32.dll , onde será localizada como "FindWindowA"  (a letra A indica que estamos usando a versão ANSI da função pois temos também a versão UNICODE)

ByVal lpClassName As String e ByVal lpWindowsName As String - A função usa dois parâmetros do tipo String passados por Valor

AS Long - A função retornará um valor Inteiro Longo

Nota:

O parâmetro Alias (apelido em inglês) indica o verdadeiro nome da uma função API como ela é encontrada no arquivo DLL . Este  nome pode ser diferente do nome da função que irá usar na sua aplicação VBA. Como exemplo desta diferença podemos citar a função _lopen presente na DLL Kernel32. O nome _lopen até pode ser usado como nome de um função no VBA, mas não no Visual Basic. Neste caso, a declaração fica assim: Declare Function lopen Lib "kernel32" Alias "_lopen" (ByVal lpPathName As String, ByVal iReadWrite As Long) As Long. O VBA enxerga a função com o nome lopen  mas sabe , através do parâmetro Alias na declaração da API, que deve passar a chamada para a função _lopen presente na Kernel32.

Antes que fique assustado com a aparente complexidade do código envolvido e isto o desanime a utilizar as API´s, fique sabendo que tudo é uma questão de seguir determinadas regras , logo estará acostumado com a estrutura de uma declaração e terá um verdadeiro arsenal a sua disposição.

Existem mais ou menos umas 1000 funções API. Cada uma com sua declaração e parâmetros. Mesmo que separe as mais usadas, ainda precisará de uma boa memória para se recordar da declaração de cada uma. Ainda bem que existem ferramentas para facilitar este trabalho, uma dessas está disponível no Visual Basic e o API Viewer. 

Inicie o Visual Basic e no menu Add-Ins selecione API Viewer ( se não a opção não estiver no menu Add-Ins você deverá incluí-la). 

Após executar o API Viewer selecione na opção File do menu o item - Load Text File - ou Load Database File se você converteu o arquivo texto para mdb . A seguir selecione o arquivo - Win32Api.txt ou Win32Api.mdb -desta forma serão carregadas todas as declarações disponíveis para as funções API. Veja abaixo a janela API Viewer exibindo o resultado :

Na combo Api Type você pode escolher o que quer pesquisar:

1. Constants
2. Declares
3. Types

Na combo seguinte você digita as primeiras palavras da sua pesquisa.

Ao clicar  no botão Add a declaração irá ser exibida na caixa - Selected Items. Dai se você clicar no botão Copy irá copiar a declaração para a área de transferência e depois poderá colar a declaração no seu projeto. As opções Public e Private alteram o escopo da declaração.

O botão Insert irá inserir a declaração no formulário atual. O botão Clear irá limpar a caixa Selected Items e o botão Remove irá remover a declaração que você selecionou.

Percebeu que com o API Viewer fica mais fácil declarar uma API  , mas ele não é a única ferramenta que você pode usar , a Win32 SDK - (Software Development Kit) - é uma referência compreensiva das funções API disponíveis além da MSDN que você pode encontrar em  http://msdn.microsoft.com.

Passando os parâmetros para a API

Declarar uma API é apenas o primeiro passo, para que efetivamente obtenha resultados. Para evocar a função declarada precisar passar os parâmetros corretos, tratando o resultado da função (seu retorno). Veja o exemplo prático:

Usaremos a função API GetDiskFreeSpace que nos dá o espaço disponível na unidade de disco indicada. 

1. Inicie um novo projeto no VBA 
2. Ative o API Viewer e digite os primeiros caracteres da função desejada , quando a função surgir na janela Available Items clique no botão Add . Veja abaixo

3. Como vamos inserir a declaração no formulário padrão , deveremos alterar o escopo da declaração para Private e a seguir clicar no botão Insert para inserir a declaração no formulário do projeto. 

Abaixo a declaração no formulário:

Private Declare Function GetDiskFreeSpace Lib "kernel32" Alias "GetDiskFreeSpaceA"  (ByVal _ lpRootPathName As String, lpSectorsPerCluster As Long, lpBytesPerSector As Long, _ lpNumberOfFreeClusters As Long, lpTtoalNumberOfClusters As Long) As Long

Já temos a declaração disponível no formulário , agora podemos escrever o código que chama a função API . Insira um botão de comando no formulário e digite o código abaixo no evento Click do botão :

Private Sub Command1_Click() Dim lSecPerClust As Long Dim lBytesPerSec As Long Dim lFreeClust As Long Dim lTotalClust As Long Dim lRetorno As Long Let lRetorno = GetDiskFreeSpace("C:\", lSecPerClust, lBytesPerSec, lFreeClust, lTotalClust) MsgBox "Espaço livre no drive C em Clusters = " & lFreeClust & vbCrLf & "Total de Clusters " & lTotalClust End Sub

Você deve passar cinco parâmetros para a função GetDiskFreeSpace : 

1. lpRootPathName As String  - o nome da unidade a qual desejamos conhecer o espaço
2. lpSectorsPerCluster As Long - o número de setores por clusters
3. lpBytesPerSector As Long - o número de bytes por setor
4. pNumberOfFreeClusters As Long - o número livre de clusters
5. lpTtoalNumberOfClusters As Long - o número total de clusters

Para isto deverá declarar 5 variáveis do tipo Long e fazer a chamada da função . O retorno da função é armazenado na variável lRetorno (perceba que não fazemos nada com essa variável) ; além disto a função devolve quatro tipos diferentes de informação , mas não exatamente o tipo de informação que você precisa.  Afinal você quer saber o espaço em bytes livres da unidade e não em clusters. 

Para contornar este problema você deve criar uma função que trate as informações e as exiba no formato adequado. Abaixo temos uma possível solução para o problema:

sDrive = Left$(sPath, 1) & ":\"
lRetorno = GetDiskFreeSpace(sDrive, lsetoresporcluster, lbytesporsetor,lclusterlivres, ltotaldeclusters)EspacoLivre = (lsetoresporcluster * lbytesporsetor * lclusterlivres)
End Function

Function EspacoLivre (sPath As String) As Double Dim sDrive As String Dim lRetorno As Long Dim lsetoresporcluster As Long Dim lbytesporsetor As Long Dim lclusterlivres As Long Dim ltotaldeclusters As Long

Agora para chamar a função basta informar o drive desejado : 

MsgBox " Espaco livre " & Format(EspacoLivre("c:\"), "###,###,###,###") & " bytes "

Simples, não ? Acho que até agora não deve ter havido nenhum problema quanto ao entendimento em como declarar e usar uma função API. Vamos mostrar outro exemplo onde as coisas não serão tão óbvias. 

Quando usamos parâmetros que retornam dados do tipo String devemos ter mente que uma API esta tratando com strings C (linguagem C) (basicamente ponteiros de bytes). Neste caso a API irá requerer que prepare melhor as variáveis de retorno antes de fazer a chamada a API.

As funções API nunca retornam os valores strings diretamente, e,  se um procedimento precisa retornar um valor string ele irá esperar que forneça uma string na lista de parâmetros e que você obtenha o resultado da variável string que forneceu. Vejamos como exemplo a API GetComputerName que retorna o nome dado ao computador.

A declaração obtida na API Viewer é a seguinte:

Public Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long

A função toma dois parâmetros :

1. lpBuffer - uma string passada por valor ( ByVal ) que irá receber o nome do computador da API
2. nSize - usado para fornecer para a API o tamanho da string lpBuffer quando a função for chamada e também receber o tamanho da string retornada em lpBuffer pela função. 

Ambos os parâmetros estão sendo passados como ponteiros.

Vejamos o código usado para chamar a função:

Private Sub Form_Load()    Dim strNome As String    Dim lretorno as Long    'Cria a variavel strstring    strNome = String(255, Chr$(0))    'Obtem o nome do computador    lretorno= GetComputerName(strNome, 255)    'remove nulos chr$(0)    strNome = Left$(strNome, InStr(1, strNome, Chr$(0)) - 1)    'exibe o nome do computador    MsgBox strNome End Sub

Observe que declaramos uma variável string strNome para receber o nome do computador retornado pela função . A seguir :

1. Inicializamos a varíavel  -  strNome = String(255, Chr$(0)) 
2. e após receber a o retorno da função  -  lretorno= GetComputerName(strNome, 255)
3. precisamos extrair da variável - strNome = Left$(strNome, InStr(1, strNome, Chr$(0)) - 1)  o nome do computador. 

A variável lretorno pode assumir dois valores : 0 se houve algum erro e 1 se tudo deu certo.

Sem estes procedimentos , ao executar a chamada da função teríamos um erro em tempo de execução.

Os tipos de dados dos parâmetros das API

Os tipos de dados dos parâmetros retornados por uma função API podem ser de diversos tipos , e , se você conhecer a linguagem C , vai estar familiarizado com esses tipos. Abaixo damos como converter os tipos de dados para o Visual Basic:

Tipos de dados em C	Declarar no VB como	Chamar como
ATOM	ByVal variable As Integer	Uma expressão que define um valor  n Int.
BOOL	ByVal variable As Long	Uma expressão que define um valor   Long
BYTE	ByVal variable As Byte	Uma expressão que define um valor   Byte
CHAR	ByVal variable As Byte	Uma expressão que define um valor   Byte
COLORREF	ByVal variable As Long	Uma expressão que define um valor   Long
DWORD	ByVal variable As Long	Uma expressão que define um valor   Long
HWND, HDC, HMENU, etc.	ByVal variable As Long	Uma expressão que define um valor   Long
INT, UINT	ByVal variable As Long	Uma expressão que define um valor   Long
LONG	ByVal variable As Long	Uma expressão que define um valor   Long
LPARAM	ByVal variable As Long	Uma expressão que define um valor   Long
LPDWORD	variable As Long	Uma expressão que define um valor   Long
LPINT, LPUINT	variable As Long	Uma expressão que define um valor   Long
LPRECT	variable As type	Qualquer variável do tipo definido pelo usuário
LPSTR, LPCSTR	ByVal variable As String	Uma expressão que define um valor de  String
LPVOID	variable As Any	Qualquer (use ByVal quando passar uma string)
LPWORD	variable As Integer	Uma expressão que define um valor  n Int.
LRESULT	ByVal variable As Long	Uma expressão que define um valor   Long
NULL	As Any or ByVal variable As Long	ByVal Nothing ou ByVal 0& ou vbNullString
SHORT	ByVal variable As Integer	Uma expressão que define um valor  n Int.
VOID	Sub procedure	Não aplicável
WORD	ByVal variable As Integer	Uma expressão que define um valor de n Int.
WPARAM	ByVal variable As Long	Uma expressão que define um valor  Long

Observe que o tipo Boleano é avaliando como um Long e pode assumir os valores 0 para falso e 1 para verdadeiro e que o tipo NULL pode ser passado por valor ( ByVal) como 0& ou como vbNullString.

Percebeu que ao declarar uma função API usamos , no Visual Basic , basicamente os seguintes tipos de dados 

• Byte - um inteiro de 8 bits
• Integer - um inteiro de 16 bits
• Long - um inteiro de 32 bits
• String - uma variável string de comprimento variável
• Any - suporta qualquer um dos outros tipos

Passando os parâmetros por Valor ou por Referência

O padrão é o Visual Basic passar todos os parâmetros por referência ( ByRef ), ou seja, ao invés de passar o valor atual do argumento ele passa um endereço de 32 bits onde o valor esta armazenado. Desta forma se ocorrer qualquer alteração no valor do parâmetro isto será refletido no valor original do mesmo. Se você passar uma variável chamada minhavar por referência para uma função API ela poderá alterar o conteúdo da variávelminhavar. 

Para passar um parâmetro por valor usamos a palavra ByVal precedendo o parâmetro , com isto estamos passando uma cópia do valor do parâmetro e não o seu endereço de localização. Assim , se voce passar uma variável chamada minhavar por valor para uma função API , a função não tem a possibilidade de editar o conteúdo da variável minhavar.

Algumas funções esperam que o valor seja passado por valor , ou seja , elas esperam o valor atual e não uma endereço de localização do parâmetro . Não preciso nem dizer que se você passar um valor por referência isto pode acarretar resultados imprevisíveis como por exemplo o travamento do seu computador.

Ao passar uma string por valor você esta passando o endereço do primeiro byte de dados da string . Se passar uma string por referência você estará passando o endereço de memória onde outro endereço esta armazenado , neste caso o primeiro byte de dados da string.

Alguns conceitos adicionais sobre a passagem de parâmetros ByVal ou ByRef 

1. As strings sempre são passadas por Valor ( ByVal ). Porém a função API poderá alterar o conteúdo da variável string.
2. As estruturas definidas pelo usuário são sempre passadas por referência ( ByRef )
3. Os Vetores ( Arrays ) sempre são passados ByRef quando passados por inteiro para a função API.
4. Os valores numéricos podem ser passados por Valor ou por Referência dependendo da função

Qual o número da sua janela ? Enviando e recebendo mensagens...

Vamos abordar agora alguns conceitos muito importantes envolvendo as API´s , o Windows e o VB. Quando você executa um projeto , por mais simples que seja , ele geralmente é composto basicamente por formulários , controles e o código associado. O Windows identifica cada formulário e controle atribuindo a cada objeto um número que o identifica. Assim cada janela possui um Handle  , ou um número identificador que a identifica de forma única. O VB dispõe de uma propriedade Hwnd para todos os controles que necessitam de um Handle identificador assim você pode usar esta propriedade para identificar cada objeto do seu projeto.

Vamos usar uma API muito simples que ilustra o uso de um Handle (identificador); a função API - FlashWindow. Talvez ela não seja muito útil , mas servirá para os nosso propósitos . Vamos fazer um raio X da funçãoFlashWindow.

- A função inverte as cores do título de uma janela.

- Declarando a função - Para declarar abra o API Viewer ou outro utilitário ( no Super CD VB temos um utilitário com mais de 900 funções API´s com suas declarações , constantes e exemplos ) e selecione a funçãoFlashWindow:

Private Declare Function FlashWindow Lib "user32" Alias "FlashWindow" (ByVal hwnd As Long, ByVal bInvert As Long) As Long

1. O procedimento será visível somente no formulário - Private
2. O procedimento irá retornar um Valor - Function 
3. O nome da função usado no VB será - FlashWindow
4. Estamos usando a DLL - User32
5. O nome da função API na DLL é - FlashWindow
6. A função solicita dois argumentos :

• Hwnd - o Handle , um número que identifica a janela.
• bInvert - Informa se o título da janela será invertido ou não. True inverte a cor do título e False volta ao estado original

7. O tipo de dados retornado será do tipo Long : Verdadeiro( 1 ) ou Falso ( 0 )

-Agora inicie um novo projeto no VB e no formulário padrão insira dois botões de comando e um controle Timer definindo a propriedade Interval do Timer para um valor em torno de 500.

Veja abaixo o jeitão do formulário:

- Finalmente inclua o código abaixo no formulário:

Private Declare Function FlashWindow Lib "user32" (ByVal hwnd As Long, ByVal bInvert As Long) As Long Dim lngRet As Long Dim SimNao As Boolean Private Sub Command1_Click()   Me.Caption = "Olá , Estou piscando para você.."   SimNao = True        'piscar End Sub Private Sub Command2_Click()    Me.Caption = "Olá, cansei de piscar..."    SimNao = False       ' parar de piscar End Sub Private Sub Timer1_Timer()    lngRet = FlashWindow(Me.hwnd, SimNao) End Sub

- Observe a chamada da função : Você passa o identificador da janela atual ( Me.hwnd ) e diz se é para piscar (True) ou não (False) através da variável boolena SimNao. O retorno será True (1)  ou False (0). Você pode observar o valor da variável de retorno lngRet.

Você ja ouviu falar nas mensagens do Windows. Não ?? Pois vai ouvir agora... 

Para se comunicar com o seu programa e saber qual o tipo de informação foi recebida e qual deve ser processada , o Windows envia mensagens ao seu programa. Uma mensagem é enviada para o seu formulário quando o usuário clica um botão ou movimenta  mouse, etc.. (O retorno da mensagem é capturada pelo seu programa VB e processado de maneira transparente). No exemplo acima quando o usuário clica no botão Piscar,  o windows envia uma mensagem para processar esta informação.

Todas as mensagens são enviadas usando quatro parâmetros: 

1. O identificador do objeto ( janela, formulário, controle) para onde a mensagem será enviada.
2. O identificador da mensagem 
3. Dois parâmetros que vão depender da mensagem.

Vamos apresentar agora a função API que faz este serviço: SendMessage (nome sugestivo não ? )

SendMessage envia uma mensagem chamando a função do Windows para a janela indicada. O controle não retorna ao programa que a chamou enquanto sua execução não estiver finalizada. Sua declaração é a seguinte:

Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Vamos ver uma aplicação prática usando a função SendMessage. Essa você vai gostar... 

- Vamos usar a função SendMessagem para enviar uma mensagem ao controle ListBox. Quando você digitar algo no controle TextBox o evento Change do controle irá enviar uma mensagem ao Controle ListBox selecionado o item da Lista . 

- Inicie um novo projeto no Visual Basic e no formulário padrão insira um controle label, um controle ListBox e um controle TextBox , como a figura abaixo:

O formulário com os controles	Ao pressionar uma tecla a seleção ocorre na lista

- Para declarar a função SendMessage use o API Viewer conforme já ensinado. Vamos declarar a função na seção General Declarations do formulário , assim:

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Any) As Long Const LB_FINDSTRING = &H18F

Notou que declaramos uma constante : Const LB_FINDSTRING = &H18F  Fazemos isto usando o API Viewer , assim:

• Inicie o API Viewer e selecione na opção File do Menu o item - Load Text File
• A seguir selecione o arquivo - Win32Api.txt
• Na Combo - API Type - Selecione Constants
• Na caixa de texto a seguir digite as letras lb_f
• Em Available Items , selecione LB_FINDSTRING=&H18F
• Clique  no botão Add e a seguir no botão Copy 

Veja abaixo a figura exibindo a seleção:

O código do formulário é dado a seguir:

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Any) As Long Const LB_FINDSTRING = &H18F Private Sub Form_Load()    With List1         .AddItem "Computador"         .AddItem "Monitor"         .AddItem "Modem"         .AddItem "Impressora"         .AddItem "Scanner"         .AddItem "Placa de Som"         .AddItem "Teclado"         .AddItem "CD-Rom"         .AddItem "Mouse"   End With End Sub Private Sub Text1_Change()   'Retorna o item de listindex   List1.ListIndex = SendMessage(List1.hwnd, LB_FINDSTRING, -1, ByVal CStr(Text1.Text)) End Sub

-Como funciona:

- Quando você digitar algo na caixa de texto o evento text1_Change ira invocar a função SendMessage, assim:

• SendMessage enviará uma mensagem para o controle List1. O controle é identificado pelo seu Handle. List1.hwnd
• O outro parâmetro - LB_FINDSTRING - indica que o caractere será procurado no controle List1.
• Cstr(Text1.text) é a string que será procurada.

O retorno será a posição list1.Listindex na lista de opções do controle ListBox.

Pronto !!!  com isso resolvemos um problema com poucas linhas de código usando uma chamada a uma função API .

Além da função SendMessage o temos a função API PostMessage que atua de um modo um pouco diferente. PostMessage envia uma mensagem postando a mensagem na lista de tarefas do Windows , sendo  assim , ela somente será processada depois que as outras tarefas forem finalizadas. 

A função PostMessage retorna o controle para o programa que a invocou de imediato não retornando nenhum valor. Este valor somente será retornado quando a mensagem for processada pelo Windows. A declaração dePostMessage é:

Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

1. hwnd é o número que identifica o objeto para o qual a mensagem é enviada
2. wMsg é a mensagem a ser enviada
3. wParam e lParam vão depender da mensagem

A seguir vamos mostrar um exemplo usando a função PostMessage. A função é usada para enviar uma mensagem a uma janela ativa . No caso a mensagem será para que a janela seja fechada. Abaixo o formulário padrão com os controles:

Estaremos usando também a função API FindWindow que irá localizar a janela ativa (informada pelo usuário na caixa de texto) , a seguir invocamos a função PostMessage que irá enviar a mensagem para a janela encontrada com o parâmetro para fechar a janela.(WM_CLOSE=&H10).

As declarações serão usadas no formulário padrão do projeto VB e por isso serão declaradas como Private. Abaixo as declarações e a constante usada.

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, _ ByVal lpWindowName As String) As Long Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, _ ByVal wParam As Long, lParam As Any) As Long Const WM_CLOSE = &H10

 A constante foi obtida usando o API Viewer como no exemplo anterior.

No botão de comando(cmdFechar)  usado no formulário insira o código a seguir:

Private Sub cmdFechar_Click() Dim winHwnd As Long Dim RetVal As Long winHwnd = FindWindow(vbNullString, Text1.Text) Debug.Print winHwnd If winHwnd <> 0 Then    RetVal = PostMessage(winHwnd, WM_CLOSE, 0&, 0&)    If RetVal = 0 Then       MsgBox "Erro ao postar mensagem.", vbCritical, "Usando PostMessage"    End If Else    MsgBox Text1.Text + " não esta aberto.", vbInformation, "Usando PostMessage" End If End Sub

Como Funciona:

- O usuário deverá informar o nome do Título da Janela Ativa ( tem que ser exatamente igual ao nome do título da janela. Ex: Controle de Volume , Sem Título - Bloco de Notas , etc... )

- A função FindWindow irá localizar a janela e retornará o Handle da mesma

- O Handle ou identificador da janela será usado na função PostMessage para que a mensagem seja direcionada para a janela identificada pelo Handle . O Parâmetro WM_CLOSE informa que  a janela deverá ser fechada.Obs: Os parâmetros : 0& e 0& são equivalentes a NULL.

Gostou ????  O assunto é vastíssimo e por isso vamos ficando por aqui , esperando retornar em breve  abordando outros aspectos das API´s. Abaixo alguns endereços relacionados a funções API´s. Tchau... 

• http://msdn.microsoft.com/library/default.asp
• www.allapi.net
• www.vbapi.com/ref/

Estou transcrevendo algumas funções para que possa testar e se familiarizar:

A função CreateProcess criará um novo processo no segmento primário e este executará o arquivo especificado.

Const INFINITE = &HFFFF

Const STARTF_USESHOWWINDOW = &H1

Private Enum enSW

SW_HIDE = 0

SW_NORMAL = 1

SW_MAXIMIZE = 3

SW_MINIMIZE = 6

End Enum

Private Type PROCESS_INFORMATION

hProcess As Long

hThread As Long

dwProcessId As Long

dwThreadId As Long

End Type

Private Type STARTUPINFO

cb As Long

lpReserved As String

lpDesktop As String

lpTitle As String

dwX As Long

dwY As Long

dwXSize As Long

dwYSize As Long

dwXCountChars As Long

dwYCountChars As Long

dwFillAttribute As Long

dwFlags As Long

wShowWindow As Integer

cbReserved2 As Integer

lpReserved2 As Byte

hStdInput As Long

hStdOutput As Long

hStdError As Long

End Type

Private Type SECURITY_ATTRIBUTES

nLength As Long

lpSecurityDescriptor As Long

bInheritHandle As Long

End Type

Private Enum enPriority_Class

NORMAL_PRIORITY_CLASS = &H20

IDLE_PRIORITY_CLASS = &H40

HIGH_PRIORITY_CLASS = &H80

End Enum

Private Declare Function CreateProcess Lib "kernel32" Alias "CreateProcessA" (ByVal lpApplicationName As _ String, ByVal lpCommandLine As String, lpProcessAttributes As SECURITY_ATTRIBUTES, _ lpThreadAttributes As SECURITY_ATTRIBUTES, ByVal bInheritHandles As Long, ByVal dwCreationFlags _ As Long, lpEnvironment As Any, ByVal lpCurrentDriectory As String, lpStartupInfo As STARTUPINFO, _ lpProcessInformation As PROCESS_INFORMATION) As Long

Private Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds _ As Long) As Long

Private Function SuperShell(ByVal App As String, ByVal WorkDir As String, dwMilliseconds As Long, ByVal _ start_size As enSW, ByVal Priority_Class As enPriority_Class) As Boolean

Dim pclass As Long

Dim sinfo As STARTUPINFO

Dim pinfo As PROCESS_INFORMATION

'Not used, but needed

Dim sec1 As SECURITY_ATTRIBUTES

Dim sec2 As SECURITY_ATTRIBUTES

'Set the structure size

sec1.nLength = Len(sec1)

sec2.nLength = Len(sec2)

sinfo.cb = Len(sinfo)

'Set the flags

sinfo.dwFlags = STARTF_USESHOWWINDOW

'Set the window's startup position

sinfo.wShowWindow = start_size

'Set the priority class

pclass = Priority_Class

'Start the program

If CreateProcess(vbNullString, App, sec1, sec2, False, pclass, _

0&, WorkDir, sinfo, pinfo) Then

'Wait

WaitForSingleObject pinfo.hProcess, dwMilliseconds

SuperShell = True

Else

SuperShell = False

End If

End Function

Private Sub Form_Load()

'Set the dialog's title

CDBox.DialogTitle = "Choose an EXEC-File ..."

'Error when canceled

CDBox.CancelError = True

'Set the dialog's filter

CDBox.Filter = "EXEC-Files (*.exe)|*.exe|All files (*.*)|*.*"

'Show the 'Open File'-dialog

CDBox.ShowOpen

'Execute the program

SuperShell CDBox.filename, Left$(CDBox.filename, Len(CDBox.filename) - Len(CDBox.FileTitle)), 0, SW_NORMAL, HIGH_PRIORITY_CLASS

End

End Sub

A função FindWindow (FindWindow) recupera o identificador de uma janela de nível superior. Esta não procura janelas filho e não diferencia letras maiúsculas de minúsculas. Para buscar janelas filho use a função FindWindowEx.

Private Declare Function FindWindow Lib "USER32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Declare PtrSafe Function FindWindow Lib "USER32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr

A função FindWindowEx assim como a anterior, recupera um identificador de uma janela filho. Também não diferencia entre maiúsculas de minúsculas.

Private Declare Function FindWindowEx Lib "USER32" _

                                  Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, _

                                  ByVal lpsz1 As String, ByVal lpsz2 As String) As Long

Private Declare PtrSafe Function FindWindowEx Lib "USER32" _

                                  Alias "FindWindowExA" (ByVal hWnd1 As LongPtr, ByVal hWnd2 As LongPtr, _

                                  ByVal lpsz1 As String, ByVal lpsz2 As String) As LongPtr

A GDI+ (Detalhes aqui) expõe uma API simples que consiste em cerca de 600 funções, as quais são implementadas através da biblioteca Gdiplus.dll e declarada no Gdiplusflat.h. As funções do API GDI+ são compostas por uma coleção de cerca de 40 classes C++. Recomenda-se que não as chame diretamente, ao fazer as chamadas deve fazê-lo chamando os métodos e funções fornecidas pelo C++. 

Private Declare Function GdipCreateBitmapFromFile Lib "GDIPlus" (ByVal filename As Long, bitmap As Long) As Long

Private Declare PtrSafe Function GdipCreateBitmapFromFile Lib "GDIPlus" (ByVal filename As LongPtr, bitmap As LongPtr) As LongPtr

A função OleCreatePictureIndirect (Detalhes) cria um objeto de imagem nova inicializada de acordo com uma estrutura PICTDESC.

Private Declare Function OleCreatePictureIndirect Lib "oleaut32.dll" (PicDesc As PICTDESC, RefIID As GUID, ByVal fPictureOwnsHandle As Long, IPic As IPicture) As Long

Private Type PICTDESC

    Size As Long

    Type As Long

    hPic As Long

    hPal As Long

End Type

Private Declare PtrSafe Function OleCreatePictureIndirect Lib "oleaut32.dll" (PicDesc As PICTDESC, RefIID As GUID, ByVal fPictureOwnsHandle As LongPtr, IPic As IPicture) As LongPtr

Private Type PICTDESC

    Size As Long

    Type As Long

    hPic As LongPtr

    hPal As LongPtr

End Type

A função GetClassName recupera o nome da classe à qual pertence a janela especificada.

(ByVal hWnd As LongPtr, ByVal lpClassName As String, _

Public Declare Function GetClassName Lib "USER32" Alias "GetClassNameA" _

                                     (ByVal hWnd As Long, ByVal lpClassName As String, _

                                      ByVal nMaxCount As Long) As Long

Public Declare PtrSafe Function GetClassName Lib "USER32" Alias "GetClassNameA" ByVal nMaxCount As LongPtr) As Long

A função GetClassName recupera o nome da classe à qual pertence a janela especificada.

Public Declare Function GetClassName Lib "USER32" Alias "GetClassNameA" _

                                     (ByVal hWnd As Long, ByVal lpClassName As String, _

                                      ByVal nMaxCount As Long) As Long

Public Declare PtrSafe Function GetClassName Lib "USER32" Alias "GetClassNameA" _

                                     (ByVal hWnd As LongPtr, ByVal lpClassName As String, _

                                      ByVal nMaxCount As LongPtr) As Long

A função getDC recupera um identificador num contexto de dispositivo (DC) para a área Cliente de uma janela especificada ou em uma tela inteira. Podemos usar o identificador retornado nas funções GDI subseqüentes para desenhar no DC. O contexto de dispositivo será uma estrutura de dados, cujos valores são usados ​​internamente pelo GDI. A função GetDCEx é uma extensão para GetDC, e dá controle a um aplicativo.

Private Declare Function GetDC Lib "USER32" (ByVal hWnd As Long) As Long

Private Declare PtrSafe Function GetDC Lib "USER32" (ByVal hWnd As LongPtr) As LongPtr

GetDesktopWindow

Public Declare Function GetDesktopWindow Lib "USER32" () As Long

Public Declare PtrSafe Function GetDesktopWindow Lib "USER32" () As LongPtr

getDeviceCaps

Private Declare Function GetDeviceCaps Lib "gdi32" (ByVal hDC As Long, ByVal nIndex As Long) As Long

Private Declare PtrSafe Function GetDeviceCaps Lib "gdi32" (ByVal hDC As LongPtr, ByVal nIndex As Long) As Long

GetDriveType

Private Declare Function GetDriveType Lib "kernel32" Alias _

                        "GetDriveTypeA" (ByVal sDrive As String) As Long

Private Declare PtrSafe Function GetDriveType Lib "kernel32" Alias _

                                "GetDriveTypeA" (ByVal sDrive As String) As LongPtr

GetForegroundWindow

Declare Function GetForegroundWindow Lib "user32.dll" () As Long

Declare PtrSafe Function GetForegroundWindow Lib "user32.dll" () As LongPtr

getFrequency

Declare Function getFrequency Lib "kernel32" Alias "QueryPerformanceFrequency" (cyFrequency As Currency) As Long

Private Declare PtrSafe Function getFrequency Lib "kernel32" Alias "QueryPerformanceFrequency" (cyFrequency As Currency) As Long

GetKeyState

Declare Function GetKeyState Lib "USER32" (ByVal vKey As Long) As Integer

Declare PtrSafe Function GetKeyState Lib "USER32" (ByVal vKey As Long) As Integer

GetLastInputInfo

#If VBA7 Then

    Private Type LASTINPUTINFO

        cbSize As LongPtr

        dwTime As LongPtr

    End Type

    Private Declare PtrSafe Sub GetLastInputInfo Lib "USER32" (ByRef plii As LASTINPUTINFO)

#Else

    Private Type LASTINPUTINFO

        cbSize As Long

        dwTime As Long

    End Type

    Private Declare Sub GetLastInputInfo Lib "USER32" (ByRef plii As LASTINPUTINFO)

#End If

GetSystemMetrics

Private Declare Function GetSystemMetrics Lib "USER32" (ByVal nIndex As Long) As Long

Private Declare PtrSafe Function GetSystemMetrics Lib "USER32" (ByVal nIndex As Long) As Long

GetTempPath

Declare Function GetTempPath Lib "kernel32" _

                             Alias "GetTempPathA" (ByVal nBufferLength As Long, _

                                                   ByVal lpbuffer As String) As Long

Declare PtrSafe Function GetTempPath Lib "kernel32" _

                             Alias "GetTempPathA" (ByVal nBufferLength As longptr, _

                                                   ByVal lpbuffer As String) As Long

getTickCount

Private Declare Function getTickCount Lib "kernel32" Alias "QueryPerformanceCounter" (cyTickCount As Currency) As Long

Private Declare PtrSafe Function getTickCount Lib "kernel32" Alias "QueryPerformanceCounter" (cyTickCount As Currency) As Long

    '

getTime

Private Declare Function timeGetTime Lib "winmm.dll" () As Long

Private Declare PtrSafe Function timeGetTime Lib "winmm.dll" () As Long

GetWindow

Public Declare Function GetWindow Lib "USER32" _

                                  (ByVal hWnd As Long, ByVal wCmd As Long) As Long

Public Declare PtrSafe Function GetWindow Lib "USER32" _

                                  (ByVal hWnd As LongPtr, ByVal wCmd As LongPtr) As LongPtr

GetWindowLong

Private Declare Function GetWindowLong Lib "USER32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long

Private Declare PtrSafe Function GetWindowLong Lib "USER32" Alias "GetWindowLongA" (ByVal hWnd As LongPtr, ByVal nIndex As Long) As LongPtr

GetWindowsDirectory

Declare Function GetWindowsDirectory& Lib "kernel32" Alias _

                                      "GetWindowsDirectoryA" (ByVal lpbuffer As String, _

                                                              ByVal nSize As Long)

Declare PtrSafe Function GetWindowsDirectory& Lib "kernel32" Alias _

                                      "GetWindowsDirectoryA" (ByVal lpbuffer As String, _

                                                              ByVal nSize As LongPtr)

GetWindowText

Public Declare Function GetWindowText Lib "USER32" Alias "GetWindowTextA" _

                                      (ByVal hWnd As Long, ByVal lpString As String, _

                                       ByVal cch As Long) As Long

Public Declare PtrSafe Function GetWindowText Lib "USER32" Alias "GetWindowTextA" _

                                      (ByVal hWnd As LongPtr, ByVal lpString As String, _

                                       ByVal cch As LongPtr) As Long

InternetGetConnectedState

Public Declare Function InternetGetConnectedState _

        Lib "wininet.dll" (lpdwFlags As Long, _

        ByVal dwReserved As Long) As Boolean

Public Declare PtrSafe Function InternetGetConnectedState _

        Lib "wininet.dll" (lpdwFlags As LongPtr, _

        ByVal dwReserved As long) As Boolean

IsCharAlphaNumericA

Private Declare Function IsCharAlphaNumericA Lib "USER32" (ByVal byChar As Byte) As Long

Private Declare PtrSafe Function IsCharAlphaNumericA Lib "USER32" (ByVal byChar As Byte) As Long

ReleaseDC

Private Declare Function ReleaseDC Lib "USER32" (ByVal hWnd As Long, ByVal hDC As Long) As Long

Private Declare PtrSafe Function ReleaseDC Lib "USER32" (ByVal hWnd As LongPtr, ByVal hDC As LongPtr) As Long

SendMessage

Public Declare Function SendMessageA Lib "user32" (ByVal hWnd As Long, ByVal wMsg As Long, _

                                                   ByVal wParam As Long, lParam As Any) As Long

Public Declare PtrSafe Function SendMessageA Lib "user32" (ByVal hWnd As LongPtr, ByVal wMsg As Long, _

                                                           ByVal wParam As LongPtr, lParam As Any) As LongPtr

SetActiveWindow

Declare Function SetActiveWindow Lib "user32.dll" (ByVal hWnd As Long) As Long

Declare PtrSafe Function SetActiveWindow Lib "user32.dll" (ByVal hWnd As LongPtr) As LongPtr

SetCurrentDirectory

Private Declare Function SetCurrentDirectoryA Lib "kernel32" (ByVal lpPathName As String) As Long

Private Declare PtrSafe Function SetCurrentDirectoryA Lib "kernel32" (ByVal lpPathName As String) As Long

SetWindowLongPtr

Private Declare Function SetWindowLongPtr Lib "USER32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Private Declare PtrSafe Function SetWindowLongPtr Lib "USER32" Alias "SetWindowLongA" (ByVal hWnd As LongPtr, ByVal nIndex As Long, ByVal dwNewLong As LongPtr) As LongPtr

SHBrowseForFolder

#If VBA7 Then

    Private Type BROWSEINFO

        hOwner As LongPtr

        pidlRoot As Longp

        pszDisplayName As String

        lpszTitle As String

        ulFlags As Long

        lpfn As LongPtr

        lParam As LongPtr

        iImage As Long

    End Type

                        

    Private Declare PtrSafe Function SHBrowseForFolder Lib "shell32.dll" Alias "SHBrowseForFolderA" _

        (lpBrowseInfo As BROWSEINFO) As LongPtr

#Else

    Private Type BROWSEINFO

        hOwner As Long

        pidlRoot As Long

        pszDisplayName As String

        lpszTitle As String

        ulFlags As Long

        lpfn As Long

        lParam As Long

        iImage As Long

    End Type

                        

    Private Declare Function SHBrowseForFolder Lib "shell32.dll" Alias "SHBrowseForFolderA" _

        (lpBrowseInfo As BROWSEINFO) As Long

#End If

Private Const BIF_RETURNONLYFSDIRS = &H1

ShellExecute

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _

        ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _

        ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _

        ByVal hwnd As LongPtr, ByVal lpOperation As String, ByVal lpFile As String, _

        ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As LongPtr

SHFileOperation

#If VBA7 Then

    Type SHFILEOPSTRUCT

        hWnd As LongPtr

        wFunc As Long

        pFrom As String

        pTo As String

        fFlags As Integer

        fAborted As Boolean

        hNameMaps As Longptr

        sProgress As String

    End Type

    Declare PtrSafe Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" _

                                     (lpFileOp As SHFILEOPSTRUCT) As LongPtr

#Else

    Type SHFILEOPSTRUCT

        hWnd As Long

        wFunc As Long

        pFrom As String

        pTo As String

        fFlags As Integer

        fAborted As Boolean

        hNameMaps As Long

        sProgress As String

    End Type

    Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" _

                                     (lpFileOp As SHFILEOPSTRUCT) As Long

#End If

SHGetPathFromIDList

Private Declare Function SHGetPathFromIDList Lib "shell32.dll" Alias "SHGetPathFromIDListA" _

        (ByVal pidl As Long, ByVal pszPath As String) As Boolean

Private Declare PtrSafe Function SHGetPathFromIDList Lib "shell32.dll" Alias "SHGetPathFromIDListA" _

        (ByVal pidl As LongPtr, ByVal pszPath As String) As Boolean

timeGetTime

Private Declare Function timeGetTime Lib "winmm.dll" () As Long

Private Declare PtrSafe Function timeGetTime Lib "winmm.dll" () As Long

Tags: Excel, VBA, API, GDI+, GetClassName, OleCreatePictureIndirect, FindWindowEx, FindWindow,CreateProcess