Page 1 of 3 123 LastLast
Results 1 to 10 of 24

Thread: Keyboard language indicator extension plugin

  1. #1
    Maximum Bitrate tolisn's Avatar
    Join Date
    Dec 2003
    Location
    Greece
    Posts
    731

    Keyboard language indicator extension plugin

    I want to make an indicator in RR which changes state when the keyboard language is changed. Is there anyway I can do this in RR (maybe an autoit script)??
    The road is long but we are getting there.

  2. #2
    RoadRunner Mastermind
    Auto Apps:loading...
    guino's Avatar
    Join Date
    Nov 2004
    Location
    Toronto, Canada
    Posts
    9,818
    You can do this as an extension plugin, but it will probably require some funky API calls..
    Ride Runner RR's Myspace

    "Being happy is not about having what you want, it's about wanting what you have."
    "The best things in life are always free - but that doesn't mean money can't buy you good things."

  3. #3
    Maximum Bitrate tolisn's Avatar
    Join Date
    Dec 2003
    Location
    Greece
    Posts
    731
    So there is no other way of doing this apart from writting a plugin?
    The road is long but we are getting there.

  4. #4
    Variable Bitrate Evolution VIII's Avatar
    Join Date
    Dec 2005
    Location
    Miami-Florida-USA
    Posts
    342
    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

  5. #5
    Maximum Bitrate tolisn's Avatar
    Join Date
    Dec 2003
    Location
    Greece
    Posts
    731
    Thanks a million Evo but what version of autoit is this for. I keep on getting error when I try to compile
    The road is long but we are getting there.

  6. #6
    Variable Bitrate Evolution VIII's Avatar
    Join Date
    Dec 2005
    Location
    Miami-Florida-USA
    Posts
    342
    Quote Originally Posted by tolisn View Post
    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?

  7. #7
    Maximum Bitrate tolisn's Avatar
    Join Date
    Dec 2003
    Location
    Greece
    Posts
    731
    Oops!! I though it was autoit. Sorry my bad. I'll try it out with VB and let you know.
    The road is long but we are getting there.

  8. #8
    Variable Bitrate Evolution VIII's Avatar
    Join Date
    Dec 2005
    Location
    Miami-Florida-USA
    Posts
    342
    Quote Originally Posted by tolisn View Post
    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

  9. #9
    Maximum Bitrate tolisn's Avatar
    Join Date
    Dec 2003
    Location
    Greece
    Posts
    731
    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?
    The road is long but we are getting there.

  10. #10
    Variable Bitrate Evolution VIII's Avatar
    Join Date
    Dec 2005
    Location
    Miami-Florida-USA
    Posts
    342
    Quote Originally Posted by tolisn View Post
    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?
    Attached Files Attached Files

Page 1 of 3 123 LastLast

Similar Threads

  1. Replies: 44
    Last Post: 05-22-2009, 01:51 PM
  2. RR 03-12-05 .. Keyboard Support ...
    By guino in forum Road Runner
    Replies: 26
    Last Post: 03-15-2005, 01:48 AM
  3. Replies: 10
    Last Post: 02-13-2005, 07:28 PM
  4. Winamp LCD display plugin / IRMan plugin - together?
    By Jarrod in forum Software & Software Development
    Replies: 9
    Last Post: 06-03-2002, 05:39 AM
  5. Keyboard Plugin for Winamp
    By Kevin in forum Software & Software Development
    Replies: 6
    Last Post: 08-21-2000, 09:43 AM

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •