Thread: Keyboard language indicator extension plugin

Here we go

Code:

Option Explicit

'
' Declare API calls.
'
Public Declare Function GetKeyboardLayout Lib "user32" _
(ByVal dwLayout As Long) As Long

' CopyMemory takes the value in Source, and extracts the byte
' values from the number of bytes indicated by Length from
' Source.

Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" _
      (Destination As Any, Source As Any, ByVal Length As Long)

Function LowWord(ByVal lOriginalValue As Long) As Integer
'
' Returns the low word of a Long value. Therefore, if GetKeyboardLayout
' returns the value 67699721, this function extracts the decimal
' value of the of the first word in the lOriginalValue variable, and
' returns 1033 as the value of the first word of lOriginalValue.
'
' The Long data type is a 4-byte Integer that ranges in value from
' -2,147,483,648 to 2,147,483,647. A word is two bytes long.
'
   CopyMemory LowWord, lOriginalValue, 2
End Function

Sub test()
   Dim lKeyboardValue As Long
   Dim lResp As Long
   Dim lLangCode As Long
   Dim strLang As String
'
' Initialize lKeyboardValue to zero
'
   lKeyboardValue = 0
'
' Get the Keyboard Layout value.
'
   lResp = GetKeyboardLayout(lKeyboardValue)
'
' Extract the language code value.
'
   lLangCode = LowWord(lResp)
'
' Using the Select Case statement, match the code to one of the
' standard keyboard language types available to Microsoft Windows.
'
   Select Case lLangCode
      Case 1028
         strLang = "Taiwan - Chinese, Traditional"
      Case 1029
         strLang = "Czech - Czech"
      Case 1030
         strLang = "Denmark - Danish"
      Case 1031
         strLang = "Germany - German"
      Case 1032
         strLang = "Greece - Greek"
      Case 1033
         strLang = "US - English"
      Case 1034
         strLang = "Spain - Spanish"
      Case 1035
         strLang = "Finland - Finnish"
      Case 1036
         strLang = "France - French"
      Case 1037
         strLang = "Israel - Hebrew"
      Case 1038
         strLang = "Hungary - Hungarian"
      Case 1040
         strLang = "Italy - Italian"
      Case 1041
         strLang = "Japan - Japanese"
      Case 1042
         strLang = "Korea - Korean"
      Case 1043
         strLang = "Benelux - Dutch"
      Case 1044
         strLang = "Norway - Norwegian"
      Case 1045
         strLang = "Poland - Polish"
      Case 1046
         strLang = "Brazil - Portuguese"
      Case 1049
         strLang = "Russia - Russian"
      Case 1051
         strLang = "Slovakia - Slovakian"
      Case 1053
         strLang = "Sweden - Swedish"
      Case 1054
         strLang = "Thailand - Thai"
      Case 1055
         strLang = "Turkey - Turkish"
      Case 1060
         strLang = "Slovenia - Slovenian"
      Case 2052
         strLang = "China - Chinese, Simplified"
      Case 2057
         strLang = "UK - English"
      Case 2060
         strLang = "Benelux - French"
      Case 2070
         strLang = "Portugal - Portuguese"
      Case 3081
         strLang = "Australia - English"
      Case 3084
         strLang = "Canada - French"
      Case 4105
         strLang = "Canada - English"
      Case 5129
         strLang = "New Zealand - English"
      Case 13321
         strLang = "Philippines - English"
      Case 14345
         strLang = "Indonesia - English"
      Case 15369
         strLang = "Hong Kong SAR - English"
      Case 16393
         strLang = "India - English"
      Case 17417
         strLang = "Malaysia - English"
      Case 18441
         strLang = "Singapore - English"
      Case 58378
         strLang = "LatAm - Spanish"
      Case 58380
         strLang = "North Africa - French"
      Case Else
         strLang = "Not listed"
   End Select
'
' Display a Message box with the language code and name.
'
   MsgBox "The Keyboard language is: " & lLangCode & ": " & strLang
End Sub

Originally Posted by tolisn

Thanks a million Evo but what version of autoit is this for. I keep on getting error when I try to compile

This is VB6 code. What error are you getting?

Originally Posted by tolisn

Oops!! I though it was autoit. Sorry my bad. I'll try it out with VB and let you know.

Just call "test" method from your testing app to get keyboard

Originally Posted by tolisn

I can’t place the code in a VB6 project. Don’t laugh I’m not a programmer.
Could you please insert the above code in a VB project and post the project ready to compile?

Here we go. But, what are you going to do with that if you are not a programmer?