|
||||
|
|
#1 (permalink) |
|
Nuovo della community ![]()
23 Messaggi
![]() |
[Win32] Accendere luci tastiera
ciao a tutti, voglio fare un programmino in c+ che mi permetta di accendere le luci della tastiera(num lock,caps lock..) in modo intermittente come supercar per intenderci..
qualcuno sa darmi qualche dritta??? |
|
|
|
|
|
#3 (permalink) |
|
Moderatore Globale ![]() ![]()
4,545 Messaggi
![]() ![]() ![]() ![]() |
Ciao deck,
Non ti preoccupare, ho spostato il Topic [img]smileys/smiley2.gif[/img] Fa piu' attenzione la prossima volta.
__________________
- Il mio Blog ;- Leggi il Regolamento Ufficiale della comunità; - Se le risposte di un utente ti hanno aiutato, usa il pulsante Commenta Intervento e accresci la sua reputazione; - Riguardo GNU/Linux e Free Software; Entra nel gruppo GNU/Linux; - PHP 5: Previeni gli attacchi SPAM verso le tue applicazioni web, Check spam.
|
|
|
|
|
|
#4 (permalink) |
|
Moderatore Globale ![]() ![]()
6,720 Messaggi
![]() ![]() ![]() ![]() ![]() ![]() |
Questo e' un esempio in VB ... puoi prendere spunto per convertirlo in C e migliorarlo ...
codice:
Private Declare Sub keybd_event Lib "user32" _
(ByVal bVk As Byte, _
ByVal bScan As Byte, _
ByVal dwFlags As Long, _
ByVal dwExtraInfo As Long)
Private Declare Function MapVirtualKey Lib "user32" _
Alias "MapVirtualKeyA" _
(ByVal wCode As Long, ByVal wMapType As Long) As Long
Private Declare Function Sleep Lib "kernel32" _
(ByVal dwmilliseconds As Long) As Long
Private Const KEYEVENTF_KEYUP = &H2
Private Const KEYEVENTF_EXTENDEDKEY = &H1
Private Const VK_SCROLL = &H91
Private Sub Command1_Click(Index As Integer)
Do
DoEvents
NTToggleKeyNumlock
Call Sleep(150)
NTToggleKeyNumlock
NTToggleKeyCaps
Call Sleep(150)
NTToggleKeyCaps
NTToggleKeyScroll
Call Sleep(150)
NTToggleKeyScroll
Loop
End Sub
Private Sub NTToggleKeyNumlock()
Call keybd_event(vbKeyNumlock, _
MapVirtualKey(vbKeyNumlock, 0), _
KEYEVENTF_EXTENDEDKEY Or 0, 0)
Call keybd_event(vbKeyNumlock, MapVirtualKey(vbKeyNumlock, 0), _
KEYEVENTF_EXTENDEDKEY Or KEYEVENTF_KEYUP, 0)
End Sub
Private Sub NTToggleKeyCaps()
Call keybd_event(vbKeyCapital, _
MapVirtualKey(vbKeyCapital, 0), _
KEYEVENTF_EXTENDEDKEY Or 0, 0)
Call keybd_event(vbKeyCapital, MapVirtualKey(vbKeyCapital, 0), _
KEYEVENTF_EXTENDEDKEY Or KEYEVENTF_KEYUP, 0)
End Sub
Private Sub NTToggleKeyScroll()
Call keybd_event(VK_SCROLL, _
MapVirtualKey(VK_SCROLL, 0), _
KEYEVENTF_EXTENDEDKEY Or 0, 0)
Call keybd_event(VK_SCROLL, MapVirtualKey(VK_SCROLL, 0), _
KEYEVENTF_EXTENDEDKEY Or KEYEVENTF_KEYUP, 0)
End Sub
Ultima modifica di bottomap : 11-06-2007 a 20:34. |
|
|
|
![]() |
| Strumenti della discussione | |
| Modalità di visualizzazione | |
|
|
Discussioni simili
|
||||
| Discussione | Ha iniziato questa discussione | Forum | Risposte | Ultimo messaggio |
| Disabilitazione tastiera e mouse | knotman | Visual Basic 6 | 10 | 18-11-2005 11:29 |
| eventi da tastiera | farolfo | Visual Basic 6 | 11 | 14-09-2005 16:22 |
| Tastiera bloccata - non posso loggarmi | antenoir | Microsoft Windows | 6 | 08-01-2005 11:52 |
Tutti gli orari sono GMT +2. Attualmente sono le 09:48.









;


Modalità lineare


