Sorry to dredge up this old thread, but I just got started with AutoHotkey and had the urge to make an LED show. I made it first without this script, and when I ported it, it became glitchy, especially with the NumLock. I will present both forms of the code and any help on the 2nd would be appreciated.
Code:
/*
---------------leD sHOW by veZquEx-----------------
| eNjOy a CONtiNUOs LoOP OF InDICaTiNG excIteMEnt.|
| WarNINg: mAy scReW wITh caPitAlIzaTION. |
| pResS "EsC" TO PAUse |
---------------------------------------------------
*/
SetNumlockState, off
SetCapsLockState, off
SetScrollLockState, off
Continuous:
Loop {
Loop 6 {
;walk
SetNumlockState, on
Sleep, 100
SetNumlockState, off
SetCapsLockState, on
Sleep, 100
SetCapsLockState, off
SetScrollLockState, on
Sleep, 100
SetScrollLockState, off
SetCapsLockState, on
Sleep, 100
SetCapsLockState, off
}
Loop 4 {
;add
SetNumlockState, on
Sleep, 100
SetCapsLockState, on
Sleep, 100
SetScrollLockState, on
Sleep, 100
SetScrollLockState, off
Sleep, 100
SetCapsLockState, off
Sleep, 100
SetNumlockState, off
Sleep, 300
}
Loop 8 {
;flash all
SetNumlockState, on
SetCapsLockState, on
SetScrollLockState, on
Sleep, 100
SetScrollLockState, off
SetCapsLockState, off
SetNumlockState, off
Sleep, 100
}
SetNumlockState, on
SetCapsLockState, on
SetScrollLockState, on
Sleep, 100
Loop 3 {
SetNumlockState, off
SetCapsLockState, off
Sleep, 200
SetNumlockState, on
SetCapsLockState, on
SetScrollLockState, off
Sleep, 200
SetScrollLockState, on
}
Loop 3 {
SetCapsLockState, off
SetScrollLockState, off
Sleep, 200
SetCapsLockState, on
SetScrollLockState, on
SetNumlockState, off
Sleep, 200
SetNumlockState, on
}
Loop 3 {
SetNumlockState, off
SetScrollLockState, off
Sleep, 200
SetCapsLockState, off
SetNumlockState, on
SetScrollLockState, on
Sleep, 200
SetCapsLockState, on
}
Sleep, 300
SetNumlockState, off
Sleep, 300
SetCapsLockState, off
Sleep, 300
SetScrollLockState, off
Sleep, 750
}
Escape::
SetNumlockState, on
SetCapsLockState, off
SetScrollLockState, off
Pause
Return
Code:
/*
--------------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 (capslock/numlock/scrolllock lights)
; http://www.autohotkey.com/forum/viewtopic.php?t=10532
; USAGE: KeyboardLED(LEDvalue,"Cmd") ; LEDvalue: ScrollLock=1, NumLock=2, CapsLock=4 ; Cmd = on/off/switch
KeyboardLED(LEDvalue, Cmd) ; LEDvalue: ScrollLock=1, NumLock=2, CapsLock=4 ; Cmd = on/off/switch
{
Static h_device
If ! h_device ; initialise
{
device =\Device\KeyBoardClass0
SetUnicodeStr(fn,device)
h_device:=NtCreateFile(fn,0+0x00000100+0x00000080+0x00100000,1,1,0x00000040+0x00000020,0)
}
VarSetCapacity( output_actual, 4, 0 )
input_size = 4
VarSetCapacity( input, input_size, 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"))
}
; EncodeInteger( KeyLED, 1, &input, 2 ) ;input bit pattern (KeyLED): bit 0 = scrolllock ;bit 1 = numlock ;bit 2 = capslock
input := Chr(1) Chr(1) Chr(KeyLED)
input := Chr(1)
input=
success := DllCall( "DeviceIoControl"
, "uint", h_device
, "uint", CTL_CODE( 0x0000000b ; FILE_DEVICE_KEYBOARD
, 2
, 0 ; METHOD_BUFFERED
, 0 ) ; FILE_ANY_ACCESS
, "uint", &input
, "uint", input_size
, "uint", 0
, "uint", 0
, "uint", &output_actual
, "uint", 0 )
}
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(fh,4,0)
VarSetCapacity(objattrib,24,0)
VarSetCapacity(io,8,0)
VarSetCapacity(pus,8)
uslen:=DllCall("lstrlenW","str",wfilename)*2
InsertInteger(uslen,pus,0,2)
InsertInteger(uslen,pus,2,2)
InsertInteger(&wfilename,pus,4)
InsertInteger(24,objattrib,0)
InsertInteger(&pus,objattrib,8)
status:=DllCall("ntdll\ZwCreateFile","str",fh,"UInt",desiredaccess,"str",objattrib,"str",io,"UInt",0,"UInt",fattribs
,"UInt",sharemode,"UInt",createdist,"UInt",flags,"UInt",0,"UInt",0, "UInt")
return % ExtractInteger(fh)
}
SetUnicodeStr(ByRef out, str_)
{
VarSetCapacity(st1, 8, 0)
InsertInteger(0x530025, st1)
VarSetCapacity(out, (StrLen(str_)+1)*2, 0)
DllCall("wsprintfW", "str", out, "str", st1, "str", str_, "Cdecl UInt")
}
ExtractInteger(ByRef pSource, pOffset = 0, pIsSigned = false, pSize = 4)
; pSource is a string (buffer) whose memory area contains a raw/binary integer at pOffset.
; The caller should pass true for pSigned to interpret the result as signed vs. unsigned.
; pSize is the size of PSource's integer in bytes (e.g. 4 bytes for a DWORD or Int).
; pSource must be ByRef to avoid corruption during the formal-to-actual copying process
; (since pSource might contain valid data beyond its first binary zero).
{
Loop %pSize% ; Build the integer by adding up its bytes.
result += *(&pSource + pOffset + A_Index-1) << 8*(A_Index-1)
if (!pIsSigned OR pSize > 4 OR result < 0x80000000)
return result ; Signed vs. unsigned doesn't matter in these cases.
; Otherwise, convert the value (now known to be 32-bit) to its signed counterpart:
return -(0xFFFFFFFF - result + 1)
}
InsertInteger(pInteger, ByRef pDest, pOffset = 0, pSize = 4)
; The caller must ensure that pDest has sufficient capacity. To preserve any existing contents in pDest,
; only pSize number of bytes starting at pOffset are altered in it.
{
Loop %pSize% ; Copy each byte in the integer into the structure as raw binary data.
DllCall("RtlFillMemory", "UInt", &pDest + pOffset + A_Index-1, "UInt", 1, "UChar", pInteger >> 8*(A_Index-1) & 0xFF)
}
Login
Register
FAQ
Search
