by Shlomo (2 Submissions)
Category: Windows API Call/Explanation
Compatability: Visual Basic 3.0
Difficulty: Intermediate
Date Added: Wed 3rd February 2021
Rating: (2 Votes)
hi!this is my first submit
finely i think i can put something usefull
for other users.
this code read the keyboard language from
another application all you need is to send
the handle of the thread window.
Inputs
winHWND is the thread window Handle
Side Effects
i think NON i tested it on my mechine
API DeclarationsPublic Declare Function GetKeyboardLayout Lib "user32" (ByVal dwLayout As Long) As Long
Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long
'find out what keyboard language a theard is
Public Sub FindTheardlanguage ()
Dim TheardId As Long
Dim TheardLang As Long
TheardId = get_threadId 'call function
TheardLang = GetKeyboardLayout(ByVal TheardId)
TheardLang = TheardLang Mod 10000
Select Case TheardLang
Case 9721 'english
'do your stuff
Case 1869 'hebrew
'do your stuff
End Select
End Sub
Public Function get_threadId() As Long
Dim threadid As Long, processid As Long
get_threadId = GetWindowThreadProcessId(winHWND, processid)
End Function