package Ġdev . tric ht . lun aris . util . platform . windows Ċ Ċ import Ġcom . sun . j na . platform . win 3 2 . Base T SD . ULONG _ PTR Ċ import Ġcom . sun . j na . platform . win 3 2 . User 3 2 Ċ import Ġcom . sun . j na . platform . win 3 2 . Win Def . DWORD Ċ import Ġcom . sun . j na . platform . win 3 2 . Win Def . WORD Ċ import Ġcom . sun . j na . platform . win 3 2 . Win User . INPUT ĊĊ Ċ class ĠWindows Keyboard Ġ{ ĊĠĠĠ Ġcompanion Ġobject Ġ{ ĊĠĠĠĠĠĠĠ Ġprivate Ġval ĠKEY _ DOWN Ġ= Ġ 0 L ; ĊĠĠĠĠĠĠĠ Ġprivate Ġval ĠKEY _ UP Ġ= Ġ 2 L ; ĊĊĠĠĠĠĠĠĠ Ġfun Ġsend KeyDown ( c : ĠLong ) Ġ{ ĊĠĠĠĠĠĠĠĠĠĠĠ Ġval Ġinput Ġ= ĠINPUT () ĊĠĠĠĠĠĠĠĠĠĠĠ Ġinput . type Ġ= ĠDWORD ( INPUT . INPUT _ KEY BOARD . to Long ()) ĊĠĠĠĠĠĠĠĠĠĠĠ Ġinput . input . setType (" ki ") ĊĠĠĠĠĠĠĠĠĠĠĠ Ġinput . input . ki . w Scan Ġ= ĠWORD ( 0 ) ĊĠĠĠĠĠĠĠĠĠĠĠ Ġinput . input . ki . time Ġ= ĠDWORD ( 0 ) ĊĠĠĠĠĠĠĠĠĠĠĠ Ġinput . input . ki . dw Extra Info Ġ= ĠULONG _ PTR ( 0 ) ĊĠĠĠĠĠĠĠĠĠĠĠ Ġinput . input . ki . w Vk Ġ= ĠWORD ( c ) ĊĠĠĠĠĠĠĠĠĠĠĠ Ġinput . input . ki . dw Flags Ġ= ĠDWORD ( KEY _ DOWN ) ĊĠĠĠĠĠĠĠĠĠĠĠ ĠUser 3 2 . INSTANCE . Send Input ( DWORD ( 1 ), Ġinput . toArray ( 1 ) Ġas ĠArray < INPUT ? >, Ġinput . size ()) ĊĠĠĠĠĠĠĠ Ġ} ĊĊĠĠĠĠĠĠĠ Ġfun Ġsend KeyUp ( c : ĠLong ) Ġ{ ĊĠĠĠĠĠĠĠĠĠĠĠ Ġval Ġinput Ġ= ĠINPUT () ĊĠĠĠĠĠĠĠĠĠĠĠ Ġinput . type Ġ= ĠDWORD ( INPUT . INPUT _ KEY BOARD . to Long ()) ĊĠĠĠĠĠĠĠĠĠĠĠ Ġinput . input . setType (" ki ") ĊĠĠĠĠĠĠĠĠĠĠĠ Ġinput . input . ki . w Scan Ġ= ĠWORD ( 0 ) ĊĠĠĠĠĠĠĠĠĠĠĠ Ġinput . input . ki . time Ġ= ĠDWORD ( 0 ) ĊĠĠĠĠĠĠĠĠĠĠĠ Ġinput . input . ki . dw Extra Info Ġ= ĠULONG _ PTR ( 0 ) ĊĠĠĠĠĠĠĠĠĠĠĠ Ġinput . input . ki . w Vk Ġ= ĠWORD ( c ) ĊĠĠĠĠĠĠĠĠĠĠĠ Ġinput . input . ki . dw Flags Ġ= ĠDWORD ( KEY _ UP ) ĊĠĠĠĠĠĠĠĠĠĠĠ ĠUser 3 2 . INSTANCE . Send Input ( DWORD ( 1 ), Ġinput . toArray ( 1 ) Ġas ĠArray < INPUT ? >, Ġinput . size ()) ĊĠĠĠĠĠĠĠ Ġ} ĊĠĠĠ Ġ} Ċ }