UNIX, Linux, Programare, Scripting, Retele
unix, linux, programare, script, hosting, server, retele 		Lista Forumurilor Pe Tematici
UNIX, Linux, Programare, Scripting, Retele | Reguli | Inregistrare | Login

POZE UNIX, LINUX, PROGRAMARE, SCRIPTING, RETELE

Nu sunteti logat. 		Nou pe simpatie:
GabrielaQueen
Femeie
24 ani
Galati
cauta Barbat
28 - 67 ani
UNIX, Linux, Programare, Scripting, Retele / Virus / keyloger Moderat de Sad_Dreamer, Shocker
Autor
Mesaj Pagini: 1
Yoshi
Newbi

Inregistrat: acum 18 ani
Postari: 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
pus acum 18 ani
   
Pagini: 1  

Mergi la