' Rapid-Q by William Yu (c)1999-2000                                             .
' ================================================================================
' Upload_il_tuo_script_su_Rapidq.it

' Status_dei_tasti

''get the status of the toggle keys

$include "rapidq.inc"

$typecheck on

''see sendkey example for more virtual key's

const VK_INSERT=&h2D

const VK_CAPITAL=&h14



Declare Function GetKeyState Lib "user32" Alias "GetKeyState" (nVirtKey As Long) As Integer

declare sub richedit_keyup

Create Form1 as qform

                Left=148

                Top=90

                create Richedit1 as QRichedit

                               onkeyup=richedit_keyup

                               Height=154

                               Left=4

                               TabOrder=8

                               Top=4

                end create

end create



'----------Initaliation code-----------

call richedit_keyup

Form1.Showmodal



sub richedit_keyup

                if GetKeyState(VK_INSERT)=true then

                               richedit1.text="insertkey = on"

                else

                               richedit1.text="insertkey = off"

                end if

                if GetKeyState(VK_CAPITAL)=true then

                               richedit1.addstrings "capslock = on"

                else

                               richedit1.addstrings "capslock = off"

                end if

end sub




' ===============================================================================
'                      2003 Holyguard.net - 2007_Abruzzoweb