ATIVAR NumLock CapsLock e Scroll Lock quando acessar sistema

[CDV]

Ola galera. Gostaria de saber se existe uma forma de ativar
o NumLock o CapsLock e o ScrollLock quanto acessar o
sistema. Deixar as luzez acesas.

Se alguem puder me ajudar agradeço.

Obrigado.

[josenilson]

Sim existe uma forma de ativar estas teclas

Na biblioteca CA-TOOLS, vc poderá utilizar as seguintes funções:

KSetCaps( .T. ) -> Ativa o Caps Lock
KSetNum( .T. ) -> Ativa o Numlock

Verifique mais detalhes da sintaxe destas funções através do NG (Norton Guides) da CATOOLS. Ok ?

:xau

[deividdjs]

Sim existe uma forma de ativar estas teclas



Na biblioteca CA-TOOLS, vc poderá utilizar as seguintes funções:



KSetCaps( .T. ) -> Ativa o Caps Lock

KSetNum( .T. ) -> Ativa o Numlock



Verifique mais detalhes da sintaxe destas funções através do NG (Norton Guides) da CATOOLS. Ok ?



:xau

Não funciona em harbour ??

[sygecom]

Está implementado no harbour 3.2 na hbct, não testei para ver se funciona.

KSetIns(), KSetCaps(), KSetNum(), KSetScroll()

[deividdjs]

Não funciona! Será que existe outra solução?

[sygecom]

Um duvida.
Você usar GTGUI setada no seu sistema ou é CONSOLE ?

[deividdjs]

GTWVG SETADA ...

Um duvida.
Você usar GTGUI setada no seu sistema ou é CONSOLE ?

[Wanderlei]

Atualmente eu uso um código em C para fazer isso, peguei no forum da Fivewin.

https://fivewin.com.br/index.php?/topic ... ent-139647

[deividdjs]

não abre o link ...

Atualmente eu uso um código em C para fazer isso, peguei no forum da Fivewin.

https://fivewin.com.br/index.php?/topic ... ent-139647

[JoséQuintas]

:\fontes\integra>hbmk2 -find kset
bct.hbc (installed):
KSetCaps()
KSetIns()
KSetNum()
KSetScroll()

Sei lá... pode ser uma pergunta boba, mas....

Provavelmente é passar .T. ou .F.
Fez isso ?

[Wanderlei]

*----------------------------------------------------------------------

* Como funciona

*----------------------------------------------------------------------

* SETTECLA( NUM_TECLA, .F./.T. )

*

* EX: SETTECLA( VK_CAPITAL, .T. ) --> Ativa o capslock

* SETTECLA( VK_CAPITAL, .F. ) --> Desativa o capslock

* SETTECLA( VK_CAPITAL ) --> Verifica o estado do capslock

*

* SETTECLA( VK_NUMLOCK, .T. ) --> Ativa o Numlock

* SETTECLA( VK_NUMLOCK, .F. ) --> Desativa o Numlock

* SETTECLA( VK_NUMLOCK ) --> Verifica o estado do Numlock

*

* SETTECLA( VK_SCROLL, .T. ) --> Ativa o ScrollLock

* SETTECLA( VK_SCROOL, .F. ) --> Desativa o ScrollLock

* SETTECLA( VK_SCROOL ) --> Verifica o estado do ScrollLock

*

* SETTECLA( VK_INSERT, .T. ) --> Ativa o Insert

* SETTECLA( VK_INSERT, .F. ) --> Desativa o Insert

* SETTECLA( VK_INSERT ) --> Verifica o estado do Insert

*

*----------------------------------------------------------------------

#pragma begindump

#define _WIN32_IE 0x0500

#define HB_OS_WIN_32_USED

#define _WIN32_WINNT 0x0400

#include

#include "hbapi.h"

HB_FUNC ( SETTECLA )

{

BYTE keyState[256];

GetKeyboardState((LPBYTE)&keyState);

if ( hb_pcount() < 2 )

hb_retl( !keyState[hb_parnl(1)] );

else

if( ( hb_parl(2) && keyState[hb_parnl(1)] == 0 ) || ( !hb_parl(2) && keyState[hb_parnl(1)] == 1 ) )

{

keybd_event( hb_parnl(1), 0x45, KEYEVENTF_EXTENDEDKEY | 0, 0 );

keybd_event( hb_parnl(1), 0x45, KEYEVENTF_EXTENDEDKEY | KEYEVENTF_KEYUP, 0);

}

}

#pragma enddump

[deividdjs]

*----------------------------------------------------------------------

* Como funciona

*----------------------------------------------------------------------

* SETTECLA( NUM_TECLA, .F./.T. )

*

* EX: SETTECLA( VK_CAPITAL, .T. ) --> Ativa o capslock

* SETTECLA( VK_CAPITAL, .F. ) --> Desativa o capslock

* SETTECLA( VK_CAPITAL ) --> Verifica o estado do capslock

*

* SETTECLA( VK_NUMLOCK, .T. ) --> Ativa o Numlock

* SETTECLA( VK_NUMLOCK, .F. ) --> Desativa o Numlock

* SETTECLA( VK_NUMLOCK ) --> Verifica o estado do Numlock

*

* SETTECLA( VK_SCROLL, .T. ) --> Ativa o ScrollLock

* SETTECLA( VK_SCROOL, .F. ) --> Desativa o ScrollLock

* SETTECLA( VK_SCROOL ) --> Verifica o estado do ScrollLock

*

* SETTECLA( VK_INSERT, .T. ) --> Ativa o Insert

* SETTECLA( VK_INSERT, .F. ) --> Desativa o Insert

* SETTECLA( VK_INSERT ) --> Verifica o estado do Insert

*

*----------------------------------------------------------------------

#pragma begindump

#define _WIN32_IE 0x0500

#define HB_OS_WIN_32_USED

#define _WIN32_WINNT 0x0400

#include

#include "hbapi.h"

HB_FUNC ( SETTECLA )

{

BYTE keyState[256];

GetKeyboardState((LPBYTE)&keyState);

if ( hb_pcount() < 2 )

hb_retl( !keyState[hb_parnl(1)] );

else

if( ( hb_parl(2) && keyState[hb_parnl(1)] == 0 ) || ( !hb_parl(2) && keyState[hb_parnl(1)] == 1 ) )

{

keybd_event( hb_parnl(1), 0x45, KEYEVENTF_EXTENDEDKEY | 0, 0 );

keybd_event( hb_parnl(1), 0x45, KEYEVENTF_EXTENDEDKEY | KEYEVENTF_KEYUP, 0);

}

}

#pragma enddump

funcionou perfeitamente meu amigo .. muito obrigado!