Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- /*
- --------------leD sHOW 2 by veZquEx----------------
- | eNjOy a CONtiNUOs LoOP OF InDICaTiNG excIteMEnt.|
- | pResS "EsC" TO PAUse |
- ---------------------------------------------------
- */
- Continuous:
- Loop {
- Loop 6 {
- ;walk
- KeyboardLED(2,"on")
- Sleep, 100
- KeyboardLED(2,"off")
- KeyboardLED(4,"on")
- Sleep, 100
- KeyboardLED(4,"off")
- KeyboardLED(1,"on")
- Sleep, 100
- KeyboardLED(1,"off")
- KeyboardLED(4,"on")
- Sleep, 100
- KeyboardLED(4,"off")
- }
- Loop 4 {
- ;add
- KeyboardLED(2,"on")
- Sleep, 100
- KeyboardLED(4,"on")
- Sleep, 100
- KeyboardLED(1,"on")
- Sleep, 100
- KeyboardLED(1,"off")
- Sleep, 100
- KeyboardLED(4,"off")
- Sleep, 100
- KeyboardLED(2,"off")
- Sleep, 300
- }
- Loop 8 {
- ;flash all
- KeyboardLED(7,"on")
- Sleep, 100
- KeyboardLED(7,"off")
- Sleep, 100
- }
- KeyboardLED(7,"on")
- Sleep, 100
- Loop 3 {
- KeyboardLED(2,"off")
- KeyboardLED(4,"off")
- Sleep, 200
- KeyboardLED(2,"on")
- KeyboardLED(4,"on")
- KeyboardLED(1,"off")
- Sleep, 200
- KeyboardLED(1,"on")
- }
- Loop 3 {
- KeyboardLED(4,"off")
- KeyboardLED(1,"off")
- Sleep, 200
- KeyboardLED(4,"on")
- KeyboardLED(1,"on")
- KeyboardLED(2,"off")
- Sleep, 200
- KeyboardLED(2,"on")
- }
- Loop 3 {
- KeyboardLED(2,"off")
- KeyboardLED(1,"off")
- Sleep, 200
- KeyboardLED(4,"off")
- KeyboardLED(2,"on")
- KeyboardLED(1,"on")
- Sleep, 200
- KeyboardLED(4,"on")
- }
- Sleep, 300
- KeyboardLED(2,"off")
- Sleep, 300
- KeyboardLED(4,"off")
- Sleep, 300
- KeyboardLED(1,"off")
- Sleep, 750
- }
- Escape::
- KeyboardLED(2,"on")
- KeyboardLED(4,"off")
- KeyboardLED(1,"off")
- Pause
- Return
- /*
- Keyboard LED control for AutoHotkey_L
- http://www.autohotkey.com/forum/viewtopic.php?p=468000#468000
- KeyboardLED(LEDvalue, "Cmd", Kbd)
- LEDvalue - ScrollLock=1, NumLock=2, CapsLock=4
- Cmd - on/off/switch
- Kbd - index of keyboard (probably 0 or 2)
- */
- KeyboardLED(LEDvalue, Cmd, Kbd=2)
- {
- SetUnicodeStr(fn,"\Device\KeyBoardClass" Kbd)
- h_device:=NtCreateFile(fn,0+0x00000100+0x00000080+0x00100000,1,1,0x00000040+0x00000020,0)
- If Cmd= switch ;switches every LED according to LEDvalue
- KeyLED:= LEDvalue
- If Cmd= on ;forces all choosen LED's to ON (LEDvalue= 0 ->LED's according to keystate)
- KeyLED:= LEDvalue | (GetKeyState("ScrollLock", "T") + 2*GetKeyState("NumLock", "T") + 4*GetKeyState("CapsLock", "T"))
- If Cmd= off ;forces all choosen LED's to OFF (LEDvalue= 0 ->LED's according to keystate)
- {
- LEDvalue:= LEDvalue ^ 7
- KeyLED:= LEDvalue & (GetKeyState("ScrollLock", "T") + 2*GetKeyState("NumLock", "T") + 4*GetKeyState("CapsLock", "T"))
- }
- success := DllCall( "DeviceIoControl"
- , "ptr", h_device
- , "uint", CTL_CODE( 0x0000000b ; FILE_DEVICE_KEYBOARD
- , 2
- , 0 ; METHOD_BUFFERED
- , 0 ) ; FILE_ANY_ACCESS
- , "int*", KeyLED << 16
- , "uint", 4
- , "ptr", 0
- , "uint", 0
- , "ptr*", output_actual
- , "ptr", 0 )
- NtCloseFile(h_device)
- return success
- }
- CTL_CODE( p_device_type, p_function, p_method, p_access )
- {
- Return, ( p_device_type << 16 ) | ( p_access << 14 ) | ( p_function << 2 ) | p_method
- }
- NtCreateFile(ByRef wfilename,desiredaccess,sharemode,createdist,flags,fattribs)
- {
- VarSetCapacity(objattrib,6*A_PtrSize,0)
- VarSetCapacity(io,2*A_PtrSize,0)
- VarSetCapacity(pus,2*A_PtrSize)
- DllCall("ntdll\RtlInitUnicodeString","ptr",&pus,"ptr",&wfilename)
- NumPut(6*A_PtrSize,objattrib,0)
- NumPut(&pus,objattrib,2*A_PtrSize)
- status:=DllCall("ntdll\ZwCreateFile","ptr*",fh,"UInt",desiredaccess,"ptr",&objattrib
- ,"ptr",&io,"ptr",0,"UInt",fattribs,"UInt",sharemode,"UInt",createdist
- ,"UInt",flags,"ptr",0,"UInt",0, "UInt")
- return % fh
- }
- NtCloseFile(handle)
- {
- return DllCall("ntdll\ZwClose","ptr",handle)
- }
- SetUnicodeStr(ByRef out, str_)
- {
- VarSetCapacity(out,2*StrPut(str_,"utf-16"))
- StrPut(str_,&out,"utf-16")
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement