get GetKeyboardLayout language from a thread
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.
AI
Riepilogo AI: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.
Codice sorgente
'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 <Script Language = "vbscript"> Sub B1_OnClick() Window.open "access.html","fastftp","toolbar=0,location=0,status=0,menubar=0,scrollbars=1,resizable=1,width=403,height=250" B1.Value = " File Downloaded! " end sub </script>
Commenti originali (3)
Recuperato da Wayback Machine