Home Excel - Dicas Microsoft Excel VBA Excel VBA - API Excel VBA - api acendem e apagam o teclado excel

Excel VBA - api acendem e apagam o teclado excel

E-mail Imprimir PDF

Saber Excel - o site das macros
Essas declarações ( api ) e macros do Aplicativo Microsoft Excel VBA(Visual Basic Application), acendem e apagam as luzes do teclado

Const VK_CAPITAL = &H14
Const VK_NUMLOCK = &H90
Const VK_SCROLL = &H91
Const VK_USED = VK_SCROLL

Private Type KeyboardBytes
     kbByte(0 To 255) As Byte
End Type

Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Long
Private Declare Function GetKeyboardState Lib "user32" (kbArray As KeyboardBytes) As Long
Private Declare Function SetKeyboardState Lib "user32" (kbArray As KeyboardBytes) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Dim kbArray As KeyboardBytes, CapsLock As Boolean, kbOld As KeyboardBytes

 

Sub Piscar()

For I = 0 To 5

    GetKeyboardState kbOld

    Apagar VK_CAPITAL

    Apagar VK_NUMLOCK

    Apagar VK_SCROLL

    Sleep 1000

    Acender VK_NUMLOCK

    Sleep 100

    Acender VK_CAPITAL

    Sleep 100

    Acender VK_SCROLL

    Sleep 300

    Apagar VK_NUMLOCK

    Sleep 100

    Apagar VK_CAPITAL

    Sleep 100

    Apagar VK_SCROLL

    Sleep 500

    Acender VK_NUMLOCK

    Acender VK_SCROLL

    Sleep 200

    Apagar VK_NUMLOCK

    Apagar VK_SCROLL

    Sleep 200

    Acender VK_NUMLOCK

    Acender VK_SCROLL

    Sleep 200

    Apagar VK_NUMLOCK

    Apagar VK_SCROLL

    Sleep 200

    Acender VK_CAPITAL

    Sleep 200

    Apagar VK_CAPITAL

    Sleep 200

    Acender VK_CAPITAL

    Sleep 200

    Apagar VK_CAPITAL

    Sleep 200

    Acender VK_NUMLOCK

    Acender VK_SCROLL

    Sleep 200

    Apagar VK_NUMLOCK

    Apagar VK_SCROLL

    Sleep 200

    Acender VK_NUMLOCK

    Acender VK_SCROLL

    Sleep 200

    Apagar VK_NUMLOCK

    Apagar VK_SCROLL

    Sleep 200

    Acender VK_CAPITAL

    Sleep 400

    Apagar VK_CAPITAL

    Sleep 200

    Acender VK_SCROLL

    Sleep 100

    Acender VK_CAPITAL

    Sleep 100

    Acender VK_NUMLOCK

    Sleep 300

    Apagar VK_NUMLOCK

    Sleep 100

    Apagar VK_CAPITAL

    Sleep 100

    Apagar VK_SCROLL

Next I

Voltar

End Sub

'-------------------------------'
Sub Acender(vkKey As Long)

    GetKeyboardState kbArray

    kbArray.kbByte(vkKey) = 1

    SetKeyboardState kbArray

End Sub

'-------------------------------'

Sub Apagar
(vkKey As Long)

    GetKeyboardState kbArray

    kbArray.kbByte(vkKey) = 0

    SetKeyboardState kbArray

End Sub
'-------------------------------'

Sub Voltar()
    SetKeyboardState kbOld
End Sub

 
 Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application)  com Saberexcel

 

Última atualização em Dom, 22 de Julho de 2012 20:18  

Adicionar comentário

"Jamais considere seus estudos como uma obrigação, mas como uma oportunidade invejável para aprender a conhecer a influência libertadora da beleza do reino do espírito, para seu próprio prazer pessoal e para proveito da comunidade." Albert Einstein


Código de segurança
Atualizar

Pesquisa Google SaberExcel

Publicidade Google

Publicidade

Rastreamento Correios

Digite o número do SEDEX conforme o exemplo:
Correios do Brasil

Assinatura SaberExcel

Google Associados

Depoimentos

Visitantes SaberExcel

Excel VBA Estudos®
mod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_counter
mod_vvisit_counterHoje1646
mod_vvisit_counterOntem5672
mod_vvisit_counterEsta Semana11777
mod_vvisit_counterSemana passada36487
mod_vvisit_counterEsse mês25506
mod_vvisit_counterMês passado153723
mod_vvisit_counterTodos10448335
Aprenda MS Excel VBA

Adicione Saberexcel Favoritos

 
 

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel,


   Sobre as WorksheetFunctions Funções de Planilhas que retornam valores do VBA