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
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.
ソースコード
'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>
オリジナルのコメント (3)
Wayback Machineから復元