Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: Czy ktoś wie jak zrobić program mrugający klawiszami Numlock, Capslock i SrollLock?
Viper87



Typ: neutral
Postów: 490
Zarejestrowany: Oct 2002
Czy ktoś wie jak zrobić program mrugający klawiszami Numlock, Capslock i SrollLock?

Chciałbym napisać mały programik powodujący mrugnięcie klawiszami Num lock, Sroll Lock i Caps Lock. Podejrzewam, że żeby to zrobić powinienem skorzystać z funkcji API. Nie wiem jednak z jakiej funkcji powinienem skorzystać. Dobrze by było gdyby programik ten mógł być uruchamiany z parametrami z linii poleceń. Bardzo proszę o jakąś, choć drobną podpowiedź, jakie kroki powienienem poczynić.
Z góry dziękuję.


_____________________________________________
Viper

"Savoir c`est prevoir, prevoir c`est prevenir". 
(Wiedzieć to przewidzieć, przewidzieć to zapobiegać) 


05-10-2002 19:04
Pokaż profil Viper87  Wyślij email do Viper87   Odwiedź stronę Viper87  
Jelcyn
Admin forum




Typ: admin
Postów: 895
Zarejestrowany: Apr 2002

Hmmm jeśli chcesz dać komuś taki programik do autostartu to możesz skorzystać z mojego (zwykły plik bat który odwołuje się do debug.exe, dołączyłem tam debug.exe) (http://www.pnet.pl/~jelcyn/zdzich/soft/lampki.rar) Niestety, ale pod winme mi nie chodzi bo debug.exe nie chce się uruchomić, bo pisze, że mam niepoprawną wersję MSDOSa. Cała sztuczka polega na modyfikacji zmiennej systemowej (417 komórka pamięci). Oczywiście są funkcje API, widziałem gdzies programik który świecił i gasił NumLocka, ale nie mogę skojażyć gdzie go widziałem.


_____________________________________________
Jelcyn
vb4all(małpka)canpol.pl
http://www.coderscity.pl/no-vb4all * http://www.jelcyn.com

05-10-2002 22:51
Pokaż profil Jelcyn  Wyślij email do Jelcyn   Odwiedź stronę Jelcyn       270849979    6237704
xeng



Typ: neutral
Postów: 102
Zarejestrowany: May 2002

allapi.net czy jakos tak :-)
Na 100% widziałem tam taki przykład.
Jak nie chce Ci sie szukać , zajrzyj na
stare forum tam jako Bee komuś w posta wkleiłem cały taki sampel. :-)


_____________________________________________
Nic nie umiem i nic nie wiem.Jestem tuman bity w ciemie.


08-10-2002 00:38
Pokaż profil xeng  Wyślij email do xeng   Odwiedź stronę xeng  
m-a-x



Typ: neutral
Postów: 366
Zarejestrowany: Jan 2003
Dla tych którym nie chce sie szukać : )

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
Private Sub Form_Load()
    'KPD-Team 1999
    'URL: http://www.allapi.net/
    'E-Mail:
    'Get the current keyboardstate
    GetKeyboardState kbOld
    'Hide the form
    Me.Hide
    MsgBox "Keep your eyes on the little num-, shift- and scrolllock lights on the keyboard."
    TurnOff VK_CAPITAL
    TurnOff VK_NUMLOCK
    TurnOff VK_SCROLL
    Sleep 1000
    TurnOn VK_NUMLOCK
    Sleep 100
    TurnOn VK_CAPITAL
    Sleep 100
    TurnOn VK_SCROLL
    Sleep 300
    TurnOff VK_NUMLOCK
    Sleep 100
    TurnOff VK_CAPITAL
    Sleep 100
    TurnOff VK_SCROLL
    Sleep 500
    TurnOn VK_NUMLOCK
    TurnOn VK_SCROLL
    Sleep 200
    TurnOff VK_NUMLOCK
    TurnOff VK_SCROLL
    Sleep 200
    TurnOn VK_NUMLOCK
    TurnOn VK_SCROLL
    Sleep 200
    TurnOff VK_NUMLOCK
    TurnOff VK_SCROLL
    Sleep 200
    TurnOn VK_CAPITAL
    Sleep 200
    TurnOff VK_CAPITAL
    Sleep 200
    TurnOn VK_CAPITAL
    Sleep 200
    TurnOff VK_CAPITAL
    Sleep 200
    TurnOn VK_NUMLOCK
    TurnOn VK_SCROLL
    Sleep 200
    TurnOff VK_NUMLOCK
    TurnOff VK_SCROLL
    Sleep 200
    TurnOn VK_NUMLOCK
    TurnOn VK_SCROLL
    Sleep 200
    TurnOff VK_NUMLOCK
    TurnOff VK_SCROLL
    Sleep 200
    TurnOn VK_CAPITAL
    Sleep 400
    TurnOff VK_CAPITAL
    Sleep 200
    TurnOn VK_NUMLOCK
    Sleep 100
    TurnOn VK_CAPITAL
    Sleep 100
    TurnOn VK_SCROLL
    Sleep 300
    TurnOff VK_SCROLL
    Sleep 100
    TurnOff VK_CAPITAL
    Sleep 100
    TurnOff VK_NUMLOCK
    Sleep 1000
    Unload Me
End Sub
Private Sub TurnOn(vkKey As Long)
    'Get the keyboard state
    GetKeyboardState kbArray
    'Change a key
    kbArray.kbByte(vkKey) = 1
    'Set the keyboard state
    SetKeyboardState kbArray
End Sub
Private Sub TurnOff(vkKey As Long)
    'Get the keyboard state
    GetKeyboardState kbArray
    'change a key
    kbArray.kbByte(vkKey) = 0
    'set the keyboard state
    SetKeyboardState kbArray
End Sub
Private Sub Form_Unload(Cancel As Integer)
    'restore the old keyboard state
    SetKeyboardState kbOld
End Sub


_____________________________________________

Problemem zazwyczaj nie jest brak osób znających odpowiedź a zadanie właściwego pytania!

13-01-2003 00:22
Pokaż profil m-a-x  Wyślij email do m-a-x   
Wszystkich odpowiedzi: 3 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1