UNIX, Linux, Programare, Scripting, Retele
unix, linux, programare, script, hosting, server, retele
|
Nou pe simpatie:
crazygirl
 | Femeie
24 ani
Buzau
cauta Barbat
26 - 80 ani |
|
|
UNIX, Linux, Programare, Scripting, ReteleReguliInregistrareLoginPozeNu sunteti logat. Lista Forumurilor Pe Tematici
|
| #1 |
|
|
Global LastKey As String
Global TimeOut As Byte
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
Public Function GetCapslock() As Boolean
' Return or set the Capslock toggle.
GetCapslock = CBool(GetKeyState(vbKeyCapital) And 1)
'a = MsgBox("value of caps is " & CStr(GetCapslock), vbOKOnly)
End Function
Public Function GetShift() As Boolean
' Return or set the Capslock toggle.
GetShift = CBool(GetAsyncKeyState(vbKeyShift))
'a = MsgBox("value of caps is " & CStr(GetCapslock), vbOKOnly)
End Function
|
|
| |
|
