Ativando o Caps lock via código

Ativando o Caps lock via código 1a. Parte: Insira o seguinte código nas declarações gerais de um módulo .BAS Public Const VK_CAPITAL = &H14 Public Type KeyboardBytes kbByte(0 To 255) As Byte End Type Public kbArray As KeyboardBytes Public Declare Function GetKeyState Lib “user32” (ByVal nVirtKey As Long) As Long Public Declare Function GetKeyboardState Lib

Continuar lendo »

Controlar a posição X e Y do mouse

As vezes desenvolvemos aplicações que necessitam mostrar a posição do mouse na tela. Global Type POINTAPI x As Long y As Long End Type Declare Function SetCursorPos Lib “user32” (ByVal x As Long, ByVal y As Long) As Long Declare Sub GetCursorPos Lib “user32” (lpPoint As POINTAPI) Global MOUSE_XY As POINTAPI Global xy_mostrar As Boolean,

Continuar lendo »